equal
deleted
inserted
replaced
4 |
4 |
5 PPSmalltalkGrammarTests subclass:#PPCSmalltalkGrammarTests |
5 PPSmalltalkGrammarTests subclass:#PPCSmalltalkGrammarTests |
6 instanceVariableNames:'' |
6 instanceVariableNames:'' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Extras-Tests-Smalltalk' |
9 category:'PetitCompiler-Extras-Tests-Misc' |
10 ! |
10 ! |
11 |
11 |
12 !PPCSmalltalkGrammarTests class methodsFor:'resources'! |
12 !PPCSmalltalkGrammarTests class methodsFor:'resources'! |
13 |
13 |
14 resources |
14 resources |
94 "Called before any of my tests is run (when resources are set up)" |
94 "Called before any of my tests is run (when resources are set up)" |
95 | time compiler | |
95 | time compiler | |
96 |
96 |
97 compiler := self compiler. |
97 compiler := self compiler. |
98 compiler options parserName: self compiledParserClassName. |
98 compiler options parserName: self compiledParserClassName. |
99 compiler options scannerName: self compiledScannerClassName. |
|
100 |
|
101 time := Time millisecondsToRun: [ |
99 time := Time millisecondsToRun: [ |
102 self petitParser compileUsingCompiler:compiler. |
100 compiler compile: self petitParser. |
103 ]. |
101 ]. |
104 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
102 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
105 |
103 |
106 "Created: / 29-07-2015 / 16:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
104 "Created: / 29-07-2015 / 16:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
107 "Modified: / 29-07-2015 / 18:40:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
105 "Modified: / 29-07-2015 / 18:40:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |