--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TestSuitesScriptTest.st	Wed Oct 25 17:51:59 2000 +0200
@@ -0,0 +1,103 @@
+'From Smalltalk/X, Version:4.1.1 on 24-oct-2000 at 08:11:03 pm'                 !
+
+"{ Package: 'stx:goodies/sunit' }"
+
+SUnitTest subclass:#TestSuitesScriptTest
+	instanceVariableNames:'scripter suite'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'SUnitTests'
+!
+
+!TestSuitesScriptTest methodsFor:'Running'!
+
+setUp
+	scripter := TestSuitesScripter new.! !
+
+!TestSuitesScriptTest methodsFor:'Testing'!
+
+testCompoundScript
+	| allTestCaseClasses superCase subCase |
+	allTestCaseClasses := (scripter run: 'TestSuitesHierarchyScriptTest TestSuitesCompoundScriptTest') tests. 
+	self assert: allTestCaseClasses size = 2.
+	superCase := (allTestCaseClasses at: 1) tests first.
+	self assert: superCase class sunitName sunitAsSymbol = #TestSuitesHierarchyScriptTest.
+	subCase := (allTestCaseClasses at: 2) tests first.
+	self assert: subCase class sunitName sunitAsSymbol = #TestSuitesCompoundScriptTest.
+
+    "Modified: / 21.6.2000 / 10:26:48 / Sames"
+!
+
+testEmbeddedNameCommentScript
+	suite := scripter run: ' "This comment contains the name of a SUnitTest Case"  TestSuitesScriptTest'.
+	self assert: suite tests size = 1
+
+    "Modified: / 21.6.2000 / 10:27:02 / Sames"
+!
+
+testEmptyCommentScript
+	suite := scripter run: ' " " TestSuitesScriptTest'.
+	self assert: suite tests size = 1
+
+    "Modified: / 21.6.2000 / 10:27:14 / Sames"
+!
+
+testEmptyHierachyScript
+	suite := scripter run: '*'.
+	self assert: suite tests isEmpty
+
+    "Modified: / 21.6.2000 / 10:27:24 / Sames"
+!
+
+testEmptyScript
+	suite := scripter run: ''.
+	self assert: suite tests isEmpty
+
+    "Modified: / 21.6.2000 / 10:27:39 / Sames"
+!
+
+testHierachyScript
+	| allTestCaseClasses superCase subCase |
+	suite := scripter run: 'TestSuitesHierarchyScriptTest*'.
+	allTestCaseClasses := suite tests. 
+	self assert: allTestCaseClasses size = 1.
+	superCase := (allTestCaseClasses first tests at: 1) tests first.
+	self assert: superCase class sunitName sunitAsSymbol = #TestSuitesHierarchyScriptTest.
+	subCase := (allTestCaseClasses first tests at: 2) tests first.
+	self assert: subCase class sunitName sunitAsSymbol = #TestSuitesCompoundScriptTest.
+
+    "Modified: / 21.6.2000 / 10:28:02 / Sames"
+!
+
+testOpenCommentScript
+	suite := scripter run: ' "SUnitTest'.
+	self assert: suite tests isEmpty
+
+    "Modified: / 21.6.2000 / 10:28:18 / Sames"
+!
+
+testSimpleScript
+	| allTestCaseClasses case |
+	suite := scripter run: 'TestSuitesHierarchyScriptTest'.
+	allTestCaseClasses := suite tests.
+	self assert: allTestCaseClasses size = 1.
+	case := (allTestCaseClasses at: 1) tests at: 1.
+	self assert: case class sunitName sunitAsSymbol = #TestSuitesHierarchyScriptTest.
+
+    "Modified: / 21.6.2000 / 10:28:35 / Sames"
+!
+
+testSingleWordCommentScript
+	suite := scripter run: ' "SUnitTest" TestSuitesScriptTest'.
+	self assert: suite tests size = 1
+
+    "Modified: / 21.6.2000 / 10:28:47 / Sames"
+!
+
+testTwoCommentsScript
+	suite := scripter run: ' " SUnitTest "  " SUnitTest " TestSuitesScriptTest'.
+	self assert: suite tests size = 1
+
+    "Modified: / 21.6.2000 / 10:28:59 / Sames"
+! !
+