diff options
Diffstat (limited to 'tests/support')
| -rw-r--r-- | tests/support/test.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl index b35b29185..f3f7e132a 100644 --- a/tests/support/test.tcl +++ b/tests/support/test.tcl @@ -180,6 +180,7 @@ proc test {name code {okpattern undefined} {tags {}}} { send_data_packet $::test_server_fd testing $name + set test_start_time [clock milliseconds] if {[catch {set retval [uplevel 1 $code]} error]} { set assertion [string match "assertion:*" $error] if {$assertion || $::durable} { @@ -207,7 +208,8 @@ proc test {name code {okpattern undefined} {tags {}}} { } else { if {$okpattern eq "undefined" || $okpattern eq $retval || [string match $okpattern $retval]} { incr ::num_passed - send_data_packet $::test_server_fd ok $name + set elapsed [expr {[clock milliseconds]-$test_start_time}] + send_data_packet $::test_server_fd ok $name $elapsed } else { set msg "Expected '$okpattern' to equal or match '$retval'" lappend details $msg |