diff options
author | Steve Bennett <steveb@workware.net.au> | 2021-02-27 08:44:54 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2021-02-27 08:48:51 +1000 |
commit | a716f26d6b2a8f79a92917e88589e3f1f86a89a8 (patch) | |
tree | 9fcf7f1ea3c098538fb2356d42242c334e376b6b /tests/runall.tcl | |
parent | 1b1845ebb35cce41b1ad3403cc82d3221cd60449 (diff) | |
download | jimtcl-a716f26d6b2a8f79a92917e88589e3f1f86a89a8.zip jimtcl-a716f26d6b2a8f79a92917e88589e3f1f86a89a8.tar.gz jimtcl-a716f26d6b2a8f79a92917e88589e3f1f86a89a8.tar.bz2 |
tests: Fix return code from tests/runall.tcl
In the case where interp is not supported
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/runall.tcl')
-rw-r--r-- | tests/runall.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/runall.tcl b/tests/runall.tcl index 2b49526..a97ecfd 100644 --- a/tests/runall.tcl +++ b/tests/runall.tcl @@ -11,13 +11,13 @@ set testdir [file dirname [info script]] catch {package require interp} if {[info commands interp] eq ""} { - set rc 1 + set rc 0 foreach script [lsort [glob $testdir/*.test]] { if {[catch { exec [info nameofexecutable] $script >@stdout 2>@stderr - set rc 0 } msg opts]} { puts "Failed: $script" + set rc 1 } } exit $rc |