Dolphin MockObjects

Hi,
I developed the following library using Dolphin5 whilst writing some
tools for work. It's fairly equivalent (in approach) to the second
generation of the Java MockObjects library called DynaMock.

The implementation was really simple in Smalltalk (obviously).

Before TimM replies, yes I do need to work on the error messages! At
the moment it doesn't tell you which method it wasn't expecting, or
which method was missing when verified. This is a critical part of the
expectation idiom that TimM pioneered.

I'm posting useing google, so I'm not sure if this will work.
If it's a problem, I'll post the PAX as an attachment when I get from
the walled garden where I work.

| package |
package := Package name: 'Mock'.
package paxVersion: 1;
        basicComment: 'http://mockmobjects.com

See the TestCase for examples.

This package relies on Dolphin''s Method>>= and Method>>hash.
The Squeak version (for example) uses PluggableSet and
PlugableDictionary'.


package classNames
        add: #IconFinderShell;
        add: #IconModel;
        add: #MockObject;
        add: #MockTestCase;
        yourself.

package binaryGlobalNames: (Set new
        yourself).

package globalAliases: (Set new
        yourself).

package setPrerequisites: (IdentitySet new
        add: 'C:\data\U284195\Dolphin6\Object Arts\Dolphin\Base\Dolphin';
        add: 'C:\data\U284195\Dolphin6\Object Arts\Dolphin\MVP\Views\Common
Controls\Dolphin Common Controls';
        add: 'C:\data\U284195\Dolphin6\Object
Arts\Dolphin\MVP\Presenters\List\Dolphin List Presenter';
        add: 'C:\data\U284195\Dolphin6\Object Arts\Dolphin\MVP\Base\Dolphin
MVP Base';
        add: 'C:\data\U284195\Dolphin6\Camp Smalltalk\SUnit\SUnit';
        yourself).

package!

"Class Definitions"!

Object subclass: #MockObject
        instanceVariableNames: 'expectations actuals'
        classVariableNames: ''
        poolDictionaries: ''
        classInstanceVariableNames: ''!
Model subclass: #IconModel
        instanceVariableNames: 'offset'
        classVariableNames: ''
        poolDictionaries: ''
        classInstanceVariableNames: ''!
Presenter subclass: #IconFinderShell
        instanceVariableNames: ''
        classVariableNames: ''
        poolDictionaries: ''
        classInstanceVariableNames: ''!
TestCase subclass: #MockTestCase
        instanceVariableNames: ''
        classVariableNames: ''
        poolDictionaries: ''
        classInstanceVariableNames: ''!

"Global Aliases"!


"Loose Methods"!

"End of package definition"!

"Source Globals"!

"Classes"!

MockObject guid: (GUID fromString:
'{2CF1B532-BEE1-407C-9AD2-FBF89901AB90}')!
MockObject comment: ''!
!MockObject categoriesForClass!Kernel-Objects! !
!MockObject methodsFor!

doesNotUnderstand: failedMessage
        actuals add: failedMessage.
        ^expectations at: failedMessage.!

expect: selector
        expectations at: selector put: self.!

expect: selector return: reply
        expectations at: selector put: reply!

initialize
        expectations := Dictionary new.
        actuals := Set new.!

