--- a/compiler/tests/extras/PPCSmalltalkTests.st	Tue Aug 18 22:46:10 2015 +0100
+++ b/compiler/tests/extras/PPCSmalltalkTests.st	Mon Aug 24 15:56:20 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 TestCase subclass:#PPCSmalltalkTests
-	instanceVariableNames:'configuration arguments'
+	instanceVariableNames:'configuration arguments result'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Extras-Tests-Smalltalk'
@@ -11,14 +11,9 @@
 
 !PPCSmalltalkTests methodsFor:'as yet unclassified'!
 
-configuration
-    arguments := PPCArguments default
-        profile: true;
-        yourself.
-        
-    ^ PPCTokenizingConfiguration new
-        arguments: arguments;
-        yourself.
+assert: parser parse: input
+    result := parser parse: input.
+    self assert: result isPetitFailure not.
 !
 
 setUp
@@ -33,13 +28,25 @@
 
 testSmalltakToken
     | token1  |
-    configuration := self configuration.
     token1 := 'a' asParser smalltalkToken compileWithConfiguration: configuration.
     
     self assert: ((token1 parse: 'a') class == PPSmalltalkToken).
     self assert: (token1 parse: '"comment" a "another comment"') inputValue = 'a'
 !
 
+testSmalltakToken2
+    | parser compiled  |
+    parser := 'a' asParser smalltalkToken, 'b' asParser smalltalkToken.
+    compiled := parser compileWithConfiguration: configuration.
+    
+    self assert: compiled parse: 'ab'.
+    self assert: compiled parse: '"comment" a "another comment" b '.
+    self assert: result size = 2.
+    self assert: result first inputValue = 'a'.
+    self assert: result second inputValue = 'b'.
+    
+!
+
 testSmalltakWhitespace
     | ws1 ws2 |
     ws1 := PPSmalltalkWhitespaceParser new.