equal
deleted
inserted
replaced
93 setUpBefore |
93 setUpBefore |
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 configuration | |
95 | time configuration | |
96 |
96 |
97 configuration := self compilerConfiguration. |
97 configuration := self compilerConfiguration. |
98 configuration arguments parserName: self compiledParserClassName. |
98 configuration options parserName: self compiledParserClassName. |
99 configuration arguments scannerName: self compiledScannerClassName. |
99 configuration options scannerName: self compiledScannerClassName. |
100 |
100 |
101 time := Time millisecondsToRun: [ |
101 time := Time millisecondsToRun: [ |
102 self petitParser compileWithConfiguration: configuration. |
102 self petitParser compileWithConfiguration: configuration. |
103 ]. |
103 ]. |
104 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
104 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |