Index: tests/summary.tcl =================================================================== diff -u -red172f2c771eab171130a72af81921b910736989 -rb4e6c8da93f250a75e634cf9ecd317432cbd2199 --- tests/summary.tcl (.../summary.tcl) (revision ed172f2c771eab171130a72af81921b910736989) +++ tests/summary.tcl (.../summary.tcl) (revision b4e6c8da93f250a75e634cf9ecd317432cbd2199) @@ -8,22 +8,22 @@ if {[info exists opt(-testlog)]} { set f [open $opt(-testlog)]; set content [read $f]; close $f - lassign {0 0 0 0 0.0} tests success failures files time + lassign {0 0 0 0 0.0} tests success failures files ms foreach l [split $content \n] { array set "" $l if {[info exists (tests)]} { incr tests $(tests) incr failures $(failure) incr success $(success) incr files 1 - set time [expr {$time + $(time)}] + set ms [expr {$ms + $(ms)}] } } puts "\nRegression Test Summary:" puts "\tEnvironment: Tcl $tcl_patchLevel, OS $tcl_platform(os) $tcl_platform(osVersion)\ machine $tcl_platform(machine) threaded $tcl_platform(threaded)." - puts "\tNSF performed $tests tests in $files files, success $success, failures $failures in time [expr {$time / 1000.0}] seconds" + puts "\tNSF performed $tests tests in $files files, success $success, failures $failures in [expr {$ms / 1000.0}] seconds" if {$failures == 0} { puts "\tCongratulations, NSF [package require nsf], NX [package require nx], and\ XOTcl [package require XOTcl 2] work fine in your environment."