equal
deleted
inserted
replaced
136 result := visitor visit: node. |
136 result := visitor visit: node. |
137 |
137 |
138 self assert: result type: PPCNotCharSetPredicateNode. |
138 self assert: result type: PPCNotCharSetPredicateNode. |
139 ! |
139 ! |
140 |
140 |
|
141 testNotCharacter |
|
142 node := self asNode: $: asParser not. |
|
143 result := visitor visit: node. |
|
144 |
|
145 self assert: result type: PPCNotCharacterNode. |
|
146 self assert: result character = $:. |
|
147 ! |
|
148 |
141 testNotLiteral |
149 testNotLiteral |
142 node := self asNode: 'foo' asParser not. |
150 node := self asNode: 'foo' asParser not. |
143 result := visitor visit: node. |
151 result := visitor visit: node. |
144 |
152 |
145 self assert: result type: PPCNotLiteralNode. |
153 self assert: result type: PPCNotLiteralNode. |