signal: Remove the signal command from child interpreters

Currently signals can only be delivered to a single interpreter.
To avoid confusion where currently this is the most recently created
interpreter, don't create the signal command and handle signals in child interpreters.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 25 insertions, 17 deletions

diff --git a/tests/runall.tcl b/tests/runall.tcl
index 5b5d220..e51d520 100644
--- a/tests/runall.tcl
+++ b/tests/runall.tcl
@@ -24,25 +24,33 @@ if {[info commands interp] eq ""} {
 	foreach script [lsort [glob *.test]] {
 		set ::argv0 $script
 
-		set i [interp]
-
-		foreach var {argv0 auto_path} {
-			$i eval [list set $var [set ::$var]]
-		}
-
-		# Run the test
-		catch -exit {$i eval source $script} msg opts
-		if {[info returncode $opts(-code)] eq "error"} {
-			puts [format "%16s:   --- error ($msg)" $script]
-			incr total(fail)
-		}
-
-		# Extract the counts
-		foreach var {pass fail skip tests} {
-			incr total($var) [$i eval "set testinfo(num$var)"]
+		if {$script eq "signal.test"} {
+			# special case, can't run this in a child interpeter
+			source $script
+			foreach var {pass fail skip tests} {
+				incr total($var) $testinfo(num$var)
+			}
+		} else {
+			set i [interp]
+
+			foreach var {argv0 auto_path} {
+				$i eval [list set $var [set ::$var]]
+			}
+
+			# Run the test
+			catch -exit {$i eval source $script} msg opts
+			if {[info returncode $opts(-code)] eq "error"} {
+				puts [format "%16s:   --- error ($msg)" $script]
+				incr total(fail)
+			}
+
+			# Extract the counts
+			foreach var {pass fail skip tests} {
+				incr total($var) [$i eval "set testinfo(num$var)"]
+			}
+			$i delete
 		}
 
-		$i delete
 		stdout flush
 	}
 	puts [string repeat = 73]