diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-08-17 08:21:39 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:50 +1000 |
commit | cbc635e8f4de48408768053a976dc7bd7177ba7a (patch) | |
tree | bca1549fa15afc234868b5c46cd8a4a486f16b8f /tcltests | |
parent | 75af5a8f20800977aabfd95fdfc403f851f8c459 (diff) | |
download | jimtcl-cbc635e8f4de48408768053a976dc7bd7177ba7a.zip jimtcl-cbc635e8f4de48408768053a976dc7bd7177ba7a.tar.gz jimtcl-cbc635e8f4de48408768053a976dc7bd7177ba7a.tar.bz2 |
Clean up the indentation mess
Use 'indent'. Not perfect, but at least consistent.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tcltests')
-rw-r--r-- | tcltests/test.bin | bin | 259 -> 256 bytes | |||
-rw-r--r-- | tcltests/test_signal2.tcl | 40 | ||||
-rw-r--r-- | tcltests/test_trysignal.tcl | 16 |
3 files changed, 56 insertions, 0 deletions
diff --git a/tcltests/test.bin b/tcltests/test.bin Binary files differindex 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 |