Portability: do not use Transcript>>crShow:
...use Transcript show: '...'; cr. which is more portable.
"{ Package: 'stx:goodies/petitparser/compiler/tests' }"
"{ NameSpace: Smalltalk }"
TestResource subclass:#PPCompiledSmalltalkGrammarResource
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Tests-Smalltalk'
!
!PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!
setUp
| time |
time := Time millisecondsToRun: [
PPSmalltalkGrammar new compileAs: #PPCompiledSmalltalkGrammar
].
Transcript show: 'Smalltalk Grammar compiled in: ', time asString, 'ms'; cr.
! !