diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-10-23 15:03:33 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-10-23 15:03:59 +0100 |
commit | 2041b94e39e92b25b0f2be1b8259126df3b769e8 (patch) | |
tree | 373d38a4737da7f4af603d04f61a70c93d2a1792 /testsuite/tests | |
parent | 324f9952b5962eb971028401544e54f43a5abe66 (diff) | |
download | haskell-2041b94e39e92b25b0f2be1b8259126df3b769e8.tar.gz |
Test Trac #8469
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/ghci/scripts/T8469.hs | 3 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T8469.script | 2 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T8469.stdout | 10 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T8469a.hs | 6 | ||||
-rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 2 |
5 files changed, 22 insertions, 1 deletions
diff --git a/testsuite/tests/ghci/scripts/T8469.hs b/testsuite/tests/ghci/scripts/T8469.hs new file mode 100644 index 0000000000..e44113ec0d --- /dev/null +++ b/testsuite/tests/ghci/scripts/T8469.hs @@ -0,0 +1,3 @@ +module T8469 where + +import T8469a diff --git a/testsuite/tests/ghci/scripts/T8469.script b/testsuite/tests/ghci/scripts/T8469.script new file mode 100644 index 0000000000..d587c3eec5 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T8469.script @@ -0,0 +1,2 @@ +:l T8469 +:info Int diff --git a/testsuite/tests/ghci/scripts/T8469.stdout b/testsuite/tests/ghci/scripts/T8469.stdout new file mode 100644 index 0000000000..6c66b35fab --- /dev/null +++ b/testsuite/tests/ghci/scripts/T8469.stdout @@ -0,0 +1,10 @@ +data Int = GHC.Types.I# GHC.Prim.Int# -- Defined in ‛GHC.Types’ +instance Bounded Int -- Defined in ‛GHC.Enum’ +instance Enum Int -- Defined in ‛GHC.Enum’ +instance Eq Int -- Defined in ‛GHC.Classes’ +instance Integral Int -- Defined in ‛GHC.Real’ +instance Num Int -- Defined in ‛GHC.Num’ +instance Ord Int -- Defined in ‛GHC.Classes’ +instance Read Int -- Defined in ‛GHC.Read’ +instance Real Int -- Defined in ‛GHC.Real’ +instance Show Int -- Defined in ‛GHC.Show’ diff --git a/testsuite/tests/ghci/scripts/T8469a.hs b/testsuite/tests/ghci/scripts/T8469a.hs new file mode 100644 index 0000000000..289a5fab2d --- /dev/null +++ b/testsuite/tests/ghci/scripts/T8469a.hs @@ -0,0 +1,6 @@ +{-# LANGUAGE TypeFamilies #-} + +module T8469a () where + +type family F a +type instance F Int = Bool diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index 303fb2f49b..a9e82f8eb2 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -157,4 +157,4 @@ test('T8172', normal, ghci_script, ['T8172.script']) test('T8215', normal, ghci_script, ['T8215.script']) test('T8357', normal, ghci_script, ['T8357.script']) test('T8383', normal, ghci_script, ['T8383.script']) - +test('T8469', normal, ghci_script, ['T8469.script']) |