Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/38163b919c9b429a003468afe2ac93f9bc9bd3f0 >--------------------------------------------------------------- commit 38163b919c9b429a003468afe2ac93f9bc9bd3f0 Author: Patrick Palka <[email protected]> Date: Wed Aug 8 08:39:35 2012 -0400 Add test case for #7117 >--------------------------------------------------------------- tests/ghci/scripts/T7117.script | 4 ++++ tests/ghci/scripts/T7117.stdout | 1 + tests/ghci/scripts/all.T | 1 + 3 files changed, 6 insertions(+), 0 deletions(-) diff --git a/tests/ghci/scripts/T7117.script b/tests/ghci/scripts/T7117.script new file mode 100644 index 0000000..8085822 --- /dev/null +++ b/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/tests/ghci/scripts/T7117.stdout b/tests/ghci/scripts/T7117.stdout new file mode 100644 index 0000000..1e8f8e5 --- /dev/null +++ b/tests/ghci/scripts/T7117.stdout @@ -0,0 +1 @@ +FooInt :: Foo Int diff --git a/tests/ghci/scripts/all.T b/tests/ghci/scripts/all.T index 12bc870..52cf9e4 100755 --- a/tests/ghci/scripts/all.T +++ b/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']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
