--- a/tests/PPExtensionTest.st Mon Nov 03 12:47:37 2014 +0000
+++ b/tests/PPExtensionTest.st Mon Nov 03 11:33:28 2014 +0000
@@ -53,17 +53,6 @@
self assert: parser asParser equals: parser
!
-testOrdered
- | parser |
- parser := #(1 2) asParser.
- self assert: parser parse: #(1 2) to: #(1 2).
- self assert: parser parse: #(1 2 3) to: #(1 2) end: 2.
- self assert: parser fail: #().
- self assert: parser fail: #(1).
- self assert: parser fail: #(1 1).
- self assert: parser fail: #(1 1 2)
-!
-
testParser
| parser |
parser := $a asParser.