diff options
author | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-03-14 22:34:56 +0800 |
---|---|---|
committer | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-03-14 22:34:56 +0800 |
commit | de32a95ef21970c2db959509861b4f59d1dcbb82 (patch) | |
tree | 36bbb1de11376c7838a88a79a2483d348aa627c8 /testsuite/tests/ghci/scripts | |
parent | 52003696ff7a2bbf86fbfccfe29b9f146a1ea549 (diff) | |
download | haskell-de32a95ef21970c2db959509861b4f59d1dcbb82.tar.gz |
Add test case for #8776
Diffstat (limited to 'testsuite/tests/ghci/scripts')
-rw-r--r-- | testsuite/tests/ghci/scripts/T8776.hs | 6 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T8776.script | 2 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T8776.stdout | 1 | ||||
-rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 2 |
4 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T8776.hs b/testsuite/tests/ghci/scripts/T8776.hs new file mode 100644 index 0000000000..55e329cd43 --- /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 0000000000..baaca9f66e --- /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 0000000000..9c9e89ad94 --- /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 e9fe6e864a..06c07162f9 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']) + |