--- a/quickSelfTest/SelfTest.st Tue Mar 21 16:03:37 2017 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,158 +0,0 @@
-"/
-"/ runs a number of tests from the exept:regression package (see list below)
-"/ execute this script using the following command line:
-"/
-"/ stx --noBanner -I --execute SelfTest.st
-"/
-"/ use
-"/ --debug to debug failed test cases.
-"/ --skipTests to skip tests
-"/ --skipMetrics to metric reports tests
-"/
-"/ To use with jenkins (+ jUnit plugin):
-"/ use the following buildscript (in jenkins):
-"/ (after checkout of stx)
-"/ cd stx
-"/ call bmake
-"/ cd goodies\selftest
-"/ ..\..\projects\smalltalk\stx.com --noBanner -I --execute SelfTest.st
-"/
-"/ and configure the jenkins junit plugin, to scan for "testresult.xml"
-"/ ------------------------------------------------------------------------------------
-
-"/ tell the system, where stx is...
-ParserFlags initializeSTCFlagsForTopDirectory:'../../..'.
-
-Object infoPrinting:false.
-ObjectMemory infoPrinting:false.
-
-"/ install a global handler, which suppresses the updating of the change file
-Processor activeProcess exceptionHandlerSet
- on:(Class updateChangeFileQuerySignal)
- do:[:ex | ex proceedWith:false ].
-!
-
-Stdout showCR:'Selftest Started'.
-!
-
-Smalltalk packagePath addFirst:'../../../..'.
-
-"/ ensure that some packages are present
-Stdout showCR:'Loading sunit...'.
-Smalltalk loadPackage:'stx:goodies/sunit'.
-self assert:(TestCase notNil and:[TestCase isLoaded]) message:'[Error]: Missing TestCase class after sunit package load'.
-
-"/ Smalltalk loadPackage:'stx:goodies/xml/vw'.
-"/ Smalltalk loadPackage:'stx:goodies/xml/stx'.
-Smalltalk loadPackage:'stx:libcompat'.
-Smalltalk loadPackage:'stx:libjavascript'.
-!
-
-|suite result debugging|
-
-Stdout showCR:'Creating suite...'.
-suite := TestSuite named:'SelfTest'.
-
-Stdout showCR:'Loading regression tests...'.
-
-"To add a new test please edit stx_goodies_regression>>testCaseNamesWithoutNamespace"
-Smalltalk fileInClass:#'stx_goodies_regression' package:'stx:goodies/regression'.
-(Smalltalk at: #'stx_goodies_regression') isNil ifTrue:[
- Stdout showCR:('ERROR: Ouch - missing class: "stx_goodies_regression"').
- Smalltalk exit: 1.
-].
-
-(Smalltalk at: #'stx_goodies_regression') testCaseNamesWithoutNamespace do:[:className |
- |fullName|
-
- fullName := ('RegressionTests::',className).
- Stdout showCR:(' loading ',className,'...').
- Error handle:[:ex |
- Stdout showCR:('**** Ouch - error while loading class: "',className,'"').
- ] do:[
- Smalltalk fileInClass:fullName package:'stx:goodies/regression'.
- ].
- (Smalltalk classNamed:fullName) isNil ifTrue:[
- Stdout showCR:('**** Ouch - missing class: "',fullName,'"').
- ] ifFalse:[
- suite addTest:(Smalltalk classNamed:fullName) suite.
- ]
-].
-
-"/
-"/ run the suite
-"/
-(Smalltalk commandLineArguments includes:'--skipTests') ifTrue:[
- Stdout showCR:'Skipping suite.'.
-] ifFalse:[
- Stdout showCR:'Running suite...'.
- debugging := (Smalltalk commandLineArguments includes:'--debug').
- result := suite
- run:TestResultStX new
- beforeEachDo:[:test |
- Stdout showCR:('- running ',test printString).
- ]
- afterEachDo:[:test|
- Stdout showCR:('- done ',test printString).
- ]
- debug:debugging.
-
- Stdout showCR:'Generating report...'.
- TestResultReporter
- report:result
- format:#xml_jUnit
- as:'testresult.xml'.
-
- Stdout showCR:'Summary:'.
- Stdout showCR:(' %1 tests;' bindWith:result runCount).
- Stdout show:(' %1 passed,' bindWith:result passedCount).
- Stdout show:(' %1 failed,' bindWith:result failureCount).
- Stdout showCR:(' %1 errors.' bindWith:result errorCount).
-].
-
-"/
-"/ generate a metrics report
-"/
-#(
- 'stx:libbasic'
- 'stx:libbasic2'
- 'stx:libbasic3'
- 'stx:libcomp'
- 'stx:libview'
- 'stx:libview2'
- 'stx:libwidg'
- 'stx:libwidg2'
- 'stx:libtool'
- 'stx:libtool2'
- 'stx:libui'
- 'stx:libhtml'
- 'stx:libboss'
- 'stx:libdb'
- 'stx:libjavascript'
- 'stx:goodies/xml/stx'
- 'stx:goodies/xml/yaxo'
- 'stx:goodies/xml/xsl'
- 'stx:goodies/xml/xpath'
- 'stx:goodies/net'
- 'stx:goodies/communication'
- 'stx:goodies/webServer'
- 'stx:goodies/soap'
-) do:[:p | Smalltalk loadPackage:p].
-
-(Smalltalk commandLineArguments includes:'--skipMetrics') ifTrue:[
- Stdout showCR:'Skipping metrics.'.
-] ifFalse:[
- 'metrics.xml' asFilename writingFileDo:[:stream |
- MetricsReporter new
- stream: stream;
- packages:{
- 'stx:*' .
- };
- classMetricNames: #();
- methodMetricNames: #();
- packageMetricNames: #( 'LOC' 'NOM' 'NOC');
- reportXml_metrics.
- ].
-].
-
-!