| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- Smalltalk current createPackage: 'Trapped-Tests' properties: #{}!
- TestCase subclass: #IsolatorTest
- instanceVariableNames: 'rootModel'
- package: 'Trapped-Tests'!
- !IsolatorTest methodsFor: 'running'!
- setUp
- rootModel := EavModel new
- getBlock: [:x | x root];
- putBlock: [:x :y | x root: y].
- ! !
- !IsolatorTest methodsFor: 'tests'!
- testNontrivialModelReturnsAppropriateValue
- | bb model result |
- bb := Isolator on: #{ 'foo' -> #('bar' #(1 #(2 3)) 'baz'). 'moo' -> 'zoo' }.
- model := EavModel new getBlock: [ :x | (x root at: 'foo') at: 2 ].
- bb model: model read: [:r|result := r].
- self assert: #(1 #(2 3)) equals: result
- !
- testRootModelReturnsDeeplyIsolatedRoot
- | bb result |
- bb := Isolator on: #(1 #(2 3)).
- bb model: rootModel read: [:r|(r at: 2) at: 1 put: 0].
- bb model: rootModel read: [:r|result := r].
- self assert: #(1 #(2 3)) equals: result
- !
- testRootModelReturnsIsolatedRoot
- | bb result |
- bb := Isolator on: #(1 #(2 4)).
- bb model: rootModel read: [:r|r at: 2 put: nil].
- bb model: rootModel read: [:r|result := r].
- self assert: #(1 #(2 4)) equals: result
- !
- testRootModelReturnsRoot
- | bb result |
- bb := Isolator on: #(1 #(2 3)).
- bb model: rootModel read: [:r|result := r].
- self assert: #(1 #(2 3)) equals: result
- ! !
|
