quickSelfTest/RunUnitTests.st
author Claus Gittinger <cg@exept.de>
Thu, 28 Mar 2019 13:54:38 +0100
changeset 542 aa25a71be62a
parent 539 532fab2fb2a5
child 544 fda58d35b323
permissions -rw-r--r--
#DOCUMENTATION by cg class: stx_goodies_builder_quickSelfTest class definition class: stx_goodies_builder_quickSelfTest class added:18 methods
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
448
ea961aaa07f8 #BUGFIX by sr
sr
parents: 447
diff changeset
     1
"{ Encoding: utf8 }"
ea961aaa07f8 #BUGFIX by sr
sr
parents: 447
diff changeset
     2
350
ed255c6cf368 #DOCUMENTATION by sr
sr
parents: 349
diff changeset
     3
"{ Package: 'stx:goodies/builder/quickSelfTest' }"
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
     4
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
     5
"{ NameSpace: Smalltalk }"
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
     6
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
     7
Object subclass:#RunUnitTests
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
     8
	instanceVariableNames:''
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
     9
	classVariableNames:''
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    10
	poolDictionaries:''
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    11
	category:'tests-Regression'
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    12
!
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    13
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    14
!RunUnitTests class methodsFor:'documentation'!
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    15
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    16
documentation
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    17
"
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    18
    typically invoked by RunUnitTestsStart
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    19
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    20
    [author:]
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    21
        sr
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    22
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    23
    [instance variables:]
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    24
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    25
    [class variables:]
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    26
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    27
    [see also:]
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    28
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    29
"
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    30
! !
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    31
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    32
!RunUnitTests class methodsFor:'actions'!
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    33
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
    34
run
401
9bc1e8189279 #BUGFIX by sr
sr
parents: 400
diff changeset
    35
    self runWithCompiledUnitTestClasses:false.
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    36
!
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    37
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    38
runWithCompiledUnitTestClasses:useCompiledUnitTestClasses
427
537fcbdbd712 #BUGFIX by sr
sr
parents: 426
diff changeset
    39
    |cmdArgs|
537fcbdbd712 #BUGFIX by sr
sr
parents: 426
diff changeset
    40
537fcbdbd712 #BUGFIX by sr
sr
parents: 426
diff changeset
    41
    cmdArgs := Smalltalk commandLineArguments.
515
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
    42
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
    43
    self
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
    44
	runWithCompiledUnitTestClasses:useCompiledUnitTestClasses
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
    45
	arguments:cmdArgs
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
    46
	debug:(cmdArgs includes:'--debug')
427
537fcbdbd712 #BUGFIX by sr
sr
parents: 426
diff changeset
    47
!
537fcbdbd712 #BUGFIX by sr
sr
parents: 426
diff changeset
    48
537fcbdbd712 #BUGFIX by sr
sr
parents: 426
diff changeset
    49
runWithCompiledUnitTestClasses:useCompiledUnitTestClasses
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    50
    arguments:argumentsIn
427
537fcbdbd712 #BUGFIX by sr
sr
parents: 426
diff changeset
    51
    debug:debug
537fcbdbd712 #BUGFIX by sr
sr
parents: 426
diff changeset
    52
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    53
    |arguments
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    54
     doRunSpecificUnitTests unitTestSuiteName excludedUnitTestClassNames corruptedUnitTestClassNames
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    55
     unitTestSuite
428
737c97ae6193 #BUGFIX by sr
sr
parents: 427
diff changeset
    56
     eachClass
420
3ff8e074f1c3 *** empty log message ***
sr
parents: 419
diff changeset
    57
     result index
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    58
     settingsFilePathName resultFilePathName forceTestCase runTestCases|
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    59
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    60
    arguments := argumentsIn asOrderedCollection.
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    61
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    62
    runTestCases := OrderedCollection new.
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    63
    doRunSpecificUnitTests := false.
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    64
    unitTestSuiteName := 'All Unit Tests'.
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    65
    excludedUnitTestClassNames := self excludedUnitTestClassNamesForAll.
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    66
    corruptedUnitTestClassNames := self corruptedUnitTestClassNames.
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    67
448
ea961aaa07f8 #BUGFIX by sr
sr
parents: 447
diff changeset
    68
    index := arguments indexOf:'--settingsFile'.
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    69
    index > 0 ifTrue:[
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
    70
        settingsFilePathName := arguments at:index + 1.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
    71
        self logInfo:'load settings file: ', settingsFilePathName printString.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
    72
        settingsFilePathName asFilename fileIn.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
    73
        self logInfo:'ParserFlags makeCommand: ', ParserFlags makeCommand printString.
419
dfb090997957 #BUGFIX by sr
sr
parents: 418
diff changeset
    74
    ].
