4 	instanceVariableNames:'tests'

     4 	instanceVariableNames:'tests'

     5 	classVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     6 	poolDictionaries:''

     7 	category:'SUnit-Base'

     7 	category:'SUnit-Base'

     8 !

     8 !

     9 

    10 

    10 !TestSuite methodsFor:'Accessing'!

    11 !TestSuite methodsFor:'Accessing'!

    11 

    12 

    12 addTest: aTest

    13 addTest: aTest

    13 	self tests add: aTest

    14 	self tests add: aTest

    54 		each run: aResult]

    55 		each run: aResult]

    55 

    56 

    56     "Modified: / 21.6.2000 / 10:14:01 / Sames"

    57     "Modified: / 21.6.2000 / 10:14:01 / Sames"

    57 ! !

    58 ! !

    58 

    59