From 36e80da1975e7b338e6b25489249183cab3ee8ed Mon Sep 17 00:00:00 2001
From: surles <surles>
Date: Tue, 4 Aug 1998 11:50:54 +0000
Subject: Added test that verifies the EINTR bug has been fixed.

---
 tests/unixFCmd.test | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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
-- 
cgit v0.12