dfb090997957 #BUGFIX by sr
sr
parents: 418
diff changeset
    75
448
ea961aaa07f8 #BUGFIX by sr
sr
parents: 447
diff changeset
    76
    (arguments includes:'--runOnlyExpeccoUnitTests') ifTrue:[
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
    77
        self logInfo:'configured to run expecco unit tests only'.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
    78
        doRunSpecificUnitTests := true.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
    79
        unitTestSuiteName := 'expecco Unit Tests'.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
    80
        excludedUnitTestClassNames := self excludedUnitTestClassNamesForExpecco.
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    81
    ].
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
    82
448
ea961aaa07f8 #BUGFIX by sr
sr
parents: 447
diff changeset
    83
    index := arguments indexOf:'--resultFile'.
414
77f31ca4ab2a *** empty log message ***
sr
parents: 412
diff changeset
    84
    index > 0 ifTrue:[
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
    85
        resultFilePathName := arguments at:index + 1.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
    86
        self logInfo:'set custom result file: ', resultFilePathName printString.
414
77f31ca4ab2a *** empty log message ***
sr
parents: 412
diff changeset
    87
    ].
77f31ca4ab2a *** empty log message ***
sr
parents: 412
diff changeset
    88
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    89
    [   
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    90
        (index := arguments indexOf:'--run') > 0 
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    91
    ] whileTrue:[
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    92
        runTestCases add:(arguments at:index + 1).
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    93
        self logInfo:'run test case: ', (arguments at:index + 1) printString.
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    94
        arguments removeIndex:index + 1.
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    95
        arguments removeIndex:index.
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    96
    ].
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
    97
    
448
ea961aaa07f8 #BUGFIX by sr
sr
parents: 447
diff changeset
    98
    index := arguments indexOf:'--forceTestCase'.
419
dfb090997957 #BUGFIX by sr
sr
parents: 418
diff changeset
    99
    index > 0 ifTrue:[
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   100
        forceTestCase := arguments at:index + 1.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   101
        self logInfo:'set force test case: ', forceTestCase printString.
420
3ff8e074f1c3 *** empty log message ***
sr
parents: 419
diff changeset
   102
    ].
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   103
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   104
    doRunSpecificUnitTests ifFalse:[
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   105
        self logInfo:'configured to run all available unit tests'.
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   106
    ].
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   107
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   108
    self logInfo:'collecting unit test classes to run'.
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   109
    unitTestSuite := TestSuite named:unitTestSuiteName.
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   110
428
737c97ae6193 #BUGFIX by sr
sr
parents: 427
diff changeset
   111
    (Smalltalk at: #'stx_goodies_regression') classNames do:[:eachClassName |
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   112
        (excludedUnitTestClassNames includes:eachClassName) ifTrue:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   113
            self
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   114
                logInfo:('excluded unit test class "%1".'
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   115
                    bindWith:eachClassName).
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   116
        ] ifFalse:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   117
            (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   118
                self
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   119
                    logWarning:('RunUnitTest: unit test class is marked as corrupted, please fix #%1'
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   120
                        bindWith:eachClassName).
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   121
            ] ifFalse:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   122
                (eachClassName notNil
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   123
                and:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   124
                    "/ skip non test case classes
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   125
                    (#(
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   126
                        'stx_goodies_regression'
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   127
                    ) includes:eachClassName) not
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   128
                and:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   129
                    forceTestCase isNil
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   130
                    or:[forceTestCase = eachClassName
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   131
                    or:[forceTestCase = ((eachClassName subStrings:'::') lastIfEmpty:nil)]]
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   132
                ]]) ifTrue:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   133
                    eachClass := Smalltalk at:eachClassName.
