diff options
Diffstat (limited to 'tests/support/test.tcl')
-rw-r--r-- | tests/support/test.tcl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl index 22f7926da..118300dbc 100644 --- a/tests/support/test.tcl +++ b/tests/support/test.tcl @@ -152,11 +152,17 @@ proc test {name code {okpattern undefined} {tags {}}} { set details {} lappend details "$name in $::curfile" - # set a cur_test global to be logged into new servers that are spown + # set a cur_test global to be logged into new servers that are spawn # and log the test name in all existing servers set prev_test $::cur_test set ::cur_test "$name in $::curfile" - if {!$::external} { + if {$::external} { + catch { + set r [redis [srv 0 host] [srv 0 port] 0 $::tls] + $r debug log "### Starting test $::cur_test" + $r close + } + } else { foreach srv $::servers { set stdout [dict get $srv stdout] set fd [open $stdout "a+"] |