Skip to content

Commit

Permalink
Extend test output
Browse files Browse the repository at this point in the history
  • Loading branch information
fniephaus committed Dec 21, 2023
1 parent bcecd1f commit dcbb259
Showing 1 changed file with 4 additions and 4 deletions.
Original file line number Diff line number Diff line change
@@ -1,6 +1,5 @@
| suite result exitCode |


FileStream stdout nextPutAll: 'Preparing image for testing...'; cr; flush.

ToolSet default: CommandLineToolSet.
Expand All @@ -9,12 +8,11 @@ Utilities
authorName: 'TruffleSqueak';
setAuthorInitials: 'TruffleSqueak'.


SystemBrowser default: Browser.

TestCase addSelectorSilently: #run: withMethod: (
TestCase
compile: 'run: aResult FileStream stdout nextPut: $.; flush. aResult runCase: self'
compile: 'run: aResult FileStream stdout nextPut: self asString; cr; flush. aResult runCase: self'
notifying: nil
trailer: (CompiledMethodTrailer empty) ifFail: [ 1 halt ]) method.

Expand Down Expand Up @@ -5749,7 +5747,9 @@ FileStream stdout nextPutAll: 'Running tests...'; cr; flush.

result := suite run.

FileStream stdout cr; nextPutAll: result asString; flush.
FileStream stdout cr;
nextPutAll: 'Test results:'; cr;
nextPutAll: result asString; cr; flush.

exitCode := (result hasFailures or: [ result hasErrors ]) ifTrue: [ 1 ] ifFalse: [ 0 ].

Expand Down

0 comments on commit dcbb259

Please sign in to comment.