408
16108b5c7906 #BUGFIX by sr
sr
parents: 404
diff changeset
   134
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   135
                    useCompiledUnitTestClasses ifFalse:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   136
                        "here we want test the jitter code
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   137
                         therfor we file in, exit if the class is already present somwhow"
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   138
                        eachClass notNil ifTrue:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   139
                            self
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   140
                                logWarning:('Unit test class "%1" was already present before file in.'
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   141
                                    bindWith:eachClassName).
408
16108b5c7906 #BUGFIX by sr
sr
parents: 404
diff changeset
   142
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   143
                            Smalltalk exit:1.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   144
                        ].
408
16108b5c7906 #BUGFIX by sr
sr
parents: 404
diff changeset
   145
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   146
                        eachClass := Smalltalk
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   147
                            fileInClass:eachClassName
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   148
                            package:'stx:goodies/regression'.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   149
                    ].
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   150
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   151
                    eachClass notNil ifTrue:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   152
                        (eachClass isTestCaseLike
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   153
                        and:[eachClass isAbstract not]) ifTrue:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   154
                            self
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   155
                                logInfo:('added unit test class "%1".'
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   156
                                    bindWith:eachClassName).
423
552952c5d93e *** empty log message ***
sr
parents: 422
diff changeset
   157
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   158
                            unitTestSuite addTest:eachClass suite.
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   159
                        ] ifFalse:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   160
                            self
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   161
                                logInfo:('not a unit test class "%1" (class is abstract or something else).'
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   162
                                    bindWith:eachClassName).
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   163
                        ].
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   164
                    ] ifFalse:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   165
                        self
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   166
                            logWarning:('unit test class "%1" is not loaded.'
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   167
                                bindWith:eachClassName).
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   168
                    ].
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   169
                ] ifFalse:[
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   170
                    self
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   171
                        logInfo:('skipped unit test class "%1".'
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   172
                            bindWith:eachClassName).
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   173
                ].
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   174
            ].
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   175
        ].
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   176
    ].
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   177
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   178
    self
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   179
        logInfo:('%1 unit test classes collected'
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   180
            bindWith:unitTestSuite tests size).
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   181
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   182
    self logInfo:'start tests...'.
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   183
    result := unitTestSuite
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   184
        run:TestResultStX new
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   185
        beforeEachDo:[:test | self logInfo:'performing unit test ', test printString]
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   186
        afterEachDo:[:test| ]
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   187
        debug:debug.
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   188
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   189
    self logInfo:'tests finished.'.
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   190
    
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   191
    self logInfo:'generating xml report...'.
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   192
    TestResultReporter
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   193
        report:result
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   194
        format:#xml_jUnit
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   195
        as:resultFilePathName ? 'testresult.xml'.
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   196
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   197
    self logInfo:('xml report in %1' bindWith:(resultFilePathName ? 'testresult.xml') asFilename pathName).
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   198
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   199
    self logInfo:'Summary:'.
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   200
    self logInfo:('%1 tests' bindWith:result tests size).
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   201
    self logInfo:('%1 run' bindWith:result runCount).
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   202
    self logInfo:('%1 skipped' bindWith:result skippedCount).
399
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   203
    self logInfo:('%1 passed' bindWith:result passedCount).
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   204
    self logInfo:('%1 failed' bindWith:result failureCount).
84b58f2602d9 #BUGFIX by sr
sr
parents: 350
diff changeset
   205
    self logInfo:('%1 errors' bindWith:result errorCount).
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   206
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   207
    "Modified (format): / 16-05-2018 / 13:59:47 / sr"
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   208
    "Modified: / 26-03-2019 / 19:00:38 / Claus Gittinger"
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   209
! !
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   210
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   211
!RunUnitTests class methodsFor:'constants'!
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   212
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   213
corruptedUnitTestClassNames
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   214
    ^ #(
337
8dcc6a1f364b *** empty log message ***
sr
parents: 336
diff changeset
   215
	#'RegressionTests::ExternalInterfaceTests'
8dcc6a1f364b *** empty log message ***
sr
parents: 336
diff changeset
   216
	#'RegressionTests::DebuggerTest'
346
e59d3b6f2391 *** empty log message ***
sr
parents: 345
diff changeset
   217
	#'RegressionTests::ContextTest2'
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   218
    )
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   219
!
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   220
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   221
excludedUnitTestClassNamesForAll
420
3ff8e074f1c3 *** empty log message ***
sr
parents: 419
diff changeset
   222
    ^ #(
