--- 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>"
! !