Add test case for #7117
authorPatrick Palka <patrick@parcs.ath.cx>
Wed, 8 Aug 2012 12:39:35 +0000 (08:39 -0400)
committerPaolo Capriotti <p.capriotti@gmail.com>
Mon, 13 Aug 2012 18:39:51 +0000 (19:39 +0100)
testsuite/tests/ghci/scripts/T7117.script [new file with mode: 0644]
testsuite/tests/ghci/scripts/T7117.stdout [new file with mode: 0644]
testsuite/tests/ghci/scripts/all.T

diff --git a/testsuite/tests/ghci/scripts/T7117.script b/testsuite/tests/ghci/scripts/T7117.script
new file mode 100644 (file)
index 0000000..8085822
--- /dev/null
@@ -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 (file)
index 0000000..1e8f8e5
--- /dev/null
@@ -0,0 +1 @@
+FooInt :: Foo Int
index 12bc870..52cf9e4 100755 (executable)
@@ -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'])