--- a/s/BenchmarkRunnerExecutor.st Tue Aug 20 22:02:45 2013 +0100
+++ b/s/BenchmarkRunnerExecutor.st Wed Aug 21 14:59:18 2013 +0100
@@ -52,7 +52,7 @@
!BenchmarkRunnerExecutor methodsFor:'executing-private'!
execute: aBenchmarkInstance result: aBenchmarkResult parameters: aCollection
- | nm |
+ | nm outcome |
nm := aBenchmarkInstance name.
transcript next: (25 - nm size) put: Character space.
@@ -60,9 +60,9 @@
transcript nextPutAll: '...'.
[
- super execute: aBenchmarkInstance result: aBenchmarkResult parameters: aCollection.
+ outcome := super execute: aBenchmarkInstance result: aBenchmarkResult parameters: aCollection.
transcript nextPutAll: 'OK ['.
- transcript nextPutAll: (aBenchmarkResult outcomes detect:[:o|o benchmark == aBenchmarkInstance ]) time printString.
+ transcript nextPutAll: outcome time printString.
transcript nextPutAll: ']'.
aCollection notEmpty ifTrue:[
transcript nextPutAll: ' {'.
@@ -83,11 +83,11 @@
transcript nextPutAll:'
'.
ex pass.
- ^ self.
].
+ ^ outcome
"Created: / 27-07-2013 / 12:33:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 12-08-2013 / 00:04:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 21-08-2013 / 14:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
setUp:aBenchmarkInstance parameters: aCollection