The Inbox: SUnitTools-ct.5.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: SUnitTools-ct.5.mcz

commits-2
A new version of SUnitTools was added to project The Inbox:
http://source.squeak.org/inbox/SUnitTools-ct.5.mcz

==================== Summary ====================

Name: SUnitTools-ct.5
Author: ct
Time: 31 May 2019, 2:15:36.714053 pm
UUID: 397d3b85-7ac5-3645-baa9-b9f848d90880
Ancestors: SUnitTools-tcj.4

Change CodeHolder>>testRunSuite: -- if multiple tests fail, instead of a UIManager dialog, open a TestRunner window that provides specific information.

Depends on SUnitGUI-ct.70.

=============== Diff against SUnitTools-tcj.4 ===============

Item was changed:
  ----- Method: CodeHolder>>testRunSuite: (in category '*SUnitTools-running') -----
  testRunSuite: suite
 
+ | runner result |
+ (suite isKindOf: TestCase)
+ ifFalse: [
+ runner := TestRunner newForSuite: suite.
+ result := runner runAll; result]
+ ifTrue: [result := suite run].
- | result |
- result := suite run.
 
  (result respondsTo: #dispatchResultsIntoHistory)
  ifTrue: [result dispatchResultsIntoHistory].
 
  result hasPassed ifTrue: [^ self].
 
+ result defects size = 1
+ ifTrue: [result defects anyOne debug]
+ ifFalse: [runner open]!
- (result defects size = 1
- ifTrue: [result defects anyOne]
- ifFalse: [UIManager default
- chooseFrom: (result defects collect: [:each | each class name , '>>' , each selector printString])
- values: result defects
- title: ('{1} passes, {2} failures, {3} errors\\Debug a failure or error?' format: {
- result runCount . result failureCount . result errorCount}) withCRs]
- ) ifNotNil: [:defect | defect debug].
- !