--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TestSuite.st	Wed Oct 25 17:51:59 2000 +0200
@@ -0,0 +1,56 @@
+'From Smalltalk/X, Version:4.1.1 on 24-oct-2000 at 08:10:32 pm'                 !
+
+"{ Package: 'stx:goodies/sunit' }"
+
+Object subclass:#TestSuite
+	instanceVariableNames:'tests'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'SUnit'
+!
+
+!TestSuite methodsFor:'Accessing'!
+
+addTest: aTest
+	self tests add: aTest!
+
+addTests: aCollection 
+	aCollection do: [:eachTest | self addTest: eachTest]!
+
+tests
+	tests isNil ifTrue: [tests := OrderedCollection new].
+	^tests! !
+
+!TestSuite methodsFor:'Dependencies'!
+
+addDependentToHierachy: anObject
+	self sunitAddDependent: anObject.
+	self tests do: [:each | each addDependentToHierachy: anObject]
+
+    "Modified: / 21.6.2000 / 10:13:35 / Sames"
+!
+
+removeDependentFromHierachy: anObject
+	self sunitRemoveDependent: anObject.
+	self tests do: [:each | each removeDependentFromHierachy: anObject]
+
+    "Modified: / 21.6.2000 / 10:13:27 / Sames"
+! !
+
+!TestSuite methodsFor:'Running'!
+
+run
+	| result |
+	result := TestResult new.
+	self run: result.
+	^result!
+
+run: aResult 
+	self tests do: 
+		[:each | 
+		self sunitChanged: each.
+		each run: aResult]
+
+    "Modified: / 21.6.2000 / 10:14:01 / Sames"
+! !
+