equal
deleted
inserted
replaced
6 instanceVariableNames:'parser result context resource fileResources' |
6 instanceVariableNames:'parser result context resource fileResources' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Extras-Tests-Smalltalk' |
9 category:'PetitCompiler-Extras-Tests-Smalltalk' |
10 ! |
10 ! |
11 |
|
12 |
11 |
13 !PPCSmalltalkGrammarVerificationTest class methodsFor:'as yet unclassified'! |
12 !PPCSmalltalkGrammarVerificationTest class methodsFor:'as yet unclassified'! |
14 |
13 |
15 resources |
14 resources |
16 ^ (OrderedCollection with: PPCResources) |
15 ^ (OrderedCollection with: PPCResources) |
62 compiledParser := self compiledParser. |
61 compiledParser := self compiledParser. |
63 |
62 |
64 fileResources smalltalkSourcesBig do: [ :source | |
63 fileResources smalltalkSourcesBig do: [ :source | |
65 expected := normalParser parse: source. |
64 expected := normalParser parse: source. |
66 expected isPetitFailure ifFalse: [ |
65 expected isPetitFailure ifFalse: [ |
67 actual := (compiledParser parse: source withContext: self context). |
66 actual := (compiledParser parse: source withContext: self context). |
68 self assert: expected equals: actual. |
67 self assert: expected equals: actual. |
69 ] |
68 ] |
70 ]. |
69 ]. |
71 ! |
70 ! |
72 |
71 |
90 self assert: (normalParser parse: source) |
89 self assert: (normalParser parse: source) |
91 equals: (compiledParser parse: source withContext: self context). |
90 equals: (compiledParser parse: source withContext: self context). |
92 ]. |
91 ]. |
93 ! ! |
92 ! ! |
94 |
93 |
95 !PPCSmalltalkGrammarVerificationTest class methodsFor:'documentation'! |
|
96 |
|
97 version |
|
98 ^ 'Path: stx/goodies/petitparser/compiler/tests/extras/PPCSmalltalkVerificationTest.st, Version: 1.0, User: jv, Time: 2015-07-30T08:07:11.283+01' |
|
99 ! |
|
100 |
|
101 version_HG |
|
102 ^ 'Path: stx/goodies/petitparser/compiler/tests/extras/PPCSmalltalkVerificationTest.st, Version: 1.0, User: jv, Time: 2015-07-30T08:07:11.283+01' |
|
103 ! ! |
|
104 |
|