--- a/tests/PPExtensionTest.st Fri Oct 03 03:11:33 2014 +0100
+++ b/tests/PPExtensionTest.st Sun Oct 05 00:05:20 2014 +0100
@@ -72,13 +72,13 @@
testRange
| parser |
- parser := ($a to: $c) asParser.
+ parser := (Interval from: $a to: $c) asParser.
self assert: parser parse: 'a' to: $a.
self assert: parser parse: 'b' to: $b.
self assert: parser parse: 'c' to: $c.
self assert: parser fail: 'd'
- "Modified: / 03-10-2014 / 03:07:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 05-10-2014 / 00:02:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testSequence