diff options
| author | surles <surles> | 1998-08-04 11:50:54 (GMT) |
|---|---|---|
| committer | surles <surles> | 1998-08-04 11:50:54 (GMT) |
| commit | 36e80da1975e7b338e6b25489249183cab3ee8ed (patch) | |
| tree | 447e93c2e9e02a2af4e4821c401a279e6dd59d24 /tests/unixFCmd.test | |
| parent | 76b7ca72cf1d6d56aed42299bd11ac04c301264b (diff) | |
| download | tcl-36e80da1975e7b338e6b25489249183cab3ee8ed.zip tcl-36e80da1975e7b338e6b25489249183cab3ee8ed.tar.gz tcl-36e80da1975e7b338e6b25489249183cab3ee8ed.tar.bz2 | |
Added test that verifies the EINTR bug has been fixed.
Diffstat (limited to 'tests/unixFCmd.test')
| -rw-r--r-- | tests/unixFCmd.test | 9 |
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 |