diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-09-30 16:01:13 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-10-21 11:43:06 +1000 |
commit | 50525ae1adbd8b6fab322a47c5df744781e054fb (patch) | |
tree | 15eb54c640719dfbb319ff735f4718fe90b816c0 | |
parent | 5211ab075226c4f330e1f29e81c1f0a1fca837d2 (diff) | |
download | jimtcl-50525ae1adbd8b6fab322a47c5df744781e054fb.zip jimtcl-50525ae1adbd8b6fab322a47c5df744781e054fb.tar.gz jimtcl-50525ae1adbd8b6fab322a47c5df744781e054fb.tar.bz2 |
Source location for test which does "return"
If a test does a "return" and the result is not the expected value,
the source location of the test is wrong.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | tests/testing.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/testing.tcl b/tests/testing.tcl index 695c543..6295e2b 100644 --- a/tests/testing.tcl +++ b/tests/testing.tcl @@ -179,7 +179,7 @@ proc test {id descr args} { puts -nonewline "$id " } puts "ERR $descr" - if {$rc == 0} { + if {$rc in {0 2}} { set source [script_source $a(-body)] } else { set source [error_source] |