author | Claus Gittinger <cg@exept.de> |
Thu, 13 Jul 2017 15:13:53 +0200 | |
changeset 686 | 7e6f03915ad9 |
parent 685 | 00195d0e5ebc |
child 687 | e8513ab11939 |
TestCase.st | file | annotate | diff | comparison | revisions |
--- a/TestCase.st Thu Jul 13 15:11:26 2017 +0200 +++ b/TestCase.st Thu Jul 13 15:13:53 2017 +0200 @@ -432,12 +432,14 @@ !TestCase class methodsFor:'quick testing'! -assert: aBoolean - ^ self new assert: aBoolean +assert: aBooleanOrBlock + ^ self new assert: aBooleanOrBlock " TestCase assert: true " + + "Modified (format): / 13-07-2017 / 15:13:29 / cg" ! should: aBlock raise: anError