base: Add test for #13525
authorBen Gamari <bgamari.foss@gmail.com>
Wed, 5 Apr 2017 00:48:20 +0000 (20:48 -0400)
committerBen Gamari <ben@smart-cactus.org>
Wed, 5 Apr 2017 00:48:20 +0000 (20:48 -0400)
Reviewers: austin, hvr

Subscribers: rwbarton, thomie

Differential Revision: https://phabricator.haskell.org/D3419

libraries/base/tests/T13525.hs [new file with mode: 0644]
libraries/base/tests/all.T

diff --git a/libraries/base/tests/T13525.hs b/libraries/base/tests/T13525.hs
new file mode 100644 (file)
index 0000000..1bb01b6
--- /dev/null
@@ -0,0 +1,7 @@
+import System.IO
+import System.Timeout
+
+main :: IO ()
+main = do
+    hWaitForInput stdin (5 * 1000)
+    return ()
index 13049f7..49298d3 100644 (file)
@@ -211,3 +211,4 @@ test('T13191',
         , only_ways(['normal'])],
       compile_and_run,
       ['-O'])
+test('T13525', expect_broken(13525), compile_and_run, [''])