--- a/compiler/tests/PPCLL1OptimizingTest.st	Wed May 20 16:47:52 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,78 +0,0 @@
-"{ Package: 'stx:goodies/petitparser/compiler/tests' }"
-
-"{ NameSpace: Smalltalk }"
-
-TestCase subclass:#PPCLL1OptimizingTest
-	instanceVariableNames:'configuration parser result'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'PetitCompiler-Tests-Core'
-!
-
-!PPCLL1OptimizingTest methodsFor:'as yet unclassified'!
-
-assert: object type: class
-    self assert: (object isKindOf: class)
-!
-
-configuration
-    configuration := PPCLL1Configuration new.
-    configuration arguments generate: false.
-    ^ configuration
-!
-
-optimize: aPPParser
-    ^ self configuration compile: aPPParser.
-!
-
-testCompileToken
-    parser := 'foo' asParser token.
-    result := self optimize: parser.
-    
-    self assert: result type: PPCTokenizingParserNode.
-    self assert: result parser type: PPCTokenConsumeNode.
-    self assert: result parser child type: PPCTokenNode.
-    self assert: result parser child child literal = 'foo'.
-!
-
-testCompileTrim
-    parser := 'foo' asParser token trim.
-    result := self optimize: parser.
-    
-    self assert: result type: PPCTokenizingParserNode.
-    self assert: result parser type: PPCTokenConsumeNode.
-    self assert: result parser child type: PPCTrimmingTokenNode.
-    self assert: result parser child whitespace type: PPCTokenStarSeparatorNode.
-!
-
-testCompileTrimmingToken
-    parser := 'foo' asParser trimmingToken.
-    result := self optimize: parser.
-    
-    self assert: result type: PPCTokenizingParserNode.
-    self assert: result parser type: PPCTokenConsumeNode.
-    self assert: result parser child type: PPCTrimmingTokenNode.
-    self assert: result parser child whitespace type: PPCTokenStarSeparatorNode.
-    
-    self assert: result tokenizer children size = 2.
-    self assert: (result tokenizer children anySatisfy: [ :e | e isKindOf: PPCTrimmingTokenNode ])
-!
-
-testCompileTrimmingToken2
-    | token |
-    token := 'foo' asParser trimmingToken.
-    parser := token wrapped
-        name: 'fooToken';
-        yourself.
-    result := self optimize: parser.
-    
-    self assert: result type: PPCTokenizingParserNode.
-    self assert: result parser type: PPCTokenConsumeNode.
-    self assert: result parser name = 'fooToken'.
-    self assert: result parser child name = 'token_fooToken'.
-    
-    self assert: result tokenizer children size = 2.
-    self assert: (result tokenizer children anySatisfy: [ :e | e isKindOf: PPCTrimmingTokenNode ]).
-    self assert: (result tokenizer children anySatisfy: [ :e | e name = 'token_fooToken']).
-! !
-