testsuite: Add test for #14925
authorBen Gamari <bgamari.foss@gmail.com>
Sun, 25 Mar 2018 19:33:48 +0000 (15:33 -0400)
committerBen Gamari <ben@smart-cactus.org>
Sun, 25 Mar 2018 19:33:56 +0000 (15:33 -0400)
Test Plan: Validate

Reviewers: alpmestan

Reviewed By: alpmestan

Subscribers: alpmestan, leftaroundabout, rwbarton, thomie, carter

GHC Trac Issues: #14925

Differential Revision: https://phabricator.haskell.org/D4512

T14925.stdout [new file with mode: 0644]
testsuite/tests/typecheck/should_run/T14925.hs [new file with mode: 0644]
testsuite/tests/typecheck/should_run/all.T

diff --git a/T14925.stdout b/T14925.stdout
new file mode 100644 (file)
index 0000000..6a44a99
--- /dev/null
@@ -0,0 +1 @@
diff --git a/testsuite/tests/typecheck/should_run/T14925.hs b/testsuite/tests/typecheck/should_run/T14925.hs
new file mode 100644 (file)
index 0000000..ed57a82
--- /dev/null
@@ -0,0 +1,6 @@
+import Data.Typeable
+
+data Ω = Ω
+
+main :: IO ()
+main = print $ typeOf Ω
index 2907612..f7643ba 100755 (executable)
@@ -125,3 +125,4 @@ test('T11715', exit_code(1), compile_and_run, [''])
 test('T13594a', normal, ghci_script, ['T13594a.script'])
 test('T14218', normal, compile_and_run, [''])
 test('T14236', normal, compile_and_run, [''])
+test('T14925', expect_broken(14925), compile_and_run, [''])