RegressionTests__QuickTestRunner.st
changeset 2131 f1f27c18645c
parent 1466 14f88f09fb6a
equal deleted inserted replaced
2130:ec860c46f267 2131:f1f27c18645c
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "{ Package: 'stx:goodies/regression' }"
     3 "{ Package: 'stx:goodies/regression' }"
     2 
     4 
     3 "{ NameSpace: RegressionTests }"
     5 "{ NameSpace: RegressionTests }"
     4 
     6 
     5 Object subclass:#QuickTestRunner
     7 Object subclass:#QuickTestRunner
    99     anyError := anyError | anyMissing.
   101     anyError := anyError | anyMissing.
   100 !
   102 !
   101 
   103 
   102 generateReport
   104 generateReport
   103     Stdout showCR:'Generating report...'.
   105     Stdout showCR:'Generating report...'.
       
   106     
   104     TestResultReporter
   107     TestResultReporter
   105 	report:result
   108         report:result
   106 	format:#xml_jUnit
   109         format:#xml_jUnit
   107 	as:'testresult.xml'.
   110         as:'testresult.xml'.
   108 
   111 
   109     Stdout showCR:'Summary:'.
   112     Stdout showCR:'Summary:  %1 tests;' with:result runCount.
   110     Stdout showCR:('  %1 tests;' bindWith:result runCount).
   113     Stdout show:'  %1 passed,' with:result passedCount.
   111     Stdout show:('  %1 passed,' bindWith:result passedCount).
   114     Stdout show:'  %1 skipped,' with:result skippedCount.
   112     Stdout show:(' %1 failed,' bindWith:result failureCount).
   115     Stdout show:' %1 failed, %1 errors.' with:result failureCount with:result errorCount.
   113     Stdout showCR:(' %1 errors.' bindWith:result errorCount).
   116 
       
   117     "Modified: / 23-03-2019 / 10:19:25 / Claus Gittinger"
   114 !
   118 !
   115 
   119 
   116 listOfTestClasses
   120 listOfTestClasses
   117     "*** IMPORTANT *** "
   121     "*** IMPORTANT *** "
   118     "* To add a new test please edit stx_goodies_regression>>testCaseNamesWithoutNamespace"
   122     "* To add a new test please edit stx_goodies_regression>>testCaseNamesWithoutNamespace"
   179 !
   183 !
   180 
   184 
   181 version_CVS
   185 version_CVS
   182     ^ '$Header$'
   186     ^ '$Header$'
   183 ! !
   187 ! !
       
   188