hg/stx-goodies-smallsense: refactoring_custom/SmallSense__CustomValueHolderWithChangeNotificationSetterMethodsCodeGeneratorTests.st@af3a048f9618 (annotated)

829 59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	1	"
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	2	A custom code generation and refactoring support for Smalltalk/X
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	3	Copyright (C) 2013-2015 Jakub Nesveda
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	4	Copyright (C) 2013-now Jan Vrany
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	5
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	6	This library is free software; you can redistribute it and/or
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	7	modify it under the terms of the GNU Lesser General Public
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	8	License as published by the Free Software Foundation; either
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	9	version 2.1 of the License.
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	10
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	11	This library is distributed in the hope that it will be useful,
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	14	Lesser General Public License for more details.
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	15
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	16	You should have received a copy of the GNU Lesser General Public
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	17	License along with this library; if not, write to the Free Software
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	18	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	19	"
833 297eb38e4eee Package jn:refactoring_custom renamed to stx:goodies/smallsense/refactoring_custom Jan Vrany <jan.vrany@fit.cvut.cz> parents: 830 diff changeset	20	"{ Package: 'stx:goodies/smallsense/refactoring_custom' }"
598 5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	21
830 1a88f5e65fe2 Classes moved to namespace SmallSense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 829 diff changeset	22	"{ NameSpace: SmallSense }"
803 95cdac772759 Fixed failing tests caused by new STX release Jakub Nesveda <jakubnesveda@seznam.cz> parents: 734 diff changeset	23
634 d77d9a7561be move refactoryBuilder and codeBuilder to CustomCodeGeneratorOrRefactoring Jakub Nesveda <jakubnesveda@seznam.cz> parents: 598 diff changeset	24	CustomCodeGeneratorOrRefactoringTestCase subclass:#CustomValueHolderWithChangeNotificationSetterMethodsCodeGeneratorTests
598 5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	25	instanceVariableNames:''
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	26	classVariableNames:''
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	27	poolDictionaries:''
734 f8b10fc1ab0e update TestCase categories with respect to their tested subjects ( classes ) Jakub Nesveda <jakubnesveda@seznam.cz> parents: 715 diff changeset	28	category:'Interface-Refactoring-Custom-Generators-Tests'
598 5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	29	!
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	30
829 59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	31	!CustomValueHolderWithChangeNotificationSetterMethodsCodeGeneratorTests class methodsFor:'documentation'!
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	32
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	33	copyright
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	34	"
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	35	A custom code generation and refactoring support for Smalltalk/X
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	36	Copyright (C) 2013-2015 Jakub Nesveda
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	37	Copyright (C) 2013-now Jan Vrany
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	38
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	39	This library is free software; you can redistribute it and/or
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	40	modify it under the terms of the GNU Lesser General Public
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	41	License as published by the Free Software Foundation; either
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	42	version 2.1 of the License.
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	43
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	44	This library is distributed in the hope that it will be useful,
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	45	but WITHOUT ANY WARRANTY; without even the implied warranty of
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	46	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	47	Lesser General Public License for more details.
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	48
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	49	You should have received a copy of the GNU Lesser General Public
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	50	License along with this library; if not, write to the Free Software
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	51	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	52	"
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	53	! !
715 0e3c501b6015 add support for all protocols selector in CustomBrowserContext Jakub Nesveda <jakubnesveda@seznam.cz> parents: 634 diff changeset	54
598 5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	55	!CustomValueHolderWithChangeNotificationSetterMethodsCodeGeneratorTests methodsFor:'accessing'!
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	56
634 d77d9a7561be move refactoryBuilder and codeBuilder to CustomCodeGeneratorOrRefactoring Jakub Nesveda <jakubnesveda@seznam.cz> parents: 598 diff changeset	57	generatorOrRefactoring
598 5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	58	^ CustomValueHolderWithChangeNotificationSetterMethodsCodeGenerator new
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	59	! !
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	60
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	61	!CustomValueHolderWithChangeNotificationSetterMethodsCodeGeneratorTests methodsFor:'tests'!
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	62
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	63	test_value_holder_with_change_notification_setter_method_generated_with_comments
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	64	\| expectedSource \|
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	65
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	66	userPreferences generateCommentsForSetters: true.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	67
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	68	expectedSource := 'instanceVariable:something
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	69	"set the ''instanceVariable'' value holder (automatically generated)"
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	70
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	71	\|oldValue newValue\|
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	72
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	73	instanceVariable notNil ifTrue:[
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	74	oldValue := instanceVariable value.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	75	instanceVariable removeDependent:self.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	76	].
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	77	instanceVariable := something.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	78	instanceVariable notNil ifTrue:[
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	79	instanceVariable addDependent:self.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	80	].
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	81	newValue := instanceVariable value.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	82	oldValue ~~ newValue ifTrue:[
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	83	self
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	84	update:#value
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	85	with:newValue
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	86	from:instanceVariable.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	87	].'.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	88
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	89	self executeGeneratorInContext: #classWithInstanceVariable.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	90	self assertMethodSource: expectedSource atSelector: #instanceVariable:
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	91
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	92	"Created: / 07-07-2014 / 00:24:37 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	93	!
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	94
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	95	test_value_holder_with_change_notification_setter_method_generated_without_comments
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	96	\| expectedSource \|
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	97
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	98	userPreferences generateCommentsForSetters: false.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	99
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	100	expectedSource := 'instanceVariable:something
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	101	\|oldValue newValue\|
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	102
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	103	instanceVariable notNil ifTrue:[
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	104	oldValue := instanceVariable value.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	105	instanceVariable removeDependent:self.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	106	].
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	107	instanceVariable := something.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	108	instanceVariable notNil ifTrue:[
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	109	instanceVariable addDependent:self.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	110	].
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	111	newValue := instanceVariable value.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	112	oldValue ~~ newValue ifTrue:[
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	113	self
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	114	update:#value
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	115	with:newValue
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	116	from:instanceVariable.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	117	].'.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	118
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	119	self executeGeneratorInContext: #classWithInstanceVariable.
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	120	self assertMethodSource: expectedSource atSelector: #instanceVariable:
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	121
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	122	"Created: / 07-07-2014 / 00:23:41 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	123	! !
5d7c71a07b3e add ValueHolder with change notification setter code generator Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	124
715 0e3c501b6015 add support for all protocols selector in CustomBrowserContext Jakub Nesveda <jakubnesveda@seznam.cz> parents: 634 diff changeset	125	!CustomValueHolderWithChangeNotificationSetterMethodsCodeGeneratorTests class methodsFor:'documentation'!
0e3c501b6015 add support for all protocols selector in CustomBrowserContext Jakub Nesveda <jakubnesveda@seznam.cz> parents: 634 diff changeset	126
0e3c501b6015 add support for all protocols selector in CustomBrowserContext Jakub Nesveda <jakubnesveda@seznam.cz> parents: 634 diff changeset	127	version_HG
0e3c501b6015 add support for all protocols selector in CustomBrowserContext Jakub Nesveda <jakubnesveda@seznam.cz> parents: 634 diff changeset	128
0e3c501b6015 add support for all protocols selector in CustomBrowserContext Jakub Nesveda <jakubnesveda@seznam.cz> parents: 634 diff changeset	129	^ '$Changeset: <not expanded> $'
0e3c501b6015 add support for all protocols selector in CustomBrowserContext Jakub Nesveda <jakubnesveda@seznam.cz> parents: 634 diff changeset	130	! !
0e3c501b6015 add support for all protocols selector in CustomBrowserContext Jakub Nesveda <jakubnesveda@seznam.cz> parents: 634 diff changeset	131

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 13 Nov 2017 22:26:12 -0300
changeset 1060	af3a048f9618
parent 833	297eb38e4eee
child 1072	a44c741ee5ef
permissions	-rw-r--r--