Mercurial Mercurial > hg > stx-goodies-sunit / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge SUnit 3.1 changes
authorStefan Vogel <sv@exept.de>
Fri, 26 Sep 2003 18:00:27 +0200
changeset 107 ad958df506d7
parent 106 f5bd218630d4
child 108 7509607479f5
Merge SUnit 3.1 changes Don't use the sunit method wrappers (#sunitName)
TestSuitesScriptTest.st file | annotate | diff | comparison | revisions 
--- a/TestSuitesScriptTest.st	Fri Sep 26 17:57:59 2003 +0200
+++ b/TestSuitesScriptTest.st	Fri Sep 26 18:00:27 2003 +0200
@@ -17,13 +17,13 @@
 !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.
+        | allTestCaseClasses superCase subCase |
+        allTestCaseClasses := (scripter run: 'TestSuitesHierarchyScriptTest TestSuitesCompoundScriptTest') tests. 
+        self assert: allTestCaseClasses size = 2.
+        superCase := (allTestCaseClasses at: 1) tests first.
+        self assert: superCase class name asSymbol == #TestSuitesHierarchyScriptTest.
+        subCase := (allTestCaseClasses at: 2) tests first.
+        self assert: subCase class name asSymbol == #TestSuitesCompoundScriptTest.
 
     "Modified: / 21.6.2000 / 10:26:48 / Sames"
 !
@@ -57,14 +57,14 @@
 !
 
 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.
+        | 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 name asSymbol = #TestSuitesHierarchyScriptTest.
+        subCase := (allTestCaseClasses first tests at: 2) tests first.
+        self assert: subCase class name asSymbol = #TestSuitesCompoundScriptTest.
 
     "Modified: / 21.6.2000 / 10:28:02 / Sames"
 !
@@ -77,12 +77,12 @@
 !
 
 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.
+        | 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 name asSymbol = #TestSuitesHierarchyScriptTest.
 
     "Modified: / 21.6.2000 / 10:28:35 / Sames"
 !
@@ -104,5 +104,5 @@
 !TestSuitesScriptTest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuitesScriptTest.st,v 1.4 2002-02-26 10:30:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuitesScriptTest.st,v 1.5 2003-09-26 16:00:27 stefan Exp $'
 ! !
hg/stx-goodies-sunit