From b4edcde70160820dd23c53d9019f895930e2c0e7 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Wed, 10 Jun 2020 19:07:11 -0400
Subject: [PATCH] testsuite: Add broken test for #18302
---
testsuite/tests/rename/should_compile/T18302A.hs | 4 ++++
testsuite/tests/rename/should_compile/T18302B.hs | 8 ++++++++
testsuite/tests/rename/should_compile/all.T | 1 +
3 files changed, 13 insertions(+)
create mode 100644 testsuite/tests/rename/should_compile/T18302A.hs
create mode 100644 testsuite/tests/rename/should_compile/T18302B.hs
diff --git a/testsuite/tests/rename/should_compile/T18302A.hs b/testsuite/tests/rename/should_compile/T18302A.hs
new file mode 100644
index 000000000000..7df51aa3ea3d
--- /dev/null
+++ b/testsuite/tests/rename/should_compile/T18302A.hs
@@ -0,0 +1,4 @@
+module T18302A ( module GHC.Prim ) where
+
+import GHC.Prim
+
diff --git a/testsuite/tests/rename/should_compile/T18302B.hs b/testsuite/tests/rename/should_compile/T18302B.hs
new file mode 100644
index 000000000000..6c8075fa9f20
--- /dev/null
+++ b/testsuite/tests/rename/should_compile/T18302B.hs
@@ -0,0 +1,8 @@
+-- | Check that TYPE and (->) are re-exportable.
+module T18302B where
+
+import T18302A
+
+type T = TYPE
+type F = (->)
+
diff --git a/testsuite/tests/rename/should_compile/all.T b/testsuite/tests/rename/should_compile/all.T
index ae82bd30c69b..92f186075e0b 100644
--- a/testsuite/tests/rename/should_compile/all.T
+++ b/testsuite/tests/rename/should_compile/all.T
@@ -176,3 +176,4 @@ test('T17832', [], multimod_compile, ['T17832M1', 'T17832M2'])
test('T17837', normal, compile, [''])
test('T18497', [], makefile_test, ['T18497'])
test('T18264', [], makefile_test, ['T18264'])
+test('T18302', expect_broken(18302), compile, [''])
--
GitLab