diff options
| author | Patrick Palka <patrick@parcs.ath.cx> | 2012-08-08 08:39:35 -0400 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-08-13 19:39:51 +0100 |
| commit | f5144f5c3d1053ed833a9ca91e963dc0acf9daed (patch) | |
| tree | 53a040ae9102111989ecfc8faba1ff6932dac89e /testsuite/tests/ghci/scripts | |
| parent | 562b15495bb9c5fee390de07eb0e10f8417ca3c0 (diff) | |
| download | haskell-f5144f5c3d1053ed833a9ca91e963dc0acf9daed.tar.gz | |
Add test case for #7117
Diffstat (limited to 'testsuite/tests/ghci/scripts')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T7117.script | 4 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T7117.stdout | 1 | ||||
| -rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 1 |
3 files changed, 6 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T7117.script b/testsuite/tests/ghci/scripts/T7117.script new file mode 100644 index 0000000000..8085822137 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T7117.script @@ -0,0 +1,4 @@ +:set -XTypeFamilies +data family Foo a +data instance Foo Int = FooInt +:t FooInt diff --git a/testsuite/tests/ghci/scripts/T7117.stdout b/testsuite/tests/ghci/scripts/T7117.stdout new file mode 100644 index 0000000000..1e8f8e5dcb --- /dev/null +++ b/testsuite/tests/ghci/scripts/T7117.stdout @@ -0,0 +1 @@ +FooInt :: Foo Int diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index 12bc870ea9..52cf9e4808 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -130,3 +130,4 @@ test('T6007', normal, ghci_script, ['T6007.script']) test('T6091', normal, ghci_script, ['T6091.script']) test('T6106', extra_clean(['T6106.hs']), ghci_script, ['T6106.script']) test('T6105', normal, ghci_script, ['T6105.script']) +test('T7117', normal, ghci_script, ['T7117.script']) |