"{ 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 name asSymbol == #TestSuitesHierarchyScriptTest.
subCase := (allTestCaseClasses at: 2) tests first.
self assert: subCase class name asSymbol == #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 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"
!
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 name asSymbol = #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.6 2011-06-29 19:15:49 cg Exp $'
!
version_SVN
^ '§Id: TestSuitesScriptTest.st 182 2009-12-05 18:12:17Z vranyj1 §'
! !