diff options
author | Ben Gamari <ben@smart-cactus.org> | 2021-08-19 12:18:50 -0400 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-09-17 09:37:06 -0400 |
commit | 0d996d029590d1523f2db64b608456e2228a19dc (patch) | |
tree | 89452e4f2e83d363297effa00e49dbc09a9d9481 | |
parent | 6a7ae5edb21444804e9b2ac71018925745bea0b8 (diff) | |
download | haskell-0d996d029590d1523f2db64b608456e2228a19dc.tar.gz |
testsuite: Add test for #18382
-rw-r--r-- | libraries/base/tests/T18382/T18382.hs | 8 | ||||
-rw-r--r-- | libraries/base/tests/T18382/T18382.stdout | 1 | ||||
-rw-r--r-- | libraries/base/tests/T18382/all.T | 7 |
3 files changed, 16 insertions, 0 deletions
diff --git a/libraries/base/tests/T18382/T18382.hs b/libraries/base/tests/T18382/T18382.hs new file mode 100644 index 0000000000..42cdea04bc --- /dev/null +++ b/libraries/base/tests/T18382/T18382.hs @@ -0,0 +1,8 @@ +import System.Environment +import System.Process + +main :: IO () +main = do + hc <- getEnv "TEST_HC" + out <- readProcess hc ["--info"] "" + putStrLn "done" diff --git a/libraries/base/tests/T18382/T18382.stdout b/libraries/base/tests/T18382/T18382.stdout new file mode 100644 index 0000000000..19f86f493a --- /dev/null +++ b/libraries/base/tests/T18382/T18382.stdout @@ -0,0 +1 @@ +done diff --git a/libraries/base/tests/T18382/all.T b/libraries/base/tests/T18382/all.T new file mode 100644 index 0000000000..f58231688d --- /dev/null +++ b/libraries/base/tests/T18382/all.T @@ -0,0 +1,7 @@ +test('T18382', + [unless(opsys('mingw32'), skip), + extra_run_opts('+RTS --io-manager=native -RTS'), + expect_broken(18382), + ], + compile_and_run, + ['']) |