compiler/tests/PPCTokenizingTest.st
changeset 535 a8feb0f47574
parent 534 a949c4fe44df
child 537 fb212e14d1f4
--- a/compiler/tests/PPCTokenizingTest.st	Sat Aug 29 07:56:14 2015 +0100
+++ b/compiler/tests/PPCTokenizingTest.st	Fri Sep 04 14:06:56 2015 +0100
@@ -46,14 +46,15 @@
 setUp
     options := PPCCompilationOptions default
         profile: true;
+        tokenize: true;
         yourself.
         
-    configuration := PPCTokenizingConfiguration new.
+    configuration := PPCConfiguration new.
     configuration context options: options.
 
     self cleanClass.
 
-    "Modified: / 28-08-2015 / 14:20:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 16:21:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 tearDown
@@ -482,8 +483,8 @@
 
 testWhitespace
     | token ws trimmingToken |
-    options inline: false.
-    
+
+    configuration removePass: PPCInliningVisitor.    
     token := 'foo' asParser token.
     ws := #blank asParser star name: 'consumeWhitespace'; yourself.
     trimmingToken := ((ws, token, ws) ==> #second) 
@@ -498,13 +499,13 @@
 
     self assert: (context invocations select: [:e | e = #scan_consumeWhitespace ]) size = 3.
 
-    "Modified: / 04-09-2015 / 06:13:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 15:02:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testWhitespace2
     | token ws trimmingToken |
-    options inline: false.
-        
+
+    configuration removePass: PPCInliningVisitor.    
     token := 'foo' asParser token.
     ws := #blank asParser star name: 'consumeWhitespace'; yourself.
     trimmingToken := ((ws, token, ws) ==> #second) 
@@ -520,13 +521,13 @@
 
     self assert: (context invocations select: [:e | e = #scan_consumeWhitespace ]) size = 4.
 
-    "Modified: / 04-09-2015 / 06:13:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 15:02:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testWhitespace3
     | token ws trimmingToken |
-    options inline: false.
-        
+
+    configuration removePass: PPCInliningVisitor.    
     token := 'foo' asParser token.
     ws := #blank asParser star name: 'consumeWhitespace'; yourself.
     trimmingToken := ((ws, token, ws) ==> #second) 
@@ -543,6 +544,6 @@
 
     self assert: (context invocations select: [:e | e = #scan_consumeWhitespace ]) size = 5.
 
-    "Modified: / 04-09-2015 / 06:13:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 15:02:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !