s/BenchmarkRunnerExecutor.st
changeset 141 4fbcea2829d2
parent 140 425f8c6946f4
child 145 98ebd63b85c9
--- a/s/BenchmarkRunnerExecutor.st	Sat Jul 27 13:26:01 2013 +0100
+++ b/s/BenchmarkRunnerExecutor.st	Tue Jul 30 23:54:50 2013 +0100
@@ -51,7 +51,7 @@
 
 !BenchmarkRunnerExecutor methodsFor:'executing-private'!
 
-execute: aBenchmarkInstance result: aBenchmarkResult parameters: aDictionary
+execute: aBenchmarkInstance result: aBenchmarkResult parameters: aCollection
     | nm |
 
     nm := aBenchmarkInstance name.
@@ -59,14 +59,27 @@
     transcript nextPutAll: nm.
     transcript nextPutAll: '...'.
 
-    super execute: aBenchmarkInstance result: aBenchmarkResult parameters: aDictionary.
+    super execute: aBenchmarkInstance result: aBenchmarkResult parameters: aCollection.
 
     transcript nextPutAll: 'OK ['.
     transcript nextPutAll: (aBenchmarkResult outcomes detect:[:o|o benchmark == aBenchmarkInstance ]) time printString.
-    transcript nextPutAll: ']
-'
+    transcript nextPutAll: ']'.
+    aCollection notEmpty ifTrue:[        
+        transcript nextPutAll: ' {'.
+        (aCollection asSortedCollection:[:a :b | a key name < b key name ]) do:[:paramAndValue|
+            transcript nextPutAll: paramAndValue key name.
+            transcript nextPutAll: '='.        
+            transcript nextPutAll: paramAndValue value storeString.
+        ] separatedBy:[
+            transcript nextPutAll: ', '.            
+        ].
+        transcript nextPutAll: '}'.
+    ].
+    transcript nextPutAll: '
+'.
 
     "Created: / 27-07-2013 / 12:33:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-07-2013 / 23:49:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 setUp:aBenchmarkInstance parameters: aCollection