diff options
| author | Steve Bennett <steveb@workware.net.au> | 2014-01-04 09:08:27 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2014-01-15 07:14:43 +1000 |
| commit | 4cc0ca3896cacbce03a545fc39a106cd75fd394d (patch) | |
| tree | 65cf4314c05f440c8058d8241f5ced88be522c99 /tests/signal.test | |
| parent | c6954336d779c7e56aa38ecd6a50ff076ecfabbb (diff) | |
| download | jimtcl-4cc0ca3896cacbce03a545fc39a106cd75fd394d.zip jimtcl-4cc0ca3896cacbce03a545fc39a106cd75fd394d.tar.gz jimtcl-4cc0ca3896cacbce03a545fc39a106cd75fd394d.tar.bz2 | |
tests: fix tests if tclcompat is not enabled
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/signal.test')
| -rw-r--r-- | tests/signal.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/signal.test b/tests/signal.test index 4c08a96..e212501 100644 --- a/tests/signal.test +++ b/tests/signal.test @@ -2,6 +2,7 @@ source [file dirname [info script]]/testing.tcl needs cmd signal needs cmd pid +testConstraint try [expr {[info commands try] ne ""}] test signal-1.1 "catch/throw" { signal handle TERM @@ -77,7 +78,7 @@ test signal-1.7 "clearing ignored signals" { signal check } {} -test signal-1.8 "try/signal" { +test signal-1.8 "try/signal" try { signal handle ALRM try -signal { alarm 0.4 |