hg/stx-goodies-smallsense: CustomValueHolderWithChangeNotificationAccessMethodsCodeGeneratorTests.st@9bb8c8bebb10 (annotated)

613 9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	1	"{ Package: 'jn:refactoring_custom' }"
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	2
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	3	CustomCodeGeneratorTestCase subclass:#CustomValueHolderWithChangeNotificationAccessMethodsCodeGeneratorTests
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	4	instanceVariableNames:''
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	5	classVariableNames:''
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	6	poolDictionaries:''
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	7	category:'Interface-Refactoring-Custom-Tests'
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	8	!
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	9
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	10	!CustomValueHolderWithChangeNotificationAccessMethodsCodeGeneratorTests methodsFor:'accessing'!
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	11
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	12	generator
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	13	^ CustomValueHolderWithChangeNotificationAccessMethodsCodeGenerator new
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	14	! !
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	15
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	16	!CustomValueHolderWithChangeNotificationAccessMethodsCodeGeneratorTests methodsFor:'tests'!
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	17
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	18	test_value_holder_access_methods_generated_with_comments
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	19	\| expectedGetterSource expectedSetterSource \|
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	20
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	21	userPreferences
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	22	generateCommentsForGetters: true;
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	23	generateCommentsForSetters: true.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	24
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	25	expectedGetterSource := 'instanceVariable
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	26	"return/create the ''instanceVariable'' value holder with change notification (automatically generated)"
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	27
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	28	instanceVariable isNil ifTrue:[
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	29	instanceVariable := ValueHolder new.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	30	instanceVariable addDependent:self.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	31	].
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	32	^ instanceVariable'.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	33
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	34	expectedSetterSource := 'instanceVariable:something
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	35	"set the ''instanceVariable'' value holder (automatically generated)"
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	36
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	37	\|oldValue newValue\|
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	38
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	39	instanceVariable notNil ifTrue:[
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	40	oldValue := instanceVariable value.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	41	instanceVariable removeDependent:self.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	42	].
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	43	instanceVariable := something.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	44	instanceVariable notNil ifTrue:[
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	45	instanceVariable addDependent:self.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	46	].
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	47	newValue := instanceVariable value.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	48	oldValue ~~ newValue ifTrue:[
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	49	self
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	50	update:#value
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	51	with:newValue
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	52	from:instanceVariable.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	53	].'.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	54
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	55	self executeGeneratorInContext: #classWithInstanceVariable.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	56	self assertMethodSource: expectedGetterSource atSelector: #instanceVariable.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	57	self assertMethodSource: expectedSetterSource atSelector: #instanceVariable:
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	58
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	59	"Created: / 13-07-2014 / 17:16:44 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	60	!
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	61
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	62	test_value_holder_access_methods_generated_without_comments
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	63	\| expectedGetterSource expectedSetterSource \|
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	64
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	65	userPreferences
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	66	generateCommentsForGetters: false;
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	67	generateCommentsForSetters: false.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	68
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	69	expectedGetterSource := 'instanceVariable
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	70	instanceVariable isNil ifTrue:[
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	71	instanceVariable := ValueHolder new.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	72	instanceVariable addDependent:self.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	73	].
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	74	^ instanceVariable'.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	75
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	76	expectedSetterSource := 'instanceVariable:something
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	77	\|oldValue newValue\|
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	78
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	79	instanceVariable notNil ifTrue:[
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	80	oldValue := instanceVariable value.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	81	instanceVariable removeDependent:self.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	82	].
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	83	instanceVariable := something.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	84	instanceVariable notNil ifTrue:[
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	85	instanceVariable addDependent:self.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	86	].
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	87	newValue := instanceVariable value.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	88	oldValue ~~ newValue ifTrue:[
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	89	self
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	90	update:#value
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	91	with:newValue
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	92	from:instanceVariable.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	93	].'.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	94
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	95	self executeGeneratorInContext: #classWithInstanceVariable.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	96	self assertMethodSource: expectedGetterSource atSelector: #instanceVariable.
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	97	self assertMethodSource: expectedSetterSource atSelector: #instanceVariable:
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	98
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	99	"Created: / 13-07-2014 / 17:23:09 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	100	! !
9bb8c8bebb10 add access methods generator for ValueHolder with change notification Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	101

author	Jakub Nesveda <jakubnesveda@seznam.cz>
	Sun, 13 Jul 2014 17:25:15 +0200
changeset 613	9bb8c8bebb10
child 634	d77d9a7561be
permissions	-rw-r--r--