UI testing: wait until event queue empties
...when `#do:`ing an user action. This is necessary
for widget/tools that pushes more work back onto an even
queue (in order to make the system more responsive).
"{ Package: 'stx:goodies/sunit' }"
"{ NameSpace: Smalltalk }"
TestCase subclass:#ExampleSetTest
instanceVariableNames:'full empty'
classVariableNames:''
poolDictionaries:''
category:'SUnit-Tests'
!
!ExampleSetTest methodsFor:'running'!
setUp
empty := Set new.
full := Set with: 5 with: #abc
! !
!ExampleSetTest methodsFor:'testing'!
testAdd
empty add: 5.
self assert: (empty includes: 5)
!
testGrow
empty addAll: (1 to: 100).
self assert: empty size = 100
!
testIllegal
self
should: [empty at: 5]
raise: TestResult error.
self
should: [empty at: 5 put: #abc]
raise: TestResult error
!
testIncludes
self assert: (full includes: 5).
self assert: (full includes: #abc)
!
testOccurrences
self assert: (empty occurrencesOf: 0) = 0.
self assert: (full occurrencesOf: 5) = 1.
full add: 5.
self assert: (full occurrencesOf: 5) = 1
!
testRemove
full remove: 5.
self assert: (full includes: #abc).
self deny: (full includes: 5)
! !
!ExampleSetTest class methodsFor:'documentation'!
version_SVN
^ '§Id: ExampleSetTest.st 214 2011-03-14 12:22:21Z vranyj1 §'
! !