equal
deleted
inserted
replaced
517 |
517 |
518 self assert: parser fail: 'a'. |
518 self assert: parser fail: 'a'. |
519 self assert: parser parse: '' to: nil end: 0. |
519 self assert: parser parse: '' to: nil end: 0. |
520 ! |
520 ! |
521 |
521 |
|
522 testNotCharacterNode |
|
523 node := PPCNotCharacterNode new |
|
524 character: $: |
|
525 yourself. |
|
526 |
|
527 self compileTree: node. |
|
528 |
|
529 self assert: parser parse: 'a' to: nil end: 0. |
|
530 self assert: parser fail: ':'. |
|
531 self assert: parser parse: '' to: nil end: 0. |
|
532 ! |
|
533 |
522 testNotLiteralNode |
534 testNotLiteralNode |
523 | literalNode | |
535 | literalNode | |
524 literalNode := PPCNotLiteralNode new |
536 literalNode := PPCNotLiteralNode new |
525 literal: 'foo'; |
537 literal: 'foo'; |
526 yourself. |
538 yourself. |