From a716f26d6b2a8f79a92917e88589e3f1f86a89a8 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Sat, 27 Feb 2021 08:44:54 +1000 Subject: tests: Fix return code from tests/runall.tcl In the case where interp is not supported Signed-off-by: Steve Bennett --- tests/runall.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests') 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 -- cgit v1.1