diff options
author | surles <surles@noemail.net> | 1998-08-06 10:12:59 (GMT) |
---|---|---|
committer | surles <surles@noemail.net> | 1998-08-06 10:12:59 (GMT) |
commit | e74f24e51fb441c3379f6fba1cdb8e6f915287ef (patch) | |
tree | a1663a3080eb73b086f2269104de6928995feb0e /tests/unixFCmd.test | |
parent | 3196e84efa9cb6d8647806dcb074645e1aa7d863 (diff) | |
download | tcl-e74f24e51fb441c3379f6fba1cdb8e6f915287ef.zip tcl-e74f24e51fb441c3379f6fba1cdb8e6f915287ef.tar.gz tcl-e74f24e51fb441c3379f6fba1cdb8e6f915287ef.tar.bz2 |
Changed the alarm test
FossilOrigin-Name: e0e242b80d705f6cc8a4cdd835f6e999b4857b39
Diffstat (limited to 'tests/unixFCmd.test')
-rw-r--r-- | tests/unixFCmd.test | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test index 41b9bc7..e8f997d 100644 --- a/tests/unixFCmd.test +++ b/tests/unixFCmd.test @@ -92,13 +92,25 @@ test unixFCmd-1.7 {TclpRenameFile: EXDEV} { set result } {1} test unixFCmd-1.8 {Checking EINTR Bug} { - global gotsig - set gotsig 0 - testalarm {set gotsig 1} - for {set i 0} {$i < 500000} {incr i} {} - return $gotsig -} {1} -catch {unset gotsig} + testalarm + after 2000 + list [testgotsig] [testgotsig] +} {1 0} +test unixFCmd-1.9 {Checking EINTR Bug} { + cleanup + set f [open tfalarm w] + puts $f { + after 2000 + puts "hello world" + exit 0 + } + close $f + testalarm + set pipe [open "|[info nameofexecutable] tfalarm" r+] + set line [read $pipe 1] + catch {close $pipe} + list $line [testgotsig] +} {h 1} test unixFCmd-2.1 {TclpCopyFile: target exists: lstat(dst) == 0} { cleanup exec touch tf1 |