--- a/TestCase.st Fri May 11 09:56:31 2018 +0200
+++ b/TestCase.st Thu May 17 10:15:18 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"{ Package: 'stx:goodies/sunit' }"
"{ NameSpace: Smalltalk }"
@@ -659,6 +657,17 @@
self assert: aBlock value
!
+should:result be:expected
+ <resource: #skipInDebuggersWalkBack>
+
+ ^ self assert: (result = expected)
+ description: 'should be ' , expected asString , ', but it''s ' , result asString
+
+ "
+ self new should:5 be:6
+ "
+!
+
should: aBlock description: aString
<resource: #skipInDebuggersWalkBack>