changeset 686 | 7e6f03915ad9 |
parent 685 | 00195d0e5ebc |
child 688 | e2428b24d753 |
--- 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