equal
deleted
inserted
replaced
100 setUpBefore |
100 setUpBefore |
101 "Called before any of my tests is run (when resources are set up)" |
101 "Called before any of my tests is run (when resources are set up)" |
102 | time configuration | |
102 | time configuration | |
103 |
103 |
104 configuration := self compilerConfiguration. |
104 configuration := self compilerConfiguration. |
105 configuration arguments parserName: self compiledParserClassName. |
105 configuration options parserName: self compiledParserClassName. |
106 configuration arguments scannerName: self compiledScannerClassName. |
106 configuration options scannerName: self compiledScannerClassName. |
107 time := Time millisecondsToRun: [ |
107 time := Time millisecondsToRun: [ |
108 self petitParser compileWithConfiguration: configuration. |
108 self petitParser compileWithConfiguration: configuration. |
109 ]. |
109 ]. |
110 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
110 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
111 |
111 |