diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/lib/IO/countReaders001.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/lib/IO/countReaders001.hs | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/testsuite/tests/ghc-regress/lib/IO/countReaders001.hs b/testsuite/tests/ghc-regress/lib/IO/countReaders001.hs deleted file mode 100644 index 2648ae77ae..0000000000 --- a/testsuite/tests/ghc-regress/lib/IO/countReaders001.hs +++ /dev/null @@ -1,17 +0,0 @@ --- test for trac #629. We need to keep track of how many readers --- there are rather than closing the first read handle causing the --- lock to be released. - -import System.IO -import System.IO.Error - -file = "countReaders001.txt" - -main = do - writeFile file "foo" - - h1 <- openFile file ReadMode - h2 <- openFile file ReadMode - hClose h1 - tryIOError (openFile file AppendMode) >>= print - |