--- a/TestSuite.st Thu Sep 21 14:15:44 2017 +0200
+++ b/TestSuite.st Thu Oct 12 13:58:48 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:goodies/sunit' }"
"{ NameSpace: Smalltalk }"
@@ -105,6 +107,16 @@
self tests do: [ :each | each removeDependentFromHierachy: anObject]
! !
+!TestSuite methodsFor:'printing'!
+
+printOn:aStream
+ aStream
+ nextPutAll:self class nameWithoutPrefix;
+ nextPutAll:'[';
+ nextPutAll:self name ? '???';
+ nextPutAll:']'.
+! !
+
!TestSuite methodsFor:'queries'!
isTestCase