"{ Package: 'stx:goodies/sunit' }"
SUnitTest subclass:#TestSuitesScriptTest
instanceVariableNames:'scripter suite'
classVariableNames:''
poolDictionaries:''
category:'SUnit-Tests'
!
!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"
! !
!TestSuitesScriptTest class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuitesScriptTest.st,v 1.4 2002-02-26 10:30:36 cg Exp $'
! !