summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorsurles <surles>1998-08-04 11:50:54 (GMT)
committersurles <surles>1998-08-04 11:50:54 (GMT)
commit36e80da1975e7b338e6b25489249183cab3ee8ed (patch)
tree447e93c2e9e02a2af4e4821c401a279e6dd59d24
parent76b7ca72cf1d6d56aed42299bd11ac04c301264b (diff)
downloadtcl-36e80da1975e7b338e6b25489249183cab3ee8ed.zip
tcl-36e80da1975e7b338e6b25489249183cab3ee8ed.tar.gz
tcl-36e80da1975e7b338e6b25489249183cab3ee8ed.tar.bz2
Added test that verifies the EINTR bug has been fixed.
-rw-r--r--tests/unixFCmd.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test
index 037b5b4..41b9bc7 100644
--- a/tests/unixFCmd.test
+++ b/tests/unixFCmd.test
@@ -91,7 +91,14 @@ test unixFCmd-1.7 {TclpRenameFile: EXDEV} {
catch {file delete -force foo}
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}
test unixFCmd-2.1 {TclpCopyFile: target exists: lstat(dst) == 0} {
cleanup
exec touch tf1