From cae1fb1732deef1b8269de96a88ef053148bb4d8 Mon Sep 17 00:00:00 2001
From: Matthew Pickering <matthewtpickering@gmail.com>
Date: Tue, 18 Jan 2022 11:03:38 +0000
Subject: [PATCH] Frontend01 passes with static GHC
---
testsuite/tests/plugins/all.T | 3 +--
testsuite/tests/th/T20791.hs | 7 -------
testsuite/tests/th/all.T | 1 -
3 files changed, 1 insertion(+), 10 deletions(-)
delete mode 100644 testsuite/tests/th/T20791.hs
diff --git a/testsuite/tests/plugins/all.T b/testsuite/tests/plugins/all.T
index 928bc494eb74..a194f9d923e6 100644
--- a/testsuite/tests/plugins/all.T
+++ b/testsuite/tests/plugins/all.T
@@ -119,8 +119,7 @@ test('T10294a',
makefile_test, [])
test('frontend01', [extra_files(['FrontendPlugin.hs']),
- only_ways([config.ghc_plugin_way]),
- unless(have_dynamic(), expect_broken(10301))],
+ only_ways([config.ghc_plugin_way]) ],
makefile_test, [])
test('T11244',
diff --git a/testsuite/tests/th/T20791.hs b/testsuite/tests/th/T20791.hs
deleted file mode 100644
index 450079e413d5..000000000000
--- a/testsuite/tests/th/T20791.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-{-# 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 6ed8ff95ef68..1e9ece046a82 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -543,4 +543,3 @@ 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, [''])
--
GitLab