124 lines
2.5 KiB
Smalltalk
124 lines
2.5 KiB
Smalltalk
|
Class {
|
||
|
|
#name : 'PPContextMementoTest',
|
||
|
|
#superclass : 'TestCase',
|
||
|
|
#instVars : [
|
||
|
|
'memento'
|
||
|
|
],
|
||
|
|
#category : 'PetitTests-Tests'
|
||
|
|
}
|
||
|
|
|
||
|
|
{ #category : 'accessing' }
|
||
|
|
PPContextMementoTest >> memento [
|
||
|
|
^ PPContextMemento new
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'running' }
|
||
|
|
PPContextMementoTest >> setUp [
|
||
|
|
super setUp.
|
||
|
|
memento := self memento.
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'tests' }
|
||
|
|
PPContextMementoTest >> testEquality [
|
||
|
|
| m1 m2 |
|
||
|
|
m1 := self memento.
|
||
|
|
m2 := self memento.
|
||
|
|
|
||
|
|
self assert: m1 = m2.
|
||
|
|
|
||
|
|
m1 propertyAt: #foo put: #bar.
|
||
|
|
self assert: (m1 = m2) not.
|
||
|
|
|
||
|
|
m2 propertyAt: #foo put: #bar.
|
||
|
|
self assert: m1 = m2.
|
||
|
|
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'tests' }
|
||
|
|
PPContextMementoTest >> testEquality2 [
|
||
|
|
| m1 m2 |
|
||
|
|
m1 := self memento.
|
||
|
|
m2 := self memento.
|
||
|
|
|
||
|
|
self assert: m1 = m2.
|
||
|
|
|
||
|
|
m1 propertyAt: #foo put: #bar.
|
||
|
|
self assert: (m1 = m2) not.
|
||
|
|
|
||
|
|
m2 propertyAt: #bar put: #foo.
|
||
|
|
self assert: (m1 = m2) not.
|
||
|
|
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'tests' }
|
||
|
|
PPContextMementoTest >> testGetProperty [
|
||
|
|
|
||
|
|
| c retval retval2 |
|
||
|
|
c := OrderedCollection new.
|
||
|
|
|
||
|
|
memento propertyAt: #foo put: c.
|
||
|
|
|
||
|
|
retval := memento propertyAt: #foo.
|
||
|
|
self assert: retval size = c size.
|
||
|
|
self assert: (retval == c) not.
|
||
|
|
self assert: retval = c.
|
||
|
|
|
||
|
|
c add: #element.
|
||
|
|
self assert: (retval = c) not.
|
||
|
|
|
||
|
|
retval2 := memento propertyAt: #foo.
|
||
|
|
self assert: (retval = retval2).
|
||
|
|
self assert: (retval == retval2) not.
|
||
|
|
|
||
|
|
retval add: #element.
|
||
|
|
self assert: (retval = retval2) not.
|
||
|
|
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'tests' }
|
||
|
|
PPContextMementoTest >> testKeysAndValuesDo [
|
||
|
|
| |
|
||
|
|
memento keysAndValuesDo: [ :key :value |
|
||
|
|
self signalFailure: 'Should not be called'
|
||
|
|
].
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'tests' }
|
||
|
|
PPContextMementoTest >> testKeysAndValuesDo2 [
|
||
|
|
| c1 c2 |
|
||
|
|
c1 := OrderedCollection new.
|
||
|
|
c2 := OrderedCollection new.
|
||
|
|
|
||
|
|
memento propertyAt: #foo put: c1.
|
||
|
|
memento propertyAt: #bar put: c2.
|
||
|
|
|
||
|
|
memento keysAndValuesDo: [ :key :value |
|
||
|
|
self assert: (value == c1) not.
|
||
|
|
self assert: (value == c2) not.
|
||
|
|
].
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'tests' }
|
||
|
|
PPContextMementoTest >> testPutProperty [
|
||
|
|
| c retval |
|
||
|
|
c := OrderedCollection new.
|
||
|
|
self assert: (memento hasProperty: #foo) not.
|
||
|
|
self assert: (memento hasProperty: #bar) not.
|
||
|
|
|
||
|
|
self should: [ memento propertyAt: #foo ] raise: Error.
|
||
|
|
self assert: (memento propertyAt: #foo ifAbsent: [ c ]) == c.
|
||
|
|
|
||
|
|
retval := memento propertyAt: #foo ifAbsentPut: [ c ].
|
||
|
|
self assert: retval size = c size.
|
||
|
|
self assert: (retval == c) not.
|
||
|
|
self assert: retval = c.
|
||
|
|
self assert: (memento hasProperty: #foo).
|
||
|
|
|
||
|
|
retval := memento propertyAt: #bar put: c.
|
||
|
|
self assert: retval size = c size.
|
||
|
|
self assert: (retval == c) not.
|
||
|
|
self assert: retval = c.
|
||
|
|
self assert: (memento hasProperty: #foo).
|
||
|
|
|
||
|
|
]
|