From 6afe81129c89d8bf34e3450c188e87ed108a00b2 Mon Sep 17 00:00:00 2001 From: Ben Gamari Date: Mon, 9 Dec 2019 14:41:17 -0500 Subject: testsuite: Add (broken) test for #17510 --- libraries/base/tests/IO/T17510.hs | 15 +++++++++++++++ libraries/base/tests/IO/T17510.stdout | 4 ++++ libraries/base/tests/IO/all.T | 1 + 3 files changed, 20 insertions(+) create mode 100644 libraries/base/tests/IO/T17510.hs create mode 100644 libraries/base/tests/IO/T17510.stdout diff --git a/libraries/base/tests/IO/T17510.hs b/libraries/base/tests/IO/T17510.hs new file mode 100644 index 0000000000..a291855a42 --- /dev/null +++ b/libraries/base/tests/IO/T17510.hs @@ -0,0 +1,15 @@ +-- | Test that a handle from 'hDuplicate' really shares the file position with +-- its parent. + +import System.IO +import GHC.IO.Handle + +main :: IO () +main = do + writeFile "test" "hello\nworld\ntesting\n" + h <- openFile "test" ReadMode + h2 <- hDuplicate h + hGetLine h >>= putStrLn -- should print "hello" + hGetLine h2 >>= putStrLn -- should print "world" + hGetLine h >>= putStrLn -- should print "testing" + diff --git a/libraries/base/tests/IO/T17510.stdout b/libraries/base/tests/IO/T17510.stdout new file mode 100644 index 0000000000..23e60981b1 --- /dev/null +++ b/libraries/base/tests/IO/T17510.stdout @@ -0,0 +1,4 @@ +hello +world +testing + diff --git a/libraries/base/tests/IO/all.T b/libraries/base/tests/IO/all.T index bfc6a090e9..189fbebb88 100644 --- a/libraries/base/tests/IO/all.T +++ b/libraries/base/tests/IO/all.T @@ -142,3 +142,4 @@ test('T17414', when(opsys('linux'), skip), high_memory_usage], compile_and_run, ['']) +test('T17510', expect_broken(17510), compile_and_run, ['']) -- cgit v1.2.1