quickSelfTest/SelfTest.st
changeset 87 432ff6d3a032
parent 50 678217bcd5d8
child 93 0b877f7bd029
equal deleted inserted replaced
86:29a8a74674f5 87:432ff6d3a032
     1 "/
     1 "/
     2 "/ runs a nnumber of tests from the exept:regression package (see list below)
     2 "/ runs a number of tests from the exept:regression package (see list below)
     3 "/ execute this script using the following command line:
     3 "/ execute this script using the following command line:
     4 "/
     4 "/
     5 "/ stx --noBanner -I --execute SelfTest.st
     5 "/ stx --noBanner -I --execute SelfTest.st
       
     6 "/   use --debug to debug failed test cases.
     6 "/
     7 "/
     7 "/ to use with jenkins (+ jUnit plugin):
     8 "/ to use with jenkins (+ jUnit plugin):
     8 "/ use the following buildscript (in jenkins):
     9 "/ use the following buildscript (in jenkins):
     9 "/ (after checkout of stx)
    10 "/ (after checkout of stx)
    10 "/      cd stx
    11 "/      cd stx
    31 Smalltalk loadPackage:'stx:goodies/sunit'.
    32 Smalltalk loadPackage:'stx:goodies/sunit'.
    32 self assert:(TestCase notNil and:[TestCase isLoaded]).
    33 self assert:(TestCase notNil and:[TestCase isLoaded]).
    33 
    34 
    34 "/ Smalltalk loadPackage:'stx:goodies/xml/vw'.
    35 "/ Smalltalk loadPackage:'stx:goodies/xml/vw'.
    35 "/ Smalltalk loadPackage:'stx:goodies/xml/stx'.
    36 "/ Smalltalk loadPackage:'stx:goodies/xml/stx'.
       
    37 Smalltalk loadPackage:'stx:libcompat'.
    36 Smalltalk loadPackage:'stx:libjavascript'.
    38 Smalltalk loadPackage:'stx:libjavascript'.
    37 !
    39 !
    38 
    40 
    39 |suite result|
    41 |suite result|
    40 
    42 
    95     suite addTest:(Smalltalk classNamed:fullName) suite.
    97     suite addTest:(Smalltalk classNamed:fullName) suite.
    96 ].
    98 ].
    97 
    99 
    98 Stdout showCR:'Running suite...'.
   100 Stdout showCR:'Running suite...'.
    99 result := suite
   101 result := suite
   100 	    runBeforeEachDo:[:test |
   102 	    run:TestResult new beforeEachDo:[:test |
   101 		Stdout showCR:('- running ',test printString).
   103 		Stdout showCR:('- running ',test printString).
   102 	    ].
   104 	    ]
       
   105 	    afterEachDo:[:test| ]
       
   106 	    debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
   103 
   107 
   104 Stdout showCR:'Generating report...'.
   108 Stdout showCR:'Generating report...'.
   105 TestResultReporter
   109 TestResultReporter
   106     report:result
   110     report:result
   107     format:#xml_jUnit
   111     format:#xml_jUnit