verify
        ^(expectations keys equals: actuals) ifFalse: [Error signal: 'Does not
verify'].! !
!MockObject categoriesFor: #doesNotUnderstand:!public! !
!MockObject categoriesFor: #expect:!public! !
!MockObject categoriesFor: #expect:return:!public! !
!MockObject categoriesFor: #initialize!private! !
!MockObject categoriesFor: #verify!private! !

!MockObject class methodsFor!

new
        "Answer a new initialize instance of the receiver."

        ^super new initialize! !
!MockObject class categoriesFor: #new!public! !

IconModel guid: (GUID fromString:
'{439EEEC0-AE6B-4430-A51A-4F3F96BA0BDF}')!
IconModel comment: ''!
!IconModel categoriesForClass!MVP-Models! !
!IconModel methodsFor!

icon
        ^Icon fromSystemId: offset!

initialize
        offset := 1.!

offset: anOffset
        offset := anOffset.!

printOn: target
        super printOn: target.
        offset printOn: target.! !
!IconModel categoriesFor: #icon!public! !
!IconModel categoriesFor: #initialize!private! !
!IconModel categoriesFor: #offset:!private! !
!IconModel categoriesFor: #printOn:!public! !

IconFinderShell guid: (GUID fromString:
'{1A8D084B-626A-45D9-88E7-C6A5A8283967}')!
IconFinderShell comment: ''!
!IconFinderShell categoriesForClass!MVP-Presenters! !
!IconFinderShell class methodsFor!

defaultModel
        |reply|
        reply := ListModel new.
        30000 to: 32520 do: [:i | reply add: (IconModel new offset: i)].
        ^reply.!

resource_Default_view
        "Answer the literal data from which the 'Default view' resource can be
reconstituted.
        DO NOT EDIT OR RECATEGORIZE THIS METHOD.

        If you wish to modify this resource evaluate:
        ViewComposer openOn: (ResourceIdentifier class: self selector:
#resource_Default_view)
        "

        ^#(#'!!STL' 3 788558 10 ##(STBViewProxy)  8 ##(ListView)  98 30 0 0 98
2 8 1140920397 1025 416 590662 2 ##(ListModel)  202 208 98 0 0 1114638
##(STBSingletonProxy)  8 ##(SearchPolicy)  8 #identity 524550
##(ColorRef)  8 4278190080 0 7 0 0 0 416 0 8 4294903777 8
##(BasicListAbstract)  8 ##(IconicListAbstract)  570 8
##(IconImageManager)  8 #current 0 0 0 328198 ##(Point)  65 65 0 0 202
208 98 2 920646 5 ##(ListViewColumn)  8 'Offset' 201 8 #left 688 8
##(SortedCollection)  0 0 416 787814 3 ##(BlockClosure)  0 459302
##(Context)  1 1 0 0 1180966 ##(CompiledExpression)  0 9 8
##(UndefinedObject)  8 'doIt' 98 2 8 '[:i | i]' 98 1 202 8
##(PoolDictionary)  544 8 #[252 1 0 1 1 4 0 17 229 32 106 105] 17 257 0
1 0 0 834 8 'Image' 201 880 688 896 0 0 416 914 0 946 1 1 0 0 978 0 9
1008 8 'doIt' 98 2 8 '[:i | i]' 98 1 202 1104 544 8 #[252 1 0 1 1 4 0
17 229 32 106 105] 17 257 0 1 0 0 8 #report 544 770 65 65 131169 0 0
983302 ##(MessageSequence)  202 208 98 2 721670 ##(MessageSend)  8
#createAt:extent: 98 2 770 11 11 770 1047 1013 416 1410 8 #text: 98 1 8
'Offset' 416 983302 ##(WINDOWPLACEMENT)  8 #[44 0 0 0 0 0 0 0 0 0 0 0
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 5 0 0 0
5 0 0 0 16 2 0 0 255 1 0 0] 98 0 770 193 193 0 27 )! !
!IconFinderShell class categoriesFor: #defaultModel!public! !
!IconFinderShell class categoriesFor:
#resource_Default_view!public!resources-views! !

MockTestCase guid: (GUID fromString:
'{1EFA0B16-373B-4774-B90B-4A4D74E4DA4F}')!
MockTestCase comment: ''!
!MockTestCase categoriesForClass!Unclassified! !
!MockTestCase methodsFor!

testExpectAndReturnFails
        | unit |
        unit := MockObject new.
        unit expect: (Message selector: #callThis) return: true.

        self should: [unit verify] raise: Error.
!

testExpectAndReturnVerifies
        | unit |
        unit := MockObject new.
        unit expect: (Message selector: #callThis) return: true.

        self assert: unit callThis = true.

        unit verify.!

testExpectAndReturnWithArgsFails
        | unit |
        unit := MockObject new.
        unit expect: (Message selector: #callThis: arguments: #(42)) return:
true.

        self should: [unit callThis: 43] raise: Error.
!

testExpectAndReturnWithArgsVerifies
        | unit |
        unit := MockObject new.
        unit expect: (Message selector: #callThis: arguments: #(42)) return:
true.

        unit callThis: 42.

        unit verify.
! !
!MockTestCase categoriesFor: #testExpectAndReturnFails!public! !
!MockTestCase categoriesFor: #testExpectAndReturnVerifies!public! !
!MockTestCase categoriesFor: #testExpectAndReturnWithArgsFails!public!
!
!MockTestCase categoriesFor:
#testExpectAndReturnWithArgsVerifies!public! !

"Binary Globals"!