compiler/tests/PPCTokenizingTest.st
changeset 534 a949c4fe44df
parent 529 439c4057517f
child 535 a8feb0f47574
--- a/compiler/tests/PPCTokenizingTest.st	Wed Aug 26 23:34:48 2015 +0100
+++ b/compiler/tests/PPCTokenizingTest.st	Sat Aug 29 07:56:14 2015 +0100
@@ -48,13 +48,12 @@
         profile: true;
         yourself.
         
-    configuration := PPCTokenizingConfiguration new
-        options: options;
-        yourself.
-        
+    configuration := PPCTokenizingConfiguration new.
+    configuration context options: options.
+
     self cleanClass.
 
-    "Modified: / 24-08-2015 / 23:40:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-08-2015 / 14:20:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 tearDown
@@ -483,7 +482,7 @@
 
 testWhitespace
     | token ws trimmingToken |
-    configuration options inline: false.
+    options inline: false.
     
     token := 'foo' asParser token.
     ws := #blank asParser star name: 'consumeWhitespace'; yourself.
@@ -498,11 +497,13 @@
     self assert: result first inputValue = 'foo'.
 
     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>"
 !
 
 testWhitespace2
     | token ws trimmingToken |
-    configuration options inline: false.
+    options inline: false.
         
     token := 'foo' asParser token.
     ws := #blank asParser star name: 'consumeWhitespace'; yourself.
@@ -518,11 +519,13 @@
     self assert: result second inputValue = 'foo'.
 
     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>"
 !
 
 testWhitespace3
     | token ws trimmingToken |
-    configuration options inline: false.
+    options inline: false.
         
     token := 'foo' asParser token.
     ws := #blank asParser star name: 'consumeWhitespace'; yourself.
@@ -539,5 +542,7 @@
     self assert: result third inputValue = 'foo'.
 
     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>"
 ! !