From dd8d883c9c81517a851df7f13f38a4fca801e4c9 Mon Sep 17 00:00:00 2001 From: antirez Date: Tue, 4 Mar 2014 11:17:27 +0100 Subject: [PATCH] Sentiel test: add test start time in output. --- tests/sentinel.tcl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/tests/sentinel.tcl b/tests/sentinel.tcl index 80f9f90b..1adab0a5 100644 --- a/tests/sentinel.tcl +++ b/tests/sentinel.tcl @@ -101,9 +101,9 @@ proc parse_options {} { } elseif {$opt eq "--help"} { puts "Hello, I'm sentinel.tcl and I run Sentinel unit tests." puts "\nOptions:" - puts "--single Only runs tests specified by pattern." - puts "--pause-on-error Pause for manual inspection on error." - puts "--help Shows this help." + puts "--single Only runs tests specified by pattern." + puts "--pause-on-error Pause for manual inspection on error." + puts "--help Shows this help." exit 0 } else { puts "Unknown option $opt" @@ -137,7 +137,8 @@ proc pause_on_error {} { # We redefine 'test' as for Sentinel we don't use the server-client # architecture for the test, everything is sequential. proc test {descr code} { - puts -nonewline "> $descr: " + set ts [clock format [clock seconds] -format %H:%M:%S] + puts -nonewline "$ts> $descr: " flush stdout if {[catch {set retval [uplevel 1 $code]} error]} {