diff options
author | patthoyts <patthoyts> | 2005-03-09 12:00:02 +0000 |
---|---|---|
committer | patthoyts <patthoyts> | 2005-03-09 12:00:02 +0000 |
commit | dc1838a492f4da7a179d713db9432b59ac442283 (patch) | |
tree | 7a2112b4236ad2456140a9052ad74efaaed76c75 /bench.tcl | |
parent | ca2c0d2fb8164b5c493dc8bc040a5d4745899691 (diff) | |
download | jimtcl-dc1838a492f4da7a179d713db9432b59ac442283.zip jimtcl-dc1838a492f4da7a179d713db9432b59ac442283.tar.gz jimtcl-dc1838a492f4da7a179d713db9432b59ac442283.tar.bz2 |
Improved formatting for normal output
Diffstat (limited to 'bench.tcl')
-rw-r--r-- | bench.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -11,8 +11,11 @@ proc bench {title script} { if {!$batchmode} {puts "$Title - This test can't run on this interpreter"} lappend benchmarks $title F } else { - if {!$batchmode} {puts "$Title - $res"} - lappend benchmarks $title [lindex $res 0] + set t [lindex $res 0] + lappend benchmarks $title $t + set ts "[string repeat " " 10]$t" + set ts [string range $ts end-10 end] + if {!$batchmode} {puts "$Title -$ts microseconds per iteration"} } } |