"{ Package: 'jn:refactoring_custom' }"

"{ NameSpace: Smalltalk }"

TestCase subclass:#CustomMockTests
	instanceVariableNames:'model mock testCompleted'
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Refactoring-Custom-Tests'
!


!CustomMockTests methodsFor:'initialization & release'!

setUp

    model := CustomNamespace new.
    mock := CustomMock new.
    testCompleted := false.

    "Modified: / 09-10-2014 / 09:34:02 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

tearDown

    model undoChanges.
    mock unmockAll

    "Modified: / 19-10-2014 / 14:56:34 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
! !

!CustomMockTests methodsFor:'private'!

performTest
    Class withoutUpdatingChangesDo:[
        self perform: testSelector sunitAsSymbol
    ]

    "Created: / 24-09-2014 / 21:30:51 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
! !

!CustomMockTests methodsFor:'tests'!

test_class_and_instance_methods_overriden_by_compiled_mock_method
    | class mockClass |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.
        model createMethodImmediate: (class theMetaclass) protocol: 'p' source: 'aSelector_01: aParam
        ^ 10'.
        model createMethodImmediate: class protocol: 'p' source: 'aSelector_01: aParam
        ^ 15'.

        self assert: (class aSelector_01: nil) = 10.
        self assert: (class new aSelector_01: nil) = 15.

        mockClass := mock mockClassOf: class.
        mockClass compileMockMethod: 'aSelector_01: aParam ^ 20'.
        mockClass new compileMockMethod: 'aSelector_01: aParam ^ 25'.

        self assert: (mockClass aSelector_01: nil) = 20.
        self assert: (mockClass new aSelector_01: nil) = 25.

        testCompleted := true.

    ] ensure: [
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 23-09-2014 / 22:53:52 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_class_methods_overriden_by_compiled_mock_method
    | class mockClass |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.
        model createMethodImmediate: (class theMetaclass) protocol: 'p' source: 'aSelector_01: aParam
        ^ 10'.
        model createMethodImmediate: (class theMetaclass) protocol: 'p' source: 'aSelector_02: aParam

        (self aSelector_01: aParam) = 10 ifTrue: [ ^ true ].

        ^ false'.

        self assert: (class aSelector_02: nil).

        mockClass := mock mockClassOf: class.
        mockClass compileMockMethod: 'aSelector_01: aParam ^ 20'.

        self assert: (mockClass aSelector_01: nil) = 20.
        self assert: (mockClass aSelector_02: nil) not.

        testCompleted := true.

    ] ensure: [
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 23-09-2014 / 22:54:13 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_class_methods_overriden_by_mock
    | class mockClass |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.
        model createMethodImmediate: class theMetaclass protocol: 'p' source: 'aSelector_01: aParam
        ^ 10'.
        model createMethodImmediate: class theMetaclass protocol: 'p' source: 'aSelector_02: aParam

        (self aSelector_01: aParam) = 10 ifTrue: [ ^ true ].

        ^ false'.

        self assert: (class aSelector_02: nil).

        mockClass := mock mockClassOf: class.
        mockClass mockSelector: #aSelector_01: withReturnValue: 20.

        self assert: (mockClass aSelector_01: nil) = 20.
        self assert: (mockClass aSelector_02: nil) not. 

        testCompleted := true.

    ] ensure: [
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 10-07-2014 / 19:35:52 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
    "Modified (format): / 22-09-2014 / 23:14:13 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_create_mock_getters_for_selectors    
    | expectedSource01 actualSource01 expectedSource02 actualSource02 mockClass |

    mockClass := mock mockClassOf: Object.
    mock createMockGetters: mockClass forSelectors: {'selector'. 'selector:'}.

    expectedSource01 := 'selector ^ self objectAttributeAt: #selector'.
    expectedSource02 := 'selector:arg ^ self objectAttributeAt: #selector:'.

    actualSource01 := mockClass sourceCodeAt:#selector.
    actualSource02 := mockClass sourceCodeAt:#selector:.

    self assert: expectedSource01 = actualSource01.           
    self assert: expectedSource02 = actualSource02.

    "Modified: / 28-12-2014 / 15:29:13 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_methods_overriden_by_compiled_mock_method
    | class mockClassInstance |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.
        model createMethodImmediate: class protocol: 'p' source: 'aSelector_01: aParam
        ^ 10'.
        model createMethodImmediate: class protocol: 'p' source: 'aSelector_02: aParam

        (self aSelector_01: aParam) = 10 ifTrue: [ ^ true ].

        ^ false'.

        self assert: (class new aSelector_02: nil).

        mockClassInstance := mock mockOf: class.
        mockClassInstance compileMockMethod: 'aSelector_01: aParam ^ 20'.

        self assert: (mockClassInstance aSelector_01: nil) = 20.
        self assert: (mockClassInstance aSelector_02: nil) not.


        testCompleted := true.

    ] ensure: [ 
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 23-09-2014 / 22:54:23 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_methods_overriden_by_compiled_mock_method_value_with_params
    | class mockClassInstance |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.
        model createMethodImmediate: class protocol: 'p' source: 'aSelector_01: aParam
        ^ 10'.
        model createMethodImmediate: class protocol: 'p' source: 'aSelector_02: aParam

        (self aSelector_01: aParam) = 10 ifTrue: [ ^ true ].

        ^ false'.

        self assert: (class new aSelector_02: nil).

        mockClassInstance := mock mockOf: class.
        mockClassInstance compileMockMethod: 'aSelector_01: aParam
            aParam = 5 ifTrue: [
                ^ 10
            ].

            ^ 30'.

        self assert: (mockClassInstance aSelector_01: 5) = 10.
        self assert: (mockClassInstance aSelector_02: 3) not.

        testCompleted := true.

    ] ensure: [ 
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 23-09-2014 / 22:54:42 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_methods_overriden_by_compiled_mock_method_value_with_two_params
    | class mockClassInstance |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.
        model createMethodImmediate: class protocol: 'p' source: 'aSelector_01: arg_01 param_02: arg_02
        ^ 10'.

        self assert: ((class new aSelector_01: 1 param_02: 2) = 10).

        mockClassInstance := mock mockOf: class.
        mockClassInstance compileMockMethod: 'aSelector_01:arg_01 param_02:arg_02 ^ arg_01 + arg_02'.

        self assert: (mockClassInstance aSelector_01: 3 param_02: 3) = 6.

        testCompleted := true.

    ] ensure: [ 
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 23-09-2014 / 22:54:49 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_methods_overriden_by_compiled_mock_method_with_none_params
    | class mockClassInstance |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.
        model createMethodImmediate: class protocol: 'p' source: 'aSelector_01
        ^ 10'.

        self assert: (class new aSelector_01 = 10).

        mockClassInstance := mock mockOf: class.
        mockClassInstance compileMockMethod: 'aSelector_01 ^ 30'.

        self assert: (mockClassInstance aSelector_01) = 30.

        testCompleted := true.

    ] ensure: [
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 23-09-2014 / 22:54:34 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_methods_overriden_by_compiled_mock_method_with_three_params
    | class mockClassInstance |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.
        model createMethodImmediate: class protocol: 'p' source: 'aSelector_01: arg_01 param_02: arg_02 param_03: arg_03
        ^ 10'.

        self assert: ((class new aSelector_01: 1 param_02: 2 param_03: 3) = 10).

        mockClassInstance := mock mockOf: class.
        mockClassInstance compileMockMethod: 'aSelector_01:arg_01 param_02:arg_02 param_03:arg_03  
            ^ arg_01 + arg_02 + arg_03'.

        self assert: (mockClassInstance aSelector_01: 3 param_02: 3 param_03: 3) = 9.

        testCompleted := true.

    ] ensure: [ 
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 23-09-2014 / 22:55:22 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_methods_overriden_by_mock
    | class mockClassInstance |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.
        model createMethodImmediate: class protocol: 'p' source: 'aSelector_01: aParam
        ^ 10'.
        model createMethodImmediate: class protocol: 'p' source: 'aSelector_02: aParam

        (self aSelector_01: aParam) = 10 ifTrue: [ ^ true ].

        ^ false'.

        self assert: (class new aSelector_02: nil).

        mockClassInstance := mock mockOf: class.
        mockClassInstance mockSelector: #aSelector_01: withReturnValue: 20.

        self assert: (mockClassInstance aSelector_01: nil) = 20.
        self assert: (mockClassInstance aSelector_02: nil) not.


        testCompleted := true.

    ] ensure: [ 
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 15-06-2014 / 20:19:47 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
    "Modified (format): / 22-09-2014 / 23:14:40 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_mock_count_incremented_when_new_class_created
    | class mockCount |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.

        mockCount := mock mockCount.  

        mock mockOf: class.

        self assert: (mockCount + 1) = (mock mockCount).

        testCompleted := true.

    ] ensure: [ 
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 22-09-2014 / 23:05:31 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
    "Modified: / 25-01-2015 / 15:19:00 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_namespace_not_created_for_class_with_namespace
    "If class name contains also namespace name then it is created along with the class.
    Assert that namespace is not created, because there is no use for it in temporary class
    - only leaves mess in the browser."
    | class expectedNameSpaceCount actualNameSpaceCount |

    [
        class := model createClassImmediate: 'DummyNameSpace01::DummyClass01'.

        expectedNameSpaceCount := NameSpace allNameSpaces size.
        self assert: expectedNameSpaceCount > 1.

        mock mockClassOf: class.

        actualNameSpaceCount := NameSpace allNameSpaces size.

        self assert: expectedNameSpaceCount = actualNameSpaceCount.

        testCompleted := true.

    ] ensure: [
        (Smalltalk at: #DummyNameSpace01) notNil ifTrue: [ 
            Class withoutUpdatingChangesDo: [  
                (Smalltalk at: #DummyNameSpace01) removeFromSystem
            ]
        ].

        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 24-01-2015 / 19:22:50 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
    "Modified: / 25-01-2015 / 15:19:20 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!

test_unmock_all
    | class mockClass mockClassName |

    [
        class := model createClassImmediate: 'TestClassForMockTestCase' superClassName: 'Object'.

        mockClass := mock mockClassOf: class.
        mockClassName := mockClass name.

        self assert: (Smalltalk at: mockClassName) isNil not.
        mock unmockAll.
        self assert: (Smalltalk at: mockClassName) isNil.

        testCompleted := true.

    ] ensure: [
        "Need to test if test is complete, because in this case
        sometimes happens that the test terminates and is marked as success."
        self assert: testCompleted
    ].

    "Created: / 23-09-2014 / 22:58:29 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
! !

!CustomMockTests class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !