Move tests from tests/ghc-regress/* to just tests/*

1 files changed, 30 insertions, 0 deletions

diff --git a/testsuite/tests/lib/IO/readFile001.stdout b/testsuite/tests/lib/IO/readFile001.stdout
new file mode 100644
index 0000000000..cfb75708f9
--- /dev/null
+++ b/testsuite/tests/lib/IO/readFile001.stdout
@@ -0,0 +1,30 @@
+Left readFile001.out: openFile: resource busy (file is locked)
+-- !!! readFile test
+
+import System.IO
+import System.IO.Error
+
+source   = "readFile001.hs"
+filename = "readFile001.out"
+
+main = do
+  s <- readFile source
+  h <- openFile filename WriteMode
+  hPutStrLn h s
+  hClose h
+  s <- readFile filename
+
+  -- This open should fail, because the readFile hasn't been forced
+  -- and the file is therefore still locked.
+  tryIOError (openFile filename WriteMode) >>= print
+
+  putStrLn s
+
+  -- should be able to open it for writing now, because we've forced the
+  -- whole file.
+  h <- openFile filename WriteMode
+
+  print h
+
+
+{handle: readFile001.out}