--- a/compiler/tests/extras/PPCCompositeParserTest.st Thu Jul 30 17:31:18 2015 +0100
+++ b/compiler/tests/extras/PPCCompositeParserTest.st Fri Jul 31 07:57:23 2015 +0100
@@ -30,13 +30,24 @@
!PPCCompositeParserTest class methodsFor:'utilities'!
generateTestsFor: baseTestClass
- | compiledBaseTestClassName compiledBaseTestClass compiledUniversalTestClass compiledTokenizedTestClass |
+ | compiledBaseTestClassName |
compiledBaseTestClassName := (baseTestClass name startsWith: 'PP')
ifTrue:[ 'PPC' , (baseTestClass name copyFrom: 3 to: baseTestClass name size) ]
ifFalse:[ 'PPC' , baseTestClass name ].
compiledBaseTestClassName := compiledBaseTestClassName asSymbol.
+ ^ self generateTestsFor: baseTestClass compiledBaseTestCaseName: compiledBaseTestClassName
+
+ "Created: / 30-07-2015 / 07:10:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 31-07-2015 / 07:27:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+generateTestsFor: baseTestClass compiledBaseTestCaseName: compiledBaseTestClassName
+ | compiledBaseTestClass compiledUniversalTestClass compiledTokenizedTestClass |
+
+
+
compiledBaseTestClass := baseTestClass subclass:compiledBaseTestClassName
instanceVariableNames:''
classVariableNames:''
@@ -85,7 +96,7 @@
^ PPCConfiguration tokenizing'
classified: 'accessing'.
- "Created: / 30-07-2015 / 07:10:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 31-07-2015 / 07:26:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!PPCCompositeParserTest methodsFor:'accessing'!