compiler/tests/PPCUniversalTest.st
changeset 529 439c4057517f
parent 525 751532c8f3db
child 534 a949c4fe44df
equal deleted inserted replaced
528:ebfddc82b8bb 529:439c4057517f
     2 
     2 
     3 "{ NameSpace: Smalltalk }"
     3 "{ NameSpace: Smalltalk }"
     4 
     4 
     5 PPAbstractParserTest subclass:#PPCUniversalTest
     5 PPAbstractParserTest subclass:#PPCUniversalTest
     6 	instanceVariableNames:'parser result context node compiler id node2 id2 id1 node1 node3
     6 	instanceVariableNames:'parser result context node compiler id node2 id2 id1 node1 node3
     7 		arguments configuration'
     7 		options configuration'
     8 	classVariableNames:''
     8 	classVariableNames:''
     9 	poolDictionaries:''
     9 	poolDictionaries:''
    10 	category:'PetitCompiler-Tests-Core-Universal'
    10 	category:'PetitCompiler-Tests-Core-Universal'
    11 !
    11 !
    12 
    12 
    28 !
    28 !
    29 
    29 
    30 tearDown
    30 tearDown
    31     | parserClass |
    31     | parserClass |
    32 
    32 
    33     parserClass := (Smalltalk at: arguments parserName ifAbsent: [nil]).
    33     parserClass := (Smalltalk at: options parserName ifAbsent: [nil]).
    34     parserClass notNil ifTrue:[ 
    34     parserClass notNil ifTrue:[ 
    35         "parserClass removeFromSystem"
    35         "parserClass removeFromSystem"
    36     ].
    36     ].
    37 
    37 
    38     "Modified: / 24-07-2015 / 19:21:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    38     "Modified: / 24-07-2015 / 19:21:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   567 ! !
   567 ! !
   568 
   568 
   569 !PPCUniversalTest methodsFor:'tests - ids'!
   569 !PPCUniversalTest methodsFor:'tests - ids'!
   570 
   570 
   571 setUp
   571 setUp
   572     arguments := PPCArguments default
   572     options := PPCCompilationOptions default
   573         profile: true;
   573         profile: true;
   574         debug: true;
   574         debug: true;
   575         yourself.
   575         yourself.
   576         
   576         
   577     configuration := PPCUniversalConfiguration new
   577     configuration := PPCUniversalConfiguration new
   578         arguments: arguments;
   578         options: options;
   579         yourself.
   579         yourself.
       
   580 
       
   581     "Modified: / 24-08-2015 / 23:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   580 ! !
   582 ! !
   581 
   583 
   582 !PPCUniversalTest class methodsFor:'documentation'!
   584 !PPCUniversalTest class methodsFor:'documentation'!
   583 
   585 
   584 version_HG
   586 version_HG