equal
deleted
inserted
replaced
49 |
49 |
50 testEpsilon |
50 testEpsilon |
51 | parser | |
51 | parser | |
52 parser := nil asParser. |
52 parser := nil asParser. |
53 self assert: parser asParser equals: parser |
53 self assert: parser asParser equals: parser |
54 ! |
|
55 |
|
56 testOrdered |
|
57 | parser | |
|
58 parser := #(1 2) asParser. |
|
59 self assert: parser parse: #(1 2) to: #(1 2). |
|
60 self assert: parser parse: #(1 2 3) to: #(1 2) end: 2. |
|
61 self assert: parser fail: #(). |
|
62 self assert: parser fail: #(1). |
|
63 self assert: parser fail: #(1 1). |
|
64 self assert: parser fail: #(1 1 2) |
|
65 ! |
54 ! |
66 |
55 |
67 testParser |
56 testParser |
68 | parser | |
57 | parser | |
69 parser := $a asParser. |
58 parser := $a asParser. |