--- a/TestCase.st	Sun Sep 08 00:54:10 2019 +0200
+++ b/TestCase.st	Sun Nov 17 15:31:29 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/sunit' }"
 
 "{ NameSpace: Smalltalk }"
@@ -634,6 +636,12 @@
     "Modified: / 15-12-2012 / 17:20:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+assertEmpty:aCollection
+    <resource: #skipInDebuggersWalkBack>
+
+    ^ self assert:(aCollection isEmpty)
+!
+
 assertFalse:aBoolean
     <resource: #skipInDebuggersWalkBack>