diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-01-19 10:35:24 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-03 14:44:17 -0500 |
| commit | b0e1ef4a31899b0b20adcf0473f0814c2479e1e6 (patch) | |
| tree | 999d2055a36cade801cc064cc0d5dfd6ef4f71fc | |
| parent | e59446c6a682587c21424e5830f305ab2f8f8cfa (diff) | |
| download | haskell-b0e1ef4a31899b0b20adcf0473f0814c2479e1e6.tar.gz | |
Add failing test for #20791
The test produces different output on static vs dynamic GHC builds.
| -rw-r--r-- | testsuite/tests/th/T20791.hs | 7 | ||||
| -rw-r--r-- | testsuite/tests/th/all.T | 1 |
2 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/th/T20791.hs b/testsuite/tests/th/T20791.hs new file mode 100644 index 0000000000..450079e413 --- /dev/null +++ b/testsuite/tests/th/T20791.hs @@ -0,0 +1,7 @@ +{-# LANGUAGE TemplateHaskell #-} +module T20791 where + +import Control.Monad.IO.Class + +main = $(liftIO $ (print ()) >> [| print () |]) + diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index 1e9ece046a..6ed8ff95ef 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -543,3 +543,4 @@ test('T17820e', normal, compile_fail, ['']) test('T20590', normal, compile, ['-v0 -ddump-splices -dsuppress-uniques']) test('T20773', only_ways(['ghci']), ghci_script, ['T20773.script']) test('T20884', normal, compile_fail, ['']) +test('T20791', [ unless(ghc_dynamic(), expect_broken(20791)) ], compile, ['']) |