equal
deleted
inserted
replaced
12 !PPCScannerCodeGeneratorTest methodsFor:'as yet unclassified'! |
12 !PPCScannerCodeGeneratorTest methodsFor:'as yet unclassified'! |
13 |
13 |
14 fail: stream rule: rule |
14 fail: stream rule: rule |
15 scanner initialize. |
15 scanner initialize. |
16 scanner stream: stream asPetitStream. |
16 scanner stream: stream asPetitStream. |
17 scanner perform: rule. |
17 scanner perform: ('scan_', rule) asSymbol. |
18 |
18 |
19 result := scanner polyResult. |
19 result := scanner polyResult. |
20 |
20 |
21 self assert: result isEmpty |
21 self assert: result isEmpty |
22 ! |
22 ! |
26 ! |
26 ! |
27 |
27 |
28 parse: stream token: token rule: rule position: position |
28 parse: stream token: token rule: rule position: position |
29 scanner initialize. |
29 scanner initialize. |
30 scanner stream: stream asPetitStream. |
30 scanner stream: stream asPetitStream. |
31 scanner perform: rule. |
31 scanner perform: ('scan_', rule) asSymbol. |
32 result := scanner polyResult. |
32 result := scanner polyResult. |
33 |
33 |
34 self assert: (result at: token) = position. |
34 self assert: (result at: token) = position. |
35 ! |
35 ! |
36 |
36 |