--- a/TestCase.st Thu Dec 14 14:08:04 2000 +0100
+++ b/TestCase.st Thu Dec 14 14:08:21 2000 +0100
@@ -124,12 +124,12 @@
!TestCase methodsFor:'Private'!
executeShould: aBlock inScopeOf: anExceptionalEvent
- [[aBlock value]
- sunitOn: anExceptionalEvent
- do: [:ex | ^true]]
- sunitOn: TestResult error
- do: [:ex | ^false].
- ^false.
+ [[aBlock value]
+ on: anExceptionalEvent
+ do: [:ex | ^true]]
+ on: TestResult error
+ do: [:ex | ^false].
+ ^false.
"Modified: / 21.6.2000 / 10:03:03 / Sames"
!
@@ -193,6 +193,6 @@
!TestCase class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.8 2000-12-10 13:19:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.9 2000-12-14 13:08:19 cg Exp $'
! !
TestCase initialize!
--- a/TestResult.st Thu Dec 14 14:08:04 2000 +0100
+++ b/TestResult.st Thu Dec 14 14:08:21 2000 +0100
@@ -112,18 +112,18 @@
!TestResult methodsFor:'Running'!
runCase: aTestCase
- runCount := runCount + 1.
- [[aTestCase runCase]
- sunitOn: self class failure
- do:
- [:signal |
- self failures add: aTestCase.
- signal sunitExitWith: nil]]
- sunitOn: self class error
- do:
- [:signal |
- self errors add: aTestCase.
- signal sunitExitWith: nil]
+ runCount := runCount + 1.
+ [[aTestCase runCase]
+ on: self class failure
+ do:
+ [:signal |
+ self failures add: aTestCase.
+ signal sunitExitWith: nil]]
+ on: self class error
+ do:
+ [:signal |
+ self errors add: aTestCase.
+ signal sunitExitWith: nil]
"Modified: / 21.6.2000 / 10:10:06 / Sames"
! !
@@ -141,5 +141,5 @@
!TestResult class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.3 2000-12-10 13:21:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.4 2000-12-14 13:08:21 cg Exp $'
! !