CustomSimpleAccessMethodsCodeGeneratorTests.st
author Jakub Nesveda <jakubnesveda@seznam.cz>
Tue, 08 Jul 2014 17:09:35 +0200
changeset 601 76c721f2a969
child 634 d77d9a7561be
permissions -rw-r--r--
add simple access methods code generator
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
601
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     1
"{ Package: 'jn:refactoring_custom' }"
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     2
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     3
CustomCodeGeneratorTestCase subclass:#CustomSimpleAccessMethodsCodeGeneratorTests
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     4
	instanceVariableNames:''
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     5
	classVariableNames:''
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     6
	poolDictionaries:''
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     7
	category:'Interface-Refactoring-Custom-Tests'
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     8
!
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
     9
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    10
!CustomSimpleAccessMethodsCodeGeneratorTests methodsFor:'accessing'!
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    11
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    12
generator
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    13
    ^ CustomSimpleAccessMethodsCodeGenerator new
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    14
! !
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    15
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    16
!CustomSimpleAccessMethodsCodeGeneratorTests methodsFor:'tests'!
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    17
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    18
test_access_methods_generated_with_comments
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    19
    | expectedGetterSource expectedSetterSource |
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    20
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    21
    userPreferences
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    22
        generateCommentsForGetters: true;
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    23
        generateCommentsForSetters: true.
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    24
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    25
    expectedGetterSource := 'instanceVariable
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    26
    "return the instance variable ''instanceVariable'' (automatically generated)"
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    27
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    28
    ^ instanceVariable'.
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    29
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    30
    expectedSetterSource := 'instanceVariable:something
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    31
    "set the value of the instance variable ''instanceVariable'' (automatically generated)"
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    32
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    33
    instanceVariable := something'.
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    34
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    35
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    36
    self executeGeneratorInContext: #classWithInstanceVariable.
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    37
    self assertMethodSource: expectedGetterSource atSelector: #instanceVariable.
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    38
    self assertMethodSource: expectedSetterSource atSelector: #instanceVariable:
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    39
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    40
    "Created: / 08-07-2014 / 13:28:26 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    41
    "Modified: / 08-07-2014 / 16:02:01 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    42
!
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    43
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    44
test_access_methods_generated_without_comments
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    45
    | expectedGetterSource expectedSetterSource |
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    46
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    47
    userPreferences
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    48
        generateCommentsForGetters: false;
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    49
        generateCommentsForSetters: false.
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    50
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    51
    expectedGetterSource := 'instanceVariable
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    52
    ^ instanceVariable'.
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    53
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    54
    expectedSetterSource := 'instanceVariable:something
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    55
    instanceVariable := something'.
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    56
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    57
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    58
    self executeGeneratorInContext: #classWithInstanceVariable.
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    59
    self assertMethodSource: expectedGetterSource atSelector: #instanceVariable.
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    60
    self assertMethodSource: expectedSetterSource atSelector: #instanceVariable:
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    61
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    62
    "Created: / 08-07-2014 / 16:59:10 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    63
! !
76c721f2a969 add simple access methods code generator
Jakub Nesveda <jakubnesveda@seznam.cz>
parents:
diff changeset
    64