summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2020-06-10 19:07:11 -0400
committerBen Gamari <ben@smart-cactus.org>2020-09-01 14:53:42 -0400
commitb4edcde70160820dd23c53d9019f895930e2c0e7 (patch)
tree317b46cbfb1c699f119f045a629c76f8c3bf3e20
parent4b4fbc58d37d37457144014ef82bdd928de175df (diff)
downloadhaskell-b4edcde70160820dd23c53d9019f895930e2c0e7.tar.gz
testsuite: Add broken test for #18302
-rw-r--r--testsuite/tests/rename/should_compile/T18302A.hs4
-rw-r--r--testsuite/tests/rename/should_compile/T18302B.hs8
-rw-r--r--testsuite/tests/rename/should_compile/all.T1
3 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_compile/T18302A.hs b/testsuite/tests/rename/should_compile/T18302A.hs
new file mode 100644
index 0000000000..7df51aa3ea
--- /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 0000000000..6c8075fa9f
--- /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 ae82bd30c6..92f186075e 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, [''])