3ff8e074f1c3 *** empty log message ***
sr
parents: 419
diff changeset
   223
	#'RegressionTests::SelectorNamespacesTests'
3ff8e074f1c3 *** empty log message ***
sr
parents: 419
diff changeset
   224
    )
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   225
!
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   226
337
8dcc6a1f364b *** empty log message ***
sr
parents: 336
diff changeset
   227
excludedUnitTestClassNamesForExpecco
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   228
    ^ self excludedUnitTestClassNamesForAll
411
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   229
	, #(
425
a96e3e463c10 *** empty log message ***
sr
parents: 424
diff changeset
   230
	    #'RegressionTests::VMCrashTestCase'
420
3ff8e074f1c3 *** empty log message ***
sr
parents: 419
diff changeset
   231
	    #'RegressionTests::VMCrashTests'
421
1e2f59a4f198 *** empty log message ***
sr
parents: 420
diff changeset
   232
	    #'RegressionTests::ParserTests'
411
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   233
	    #'RegressionTests::BreakpointTests'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   234
	    #'RegressionTests::SunitXMLOutputTest'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   235
	    #'RegressionTests::CompilerTests2'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   236
	    #'RegressionTests::BehaviorLookupObjectTests'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   237
	    #'RegressionTests::ChangeSetTests'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   238
	    #'RegressionTests::MakefileTests'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   239
	    #'RegressionTests::MetaphoneStringComparatorTest'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   240
	    #'RegressionTests::STCCompilerTests'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   241
	    #'RegressionTests::VMCrashTests'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   242
	    #'RegressionTests::SnapshotRestartTests'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   243
	    #'RegressionTests::GraphicDrawingTest'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   244
	    #'RegressionTests::OS_OLE_Tests'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   245
	    #'RegressionTests::ExternalInterfaceTests'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   246
	    #'RegressionTests::DebuggerTest'
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   247
	    #'RegressionTests::ContextTest2'
416
2932bb400aca *** empty log message ***
sr
parents: 414
diff changeset
   248
	    #'RegressionTests::QDoubleTests'
411
08b15d0e13a6 *** empty log message ***
sr
parents: 408
diff changeset
   249
	)
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   250
! !
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   251
429
013a7d128ce4 #FEATURE by sr
sr
parents: 428
diff changeset
   252
!RunUnitTests class methodsFor:'examples'!
013a7d128ce4 #FEATURE by sr
sr
parents: 428
diff changeset
   253
013a7d128ce4 #FEATURE by sr
sr
parents: 428
diff changeset
   254
example1
013a7d128ce4 #FEATURE by sr
sr
parents: 428
diff changeset
   255
    Processor activeProcess exceptionHandlerSet
515
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
   256
	on:Class updateChangeFileQuerySignal
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
   257
	do:[:ex | ex proceedWith:false].
429
013a7d128ce4 #FEATURE by sr
sr
parents: 428
diff changeset
   258
013a7d128ce4 #FEATURE by sr
sr
parents: 428
diff changeset
   259
    self
515
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
   260
	runWithCompiledUnitTestClasses:true
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
   261
	arguments:#(
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
   262
	    '--runOnlyExpeccoUnitTests'
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
   263
	    '--forceTestCase'
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
   264
	    'ExternalStreamTest'
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
   265
	)
