equal
deleted
inserted
replaced
4 |
4 |
5 TestCase subclass:#PPCGuardTest |
5 TestCase subclass:#PPCGuardTest |
6 instanceVariableNames:'guard compiler' |
6 instanceVariableNames:'guard compiler' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Tests-Core' |
9 category:'PetitCompiler-Tests-Guards' |
10 ! |
10 ! |
11 |
11 |
12 |
12 |
13 !PPCGuardTest methodsFor:'as yet unclassified'! |
13 !PPCGuardTest methodsFor:'as yet unclassified'! |
14 |
14 |
39 guard := PPCGuard new initializeFor: ($a asParser, (#letter asParser / #digit asParser)) asCompilerTree. |
39 guard := PPCGuard new initializeFor: ($a asParser, (#letter asParser / #digit asParser)) asCompilerTree. |
40 guard id: #foo. |
40 guard id: #foo. |
41 guard compileGuard: compiler. |
41 guard compileGuard: compiler. |
42 |
42 |
43 self assert: compiler lines size = 1. |
43 self assert: compiler lines size = 1. |
44 self assert: compiler lines first = ('(context peek = ', $a storeString ,')'). |
44 self assert: compiler lines first = ('(context peek == ', $a storeString ,')'). |
45 ! |
45 ! |
46 |
46 |
47 testCompiling4 |
47 testCompiling4 |
48 guard := PPCGuard new initializeFor: ('foo' asParser / 'foobar' asParser) asCompilerTree. |
48 guard := PPCGuard new initializeFor: ('foo' asParser / 'foobar' asParser) asCompilerTree. |
49 guard id: #foo. |
49 guard id: #foo. |
50 guard compileGuard: compiler. |
50 guard compileGuard: compiler. |
51 |
51 |
52 self assert: compiler lines size = 1. |
52 self assert: compiler lines size = 1. |
53 self assert: compiler lines first = ('(context peek = ', $f storeString ,')'). |
53 self assert: compiler lines first = ('(context peek == ', $f storeString ,')'). |
54 ! |
54 ! |
55 |
55 |
56 testIdentifierToken |
56 testIdentifierToken |
57 | id ws letterNode node | |
57 | id ws letterNode node | |
58 letterNode := PPCMessagePredicateNode new |
58 letterNode := PPCMessagePredicateNode new |