Add test case for CompleteP pretty-printer (#19270)

3 files changed, 9 insertions, 0 deletions

diff --git a/libraries/template-haskell/tests/all.T b/libraries/template-haskell/tests/all.T
index 1d48d411d0..48f05c64fa 100644
--- a/libraries/template-haskell/tests/all.T
+++ b/libraries/template-haskell/tests/all.T
@@ -1,2 +1,3 @@
 # difficult to test TH with profiling, because we have to build twice
 test('dataToExpQUnit', [omit_ways(prof_ways), req_interp], compile, ['-v0'])
+test('pragCompletePpr', [omit_ways(prof_ways), req_interp], compile_and_run, [''])
diff --git a/libraries/template-haskell/tests/pragCompletePpr.hs b/libraries/template-haskell/tests/pragCompletePpr.hs
new file mode 100644
index 0000000000..cb06cdb10d
--- /dev/null
+++ b/libraries/template-haskell/tests/pragCompletePpr.hs
@@ -0,0 +1,7 @@
+module Main (main) where
+
+import Language.Haskell.TH.Ppr    (ppr)
+import Language.Haskell.TH.Syntax (Dec (PragmaD), Pragma (CompleteP), mkName)
+
+main :: IO ()
+main = print $ ppr $ PragmaD $ CompleteP [mkName "Foo", mkName "Bar"] $ Just $ mkName "Bar"
diff --git a/libraries/template-haskell/tests/pragCompletePpr.stdout b/libraries/template-haskell/tests/pragCompletePpr.stdout
new file mode 100644
index 0000000000..289e2ac71c
--- /dev/null
+++ b/libraries/template-haskell/tests/pragCompletePpr.stdout
@@ -0,0 +1 @@
+{-# COMPLETE Foo, Bar :: Bar #-}