Clean up the indentation mess

Use 'indent'. Not perfect, but at least consistent.

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

3 files changed, 56 insertions, 0 deletions

diff --git a/tcltests/test.bin b/tcltests/test.bin
index 82f43cd..c866266 100644
--- a/tcltests/test.bin
+++ b/tcltests/test.bin
diff --git a/tcltests/test_signal2.tcl b/tcltests/test_signal2.tcl
new file mode 100644
index 0000000..ecbb88b
--- /dev/null
+++ b/tcltests/test_signal2.tcl
@@ -0,0 +1,40 @@
+signal ignore HUP TERM
+signal handle ALRM INT
+
+# Send both the handled signals.
+# Should not exit here
+alarm 1
+kill -INT [pid]
+sleep 2
+set x 0
+set signals {}
+try -signal {
+	# This should not execute
+	incr x
+} on signal {signals} {
+}
+check signal.1 $x 0
+check signal.2 [lsort $signals] "SIGALRM SIGINT"
+
+# Now no signals should be pending
+set x 0
+set signals {}
+alarm 1
+try -signal {
+	kill -HUP [pid]
+	signal throw TERM
+	# Should get here
+	incr x
+	sleep 10
+	# But not get here
+	incr x
+} on signal {signals} {
+}
+
+check signal.3 $x 1
+check signal.4 [lsort $signals] "SIGALRM"
+check signal.5 [lsort [signal check]] "SIGHUP SIGTERM"
+check signal.6 [lsort [signal check SIGTERM]] "SIGTERM"
+check signal.7 [lsort [signal check -clear SIGTERM]] "SIGTERM"
+check signal.8 [lsort [signal check -clear]] "SIGHUP"
+check signal.9 [lsort [signal check]] ""
diff --git a/tcltests/test_trysignal.tcl b/tcltests/test_trysignal.tcl
new file mode 100644
index 0000000..5a87045
--- /dev/null
+++ b/tcltests/test_trysignal.tcl
@@ -0,0 +1,16 @@
+signal handle ALRM
+
+alarm 1
+try -signal {
+	foreach i {1 2 3 4 5} {
+		sleep 0.4
+	}
+	set msg ""
+} on signal {msg} {
+	# Just set msg here
+} finally {
+	alarm 0
+}
+
+check trysignal.1 $msg SIGALRM
+check trysignal.2 [expr {$i in {2 3}}] 1