06436c1b24f6 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 448
diff changeset
   266
	debug:true
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   267
!
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   268
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   269
example2
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   270
    Processor activeProcess exceptionHandlerSet
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   271
        on:Class updateChangeFileQuerySignal
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   272
        do:[:ex | ex proceedWith:false].
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   273
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   274
    self
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   275
        runWithCompiledUnitTestClasses:true
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   276
        arguments:#(
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   277
            '--forceTestCase'
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   278
            'RegressionTests::ExternalStreamTest'
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   279
        )
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   280
        debug:true
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   281
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   282
    "Created: / 26-03-2019 / 18:46:46 / Claus Gittinger"
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   283
!
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   284
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   285
example2b
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   286
    Processor activeProcess exceptionHandlerSet
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   287
        on:Class updateChangeFileQuerySignal
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   288
        do:[:ex | ex proceedWith:false].
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   289
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   290
    self
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   291
        runWithCompiledUnitTestClasses:true
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   292
        arguments:#(
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   293
            '--forceTestCase'
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   294
            'ExternalStreamTest'
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   295
        )
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   296
        debug:true
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   297
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   298
    "Created: / 26-03-2019 / 18:55:46 / Claus Gittinger"
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   299
!
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   300
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   301
example2c
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   302
    Processor activeProcess exceptionHandlerSet
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   303
        on:Class updateChangeFileQuerySignal
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   304
        do:[:ex | ex proceedWith:false].
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   305
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   306
    self
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   307
        runWithCompiledUnitTestClasses:true
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   308
        arguments:#(
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   309
            '--forceTestCase'
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   310
            'CRCTests'
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   311
        )
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   312
        debug:true
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   313
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   314
    "Created: / 26-03-2019 / 18:58:36 / Claus Gittinger"
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   315
!
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   316
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   317
example3
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   318
    Processor activeProcess exceptionHandlerSet
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   319
        on:Class updateChangeFileQuerySignal
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   320
        do:[:ex | ex proceedWith:false].
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   321
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   322
    self
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   323
        runWithCompiledUnitTestClasses:true
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   324
        arguments:#(
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   325
            '--run'
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   326
            'ExternalStreamTest'
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   327
        )
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   328
        debug:true
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   329
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   330
    "Created: / 26-03-2019 / 18:51:42 / Claus Gittinger"
429
013a7d128ce4 #FEATURE by sr
sr
parents: 428
diff changeset
   331
! !
013a7d128ce4 #FEATURE by sr
sr
parents: 428
diff changeset
   332
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   333
!RunUnitTests class methodsFor:'logging'!
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   334
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   335
log:aString type:aType
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   336
    Transcript notNil ifTrue:[
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   337
        Transcript showCR:'%1 [%2] : %3'
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   338
                with:Timestamp now printString
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   339
                with:(aType printString asLowercase paddedTo:'warning' size)
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   340
                with:aString.
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   341
        ^ self       
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   342
    ].    
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   343
    Stderr showCR:'%1 [%2] : %3'
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   344
            with:Timestamp now printString
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   345
            with:(aType printString asLowercase paddedTo:'warning' size)
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   346
            with:aString.
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   347
539
532fab2fb2a5 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
   348
    "Modified: / 26-03-2019 / 18:53:48 / Claus Gittinger"
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   349
!
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   350
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   351
logInfo:aString
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   352
    self
337
8dcc6a1f364b *** empty log message ***
sr
parents: 336
diff changeset
   353
	log:aString
8dcc6a1f364b *** empty log message ***
sr
parents: 336
diff changeset
   354
	type:'INFO'
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   355
!
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   356
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   357
logWarning:aString
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   358
    self
337
8dcc6a1f364b *** empty log message ***
sr
parents: 336
diff changeset
   359
	log:aString
8dcc6a1f364b *** empty log message ***
sr
parents: 336
diff changeset
   360
	type:'WARNING'
330
6a3fe7cea4e1 *** empty log message ***
sr
parents:
diff changeset
   361
! !
350
ed255c6cf368 #DOCUMENTATION by sr
sr
parents: 349
diff changeset
   362
ed255c6cf368 #DOCUMENTATION by sr
sr
parents: 349
diff changeset
   363
!RunUnitTests class methodsFor:'documentation'!
ed255c6cf368 #DOCUMENTATION by sr
sr
parents: 349
diff changeset
   364
400
98d1fb9a0b33 #BUGFIX by sr
sr
parents: 399
diff changeset
   365
version
98d1fb9a0b33 #BUGFIX by sr
sr
parents: 399
diff changeset
   366
    ^ '$Header$'
98d1fb9a0b33 #BUGFIX by sr
sr
parents: 399
diff changeset
   367
!
98d1fb9a0b33 #BUGFIX by sr
sr
parents: 399
diff changeset
   368
350
ed255c6cf368 #DOCUMENTATION by sr
sr
parents: 349
diff changeset
   369
version_CVS
ed255c6cf368 #DOCUMENTATION by sr
sr
parents: 349
diff changeset
   370
    ^ '$Header$'
ed255c6cf368 #DOCUMENTATION by sr
sr
parents: 349
diff changeset
   371
! !
516
f0cf7d35ee5f #BUGFIX by sr
sr
parents: 515
diff changeset
   372