1 "{ Package: 'stx:goodies/sunit' }"

     3 "{ Package: 'stx:goodies/sunit' }"

     2 

     4 

     3 "{ NameSpace: Smalltalk }"

     5 "{ NameSpace: Smalltalk }"

     4 

     6 

     5 Object subclass:#TestAsserter

     7 Object subclass:#TestAsserter

   120 

   122 

   121 assert:aBooleanOrBlock description:aString

   123 assert:aBooleanOrBlock description:aString

   122     "fail the testCase if aBooleanOrBlock evaluates to false, 

   124     "fail the testCase if aBooleanOrBlock evaluates to false, 

   123      and report aStringOrBlock's value as failure-description."

   125      and report aStringOrBlock's value as failure-description."

   124 

   126 

   126 

   128 

   127     ^ self assert:aBooleanOrBlock description:aString resumable: false.

   129     ^ self assert:aBooleanOrBlock description:aString resumable: false.

   128 

   130 

   129     "Modified: / 11-09-2010 / 15:34:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   131     "Modified: / 11-09-2010 / 15:34:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   130     "Modified (format): / 09-11-2017 / 10:03:58 / cg"

   132     "Modified (format): / 09-11-2017 / 10:03:58 / cg"