[commit: ghc] wip/T8776: Add test case for #8776 (25f9858)

git at git.haskell.org git at git.haskell.org
Wed Mar 19 14:33:06 UTC 2014


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T8776
Link       : http://ghc.haskell.org/trac/ghc/changeset/25f985851b7d9c343911a45ad67a1e5b4d66f53b/ghc

>---------------------------------------------------------------

commit 25f985851b7d9c343911a45ad67a1e5b4d66f53b
Author: Dr. ERDI Gergo <gergo at erdi.hu>
Date:   Fri Mar 14 22:34:56 2014 +0800

    Add test case for #8776


>---------------------------------------------------------------

25f985851b7d9c343911a45ad67a1e5b4d66f53b
 testsuite/tests/ghci/scripts/T8776.hs     |    6 ++++++
 testsuite/tests/ghci/scripts/T8776.script |    2 ++
 testsuite/tests/ghci/scripts/T8776.stdout |    1 +
 testsuite/tests/ghci/scripts/all.T        |    2 ++
 4 files changed, 11 insertions(+)

diff --git a/testsuite/tests/ghci/scripts/T8776.hs b/testsuite/tests/ghci/scripts/T8776.hs
new file mode 100644
index 0000000..55e329c
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T8776.hs
@@ -0,0 +1,6 @@
+{-# LANGUAGE PatternSynonyms, GADTs #-}
+data A x y = (Num x, Eq y) => B
+
+data R = R{ rX :: Int }
+
+pattern P = B
diff --git a/testsuite/tests/ghci/scripts/T8776.script b/testsuite/tests/ghci/scripts/T8776.script
new file mode 100644
index 0000000..baaca9f
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T8776.script
@@ -0,0 +1,2 @@
+:load T8776.hs
+:i P
diff --git a/testsuite/tests/ghci/scripts/T8776.stdout b/testsuite/tests/ghci/scripts/T8776.stdout
new file mode 100644
index 0000000..9c9e89a
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T8776.stdout
@@ -0,0 +1 @@
+pattern (Num t, Eq t1) => P :: (A t t1) 	-- Defined at T8776.hs:6:9
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index e9fe6e8..06c0716 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -166,3 +166,5 @@ test('T8579', normal, ghci_script, ['T8579.script'])
 test('T8649', normal, ghci_script, ['T8649.script'])
 test('T8674', normal, ghci_script, ['T8674.script'])
 test('T8696', normal, ghci_script, ['T8696.script'])
+test('T8776', normal, ghci_script, ['T8776.script'])
+



More information about the ghc-commits mailing list