compiler/tests/extras/PPTokenizedSmalltalkGrammarResource.st
changeset 459 4751c407bb40
parent 452 9f4558b3be66
child 460 87a3d30ab570
child 464 f6d77fee9811
equal deleted inserted replaced
452:9f4558b3be66 459:4751c407bb40
     7 	classVariableNames:''
     7 	classVariableNames:''
     8 	poolDictionaries:''
     8 	poolDictionaries:''
     9 	category:'PetitCompiler-Extras-Tests-Smalltalk'
     9 	category:'PetitCompiler-Extras-Tests-Smalltalk'
    10 !
    10 !
    11 
    11 
    12 PPTokenizedSmalltalkGrammarResource comment:''
       
    13 !
       
    14 
    12 
    15 !PPTokenizedSmalltalkGrammarResource methodsFor:'as yet unclassified'!
    13 !PPTokenizedSmalltalkGrammarResource methodsFor:'as yet unclassified'!
    16 
    14 
    17 setUp
    15 setUp
    18     | time configuration |
    16     | time configuration |
    20     configuration arguments name:#PPTokenizedSmalltalkGrammar.
    18     configuration arguments name:#PPTokenizedSmalltalkGrammar.
    21     
    19     
    22     time := Time millisecondsToRun: [
    20     time := Time millisecondsToRun: [
    23         PPSmalltalkGrammar new compileWithConfiguration: configuration.
    21         PPSmalltalkGrammar new compileWithConfiguration: configuration.
    24     ].
    22     ].
    25     Transcript crShow: 'Smalltalk Grammar tokenized in: ', time asString, 'ms'.
    23     Transcript show: 'Smalltalk Grammar tokenized in: '; show: time asString; show: 'ms'; cr.
    26     
    24 
       
    25     "Modified: / 10-05-2015 / 07:55:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    27 !
    26 !
    28 
    27 
    29 tearDown
    28 tearDown
    30     | parserClass |
    29     | parserClass |
    31     super tearDown.
    30     super tearDown.
    37         parserClass removeFromSystem
    36         parserClass removeFromSystem
    38     ].
    37     ].
    39 "
    38 "
    40 ! !
    39 ! !
    41 
    40 
       
    41 !PPTokenizedSmalltalkGrammarResource class methodsFor:'documentation'!
       
    42 
       
    43 version_HG
       
    44 
       
    45     ^ '$Changeset: <not expanded> $'
       
    46 ! !
       
    47