diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-03-13 13:16:38 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-07-15 16:41:02 -0400 |
| commit | 9acb9f40d90b79da9e587022d73f8afb26a46463 (patch) | |
| tree | 44c4c7e103f4bad6197f71a006b7780f09e1f20c /libraries/base/tests | |
| parent | 55c29700fba3f35a80acd366b2f05b66464d8258 (diff) | |
| download | haskell-9acb9f40d90b79da9e587022d73f8afb26a46463.tar.gz | |
winio: Fix sqrt and openFile009 test cases
Diffstat (limited to 'libraries/base/tests')
| -rw-r--r-- | libraries/base/tests/IO/openFile002.stderr-mingw32-2 | 1 | ||||
| -rw-r--r-- | libraries/base/tests/IO/openFile009.hs | 11 | ||||
| -rw-r--r-- | libraries/base/tests/Numeric/all.T | 2 |
3 files changed, 9 insertions, 5 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 diff --git a/libraries/base/tests/Numeric/all.T b/libraries/base/tests/Numeric/all.T index 74d4c06514..0d6d0728d1 100644 --- a/libraries/base/tests/Numeric/all.T +++ b/libraries/base/tests/Numeric/all.T @@ -11,7 +11,7 @@ test('num008', normal, compile_and_run, ['']) test('num009', [ when(fast(), skip) # , when(wordsize(32), expect_broken(15062)) , when(platform('powerpc64le-unknown-linux'), expect_broken(13634))], - compile_and_run, [opts]) + compile_and_run, ['']) test('num010', when(platform('i386-apple-darwin'), expect_broken_for(7043, ['ghci'])), compile_and_run, |