[commit: packages/array] wip/rae: Test #9220 in libraries/array/tests/T9220 (80a463b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/array

On branch  : wip/rae
Link       : http://git.haskell.org/packages/array.git/commitdiff/80a463bd57be183af9893553daecd4d0af815d04

>---------------------------------------------------------------

commit 80a463bd57be183af9893553daecd4d0af815d04
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Fri Nov 7 17:27:54 2014 -0500

    Test #9220 in libraries/array/tests/T9220


>---------------------------------------------------------------

80a463bd57be183af9893553daecd4d0af815d04
 tests/.gitignore   |  1 +
 tests/T9220.script |  4 ++++
 tests/T9220.stdout | 42 ++++++++++++++++++++++++++++++++++++++++++
 tests/all.T        |  1 +
 4 files changed, 48 insertions(+)

diff --git a/tests/.gitignore b/tests/.gitignore
index 95e6531..5052e9c 100644
--- a/tests/.gitignore
+++ b/tests/.gitignore
@@ -3,6 +3,7 @@
 *.hi
 *.comp.std*
 *.run.std*
+*.normalised
 *.eventlog
 *.genscript
 *.exe
diff --git a/tests/T9220.script b/tests/T9220.script
new file mode 100644
index 0000000..0254e7d
--- /dev/null
+++ b/tests/T9220.script
@@ -0,0 +1,4 @@
+:info Data.Array.Base.UArray
+:info Data.Array.IO.IOUArray
+:info Data.Array.ST.STUArray
+:info Data.Array.Storable.StorableArray
diff --git a/tests/T9220.stdout b/tests/T9220.stdout
new file mode 100644
index 0000000..71582f2
--- /dev/null
+++ b/tests/T9220.stdout
@@ -0,0 +1,42 @@
+type role Data.Array.Base.UArray nominal nominal
+data Data.Array.Base.UArray i e
+  = Data.Array.Base.UArray !i
+                           !i
+                           {-# UNPACK #-}Int
+                           GHC.Prim.ByteArray#
+  	-- Defined in ‘Data.Array.Base’
+instance (GHC.Arr.Ix ix, Eq e,
+          Data.Array.Base.IArray Data.Array.Base.UArray e) =>
+         Eq (Data.Array.Base.UArray ix e)
+  -- Defined in ‘Data.Array.Base’
+instance (GHC.Arr.Ix ix, Ord e,
+          Data.Array.Base.IArray Data.Array.Base.UArray e) =>
+         Ord (Data.Array.Base.UArray ix e)
+  -- Defined in ‘Data.Array.Base’
+instance (GHC.Arr.Ix ix, Show ix, Show e,
+          Data.Array.Base.IArray Data.Array.Base.UArray e) =>
+         Show (Data.Array.Base.UArray ix e)
+  -- Defined in ‘Data.Array.Base’
+type role Data.Array.IO.Internals.IOUArray nominal nominal
+newtype Data.Array.IO.Internals.IOUArray i e
+  = Data.Array.IO.Internals.IOUArray (Data.Array.Base.STUArray
+                                        GHC.Prim.RealWorld i e)
+  	-- Defined in ‘Data.Array.IO.Internals’
+instance Eq (Data.Array.IO.Internals.IOUArray i e)
+  -- Defined in ‘Data.Array.IO.Internals’
+type role Data.Array.Base.STUArray nominal nominal nominal
+data Data.Array.Base.STUArray s i e
+  = Data.Array.Base.STUArray !i
+                             !i
+                             {-# UNPACK #-}Int
+                             (GHC.Prim.MutableByteArray# s)
+  	-- Defined in ‘Data.Array.Base’
+instance Eq (Data.Array.Base.STUArray s i e)
+  -- Defined in ‘Data.Array.Base’
+type role Data.Array.Storable.Internals.StorableArray nominal nominal
+data Data.Array.Storable.Internals.StorableArray i e
+  = Data.Array.Storable.Internals.StorableArray !i
+                                                !i
+                                                Int
+                                                !(GHC.ForeignPtr.ForeignPtr e)
+  	-- Defined in ‘Data.Array.Storable.Internals’
diff --git a/tests/all.T b/tests/all.T
index 73e3b66..cd3ae47 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -3,3 +3,4 @@ test('T2120', normal, compile_and_run, [''])
 test('largeArray', normal, compile_and_run, [''])
 test('array001',    extra_clean(['array001.data']), compile_and_run, [''])
 
+test('T9220', expect_broken(9220), ghci_script, ['T9220.script'])