10 TestCase class instanceVariableNames:'lastTestRunResultOrNil lastTestRunsPassedTests lastTestRunsFailedTests

    10 TestCase class instanceVariableNames:'lastOutcomes'

    11 	lastTestRunsErrorTests'

   112     ^ lastTestRunResultOrNil

    97 

    98     "Returns true if all tests passed, false if at least

    99      one failed/error  or nil if never run            

   100     "

   101     lastOutcomes isNil ifTrue:[^nil].

   102     lastOutcomes size ~= self testSelectors size ifTrue:[^nil].

   103     lastOutcomes do:[:outcome|

   104         outcome result == #pass ifFalse:[

   105             ^false

   106         ].

   107     ].

   108     ^true

   109 

   110     "Modified: / 20-08-2011 / 14:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   119 rememberErrorTest:selector

   117 rememberOutcome: outcome

   120 

   118 

   121     | emitChange |

   119     lastOutcomes isNil ifTrue:[

   122 

   120         lastOutcomes := OrderedCollection new.

   123     lastTestRunsErrorTests isNil ifTrue:[

   121     ].

   124         lastTestRunsErrorTests := Set new.

   122     "Not a nice code, but portable..."

   125     ].

   123     1 to: lastOutcomes size do:[:i|

   126 

   124         | each |

   127     emitChange := (self removeSelector: selector from: lastTestRunsPassedTests).

   125 

   128     emitChange := (self removeSelector: selector from: lastTestRunsFailedTests) or:[emitChange].

   126         each := lastOutcomes at: i.

   129     emitChange := (self addSelector: selector to: lastTestRunsErrorTests) or:[emitChange].

   127         (each testCase class == outcome testCase class and:

   130 

   128             [each testCase selector == outcome testCase selector]) ifTrue:[

   131     emitChange ifTrue:[self lastTestRunResultChanged: selector].

   129                 lastOutcomes at: i put: outcome.

   132 

   130                 each result ~= outcome result ifTrue:[

   133     self rememberFailedTestRun

   131                     self lastTestRunResultChanged: outcome selector. 

   134 

   132                 ].

   135     "Modified: / 06-08-2006 / 11:01:08 / cg"

   133                 ^self.                    

   136     "Created: / 15-03-2010 / 19:16:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   134             ].

   137 !

   135     ].

   138 

   136     lastOutcomes add: outcome.

   139 rememberFailedTest:selector

   137     self lastTestRunResultChanged: outcome selector.

   140 

   138     ^self

   141     | emitChange |

   139 

   142 

   140     "Created: / 20-08-2011 / 12:43:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   143     lastTestRunsFailedTests isNil ifTrue:[

   141 !

   144         lastTestRunsFailedTests := Set new.

   142 

   145     ].

   143 rememberedOutcomeFor: selector

   146 

   144 

   147     emitChange := (self removeSelector: selector from: lastTestRunsPassedTests).

   145     lastOutcomes isNil ifTrue:[^nil].

   148     emitChange := (self removeSelector: selector from: lastTestRunsErrorTests) or:[emitChange].

   146     lastOutcomes do:[:outcome|

   149     emitChange := (self addSelector: selector to: lastTestRunsFailedTests) or:[emitChange].

   147         outcome testCase selector == selector ifTrue:[

   150 

   148             ^outcome

   151     emitChange ifTrue:[self lastTestRunResultChanged: selector].

   149         ].

   152 

   150     ].

   153     self rememberFailedTestRun

   151     ^nil

   154 

   152 

   155     "Modified: / 06-08-2006 / 11:01:08 / cg"

   153     "Created: / 20-08-2011 / 14:27:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   156     "Modified: / 15-03-2010 / 19:15:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   157 !

   158 

   159 rememberFailedTestRun

   160     lastTestRunResultOrNil ~~ false ifTrue:[

   161         lastTestRunResultOrNil := false.

   162         Smalltalk changed:#lastTestRunResult with:(Array with:self with:nil).

   163         self changed:#lastTestRunResult.

   164     ]

   165 

   166     "Modified: / 06-08-2006 / 11:00:42 / cg"

   167 !

   168 

   169 rememberFailedTestRunWithResult:result

   170     self rememberFailedTestRun.

   171     self rememberFailedTestsFromResult:result.

   172 

   173     "Modified: / 05-08-2006 / 12:45:19 / cg"

   174 !

   175 

   176 rememberFailedTestsFromResult:result

   177     (result failures union:result errors) do:[:eachFailedTest |

   178         self rememberFailedTest:(eachFailedTest selector).

   179     ].

   180 

   181     "Created: / 05-08-2006 / 12:45:01 / cg"

   182     "Modified: / 06-08-2006 / 10:54:31 / cg"

   183 !

   184 

   185 rememberPassedTest:selector

   186 

   187     | emitChange |

   188 

   189     lastTestRunsPassedTests isNil ifTrue:[

   190         lastTestRunsPassedTests := Set new.

   191     ].

   192 

   193     emitChange := (self removeSelector: selector from: lastTestRunsFailedTests).

   194     emitChange := (self removeSelector: selector from: lastTestRunsErrorTests) or:[emitChange].

   195     emitChange := (self addSelector: selector to: lastTestRunsPassedTests) or:[emitChange].

   196 

   197     emitChange ifTrue:[self lastTestRunResultChanged: selector].

   198 

   199     self rememberPassedTestRun

   200 

   201     "Modified: / 06-08-2006 / 11:01:08 / cg"

   202     "Modified: / 15-03-2010 / 19:15:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   203 !

   204 

   205 rememberPassedTestRun

   206     lastTestRunResultOrNil ~~ true ifTrue:[

   207         lastTestRunResultOrNil := true.

   208         "/lastTestRunsFailedTests := nil.

   209         Smalltalk changed:#lastTestRunResult with:(Array with:self with:nil).

   210         self changed:#lastTestRunResult.

   211     ]

   212 

   213     "Modified: / 06-08-2006 / 11:01:22 / cg"

   214     "Modified: / 15-03-2010 / 18:22:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   215 !

   216 

   217 rememberPassedTestsFromResult:result

   218     (result passed) do:[:eachPassedTest |

   219         self rememberPassedTest:(eachPassedTest selector).

   220     ].

   221 

   222     "Created: / 06-08-2006 / 10:29:47 / cg"

   223     "Modified: / 06-08-2006 / 11:42:01 / cg"

   243     ^ lastTestRunsErrorTests notNil and:[lastTestRunsErrorTests includes:selector]

   173 

   174     lastOutcomes isNil ifTrue:[^false].

   175     lastOutcomes do:[:each|

   176         (each testCase class == self 

   177             and:[each testCase selector == selector

   178                 and:[each result == #error]]) ifTrue:[

   179                    ^true

   180                 ].                        

   181     ].

   182     ^false

   249     ^ (lastTestRunsFailedTests notNil and:[lastTestRunsFailedTests includes:selector]) or:

   188 

   250       [lastTestRunsErrorTests notNil and:[lastTestRunsErrorTests includes:selector]]

   189     lastOutcomes isNil ifTrue:[^false].

   251 

   190     lastOutcomes do:[:each|

   252     "Modified: / 15-03-2010 / 19:44:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   191         (each testCase class == self 

   192             and:[each testCase selector == selector

   193                 and:[each result == #fail]]) ifTrue:[

   194                    ^true

   195                 ].                        

   196     ].

   197     ^false

   198 

   199     "Modified: / 20-08-2011 / 13:02:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   256     ^ lastTestRunsPassedTests notNil and:[lastTestRunsPassedTests includes:selector]

   203 

   204     lastOutcomes isNil ifTrue:[^false].

   205     lastOutcomes do:[:each|

   206         (each testCase class == self 

   207             and:[each testCase selector == selector

   208                 and:[each result == #pass]]) ifTrue:[

   209                    ^true

   210                 ].                        

   211     ].

   212     ^false

   388     result hasPassed ifTrue:[

   344 

   389         self rememberPassedTestRun

   345     result outcomesDo:[:outcome|self rememberOutcome: outcome].

   390     ] ifFalse:[

   391         self rememberFailedTestRunWithResult:result

   392     ].

   634         [

   588 

   635             (self class selector: testSelector) runCase.

   589     | testCase outcome |

   636             self class rememberPassedTest: testSelector.

   590 

   637         ] sunitEnsure: [

   591     [

   638             TestResource resetResources: self resources

   592         (testCase := self class selector: testSelector) runCase.

   639         ].

   593         outcome := TestCaseOutcome new.

   594         outcome testCase: testCase.

   595         outcome result: #pass.

   596         outcome remember.

   597     ] sunitEnsure: [

   598         TestResource resetResources: self resources

   599     ].

   833     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.75 2011-08-18 18:37:10 cg Exp $'

   794     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.76 2011-08-20 14:00:44 vrany Exp $'

   837     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.75 2011-08-18 18:37:10 cg Exp $'

   798     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.76 2011-08-20 14:00:44 vrany Exp $'