diff options
Diffstat (limited to 'libraries/base/tests/IO')
| -rw-r--r-- | libraries/base/tests/IO/openFile002.stderr-mingw32-2 | 1 | ||||
| -rw-r--r-- | libraries/base/tests/IO/openFile009.hs | 11 |
2 files changed, 8 insertions, 4 deletions
diff --git a/libraries/base/tests/IO/openFile002.stderr-mingw32-2 b/libraries/base/tests/IO/openFile002.stderr-mingw32-2 new file mode 100644 index 0000000000..b011f34146 --- /dev/null +++ b/libraries/base/tests/IO/openFile002.stderr-mingw32-2 @@ -0,0 +1 @@ +openFile002: nonexistent: openFile: does not exist (No such file or directory) diff --git a/libraries/base/tests/IO/openFile009.hs b/libraries/base/tests/IO/openFile009.hs index 00328ed0cb..7387d34c95 100644 --- a/libraries/base/tests/IO/openFile009.hs +++ b/libraries/base/tests/IO/openFile009.hs @@ -9,12 +9,15 @@ testfile = "openFile009_testfile" -- Make sure opening with append doesn't truncate files. main = do - h <- openFile testfile Write - hPutStr "Hello" + h <- openFile testfile WriteMode + hPutStr h "Hello" hClose h - h <- openFile testfile Append - hPutStr " World!" + h <- openFile testfile AppendMode + hPutStr h " World!" hClose h s <- readFile testfile putStrLn s +<<<<<<< HEAD +======= +>>>>>>> 5f3eba6572... winio: Fix sqrt and openFile009 test cases |