[commit: testsuite] master: Move test array01 into the array package (3dcac7d)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/3dcac7d38fa2b086d5975cb326b3a2345960c034

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

commit 3dcac7d38fa2b086d5975cb326b3a2345960c034
Author: Ian Lynagh <igloo at earth.li>
Date:   Sun Feb 26 18:43:11 2012 +0000

    Move test array01 into the array package

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

 tests/lib/should_run/all.T           |    1 -
 tests/lib/should_run/array001.hs     |   34 ----------------------------------
 tests/lib/should_run/array001.stdout |    2 --
 3 files changed, 0 insertions(+), 37 deletions(-)

diff --git a/tests/lib/should_run/all.T b/tests/lib/should_run/all.T
index 4855cef..d113d21 100644
--- a/tests/lib/should_run/all.T
+++ b/tests/lib/should_run/all.T
@@ -1,4 +1,3 @@
-test('array001', 	extra_clean(['array001.data']), compile_and_run, [''])
 
 test('char001', 	normal, compile_and_run, [''])
 test('char002', 	normal, compile_and_run, [''])
diff --git a/tests/lib/should_run/array001.hs b/tests/lib/should_run/array001.hs
deleted file mode 100644
index b5839b9..0000000
--- a/tests/lib/should_run/array001.hs
+++ /dev/null
@@ -1,34 +0,0 @@
--- !!! Testing that #4827 is fixed (hPutArray/hGetArray use count argument)
-module Main(main) where
-
-import Control.Monad
-
-import Data.Array.MArray
-import Data.Array.IO
-
-import System.IO
-
-main :: IO ()
-main = do
-  the_array <- newListArray (0, 11) [1..12]
-  
-  -- Write out almost all of the array
-  h_out <- openBinaryFile "array001.data" WriteMode
-  hPutArray h_out the_array 11
-  hClose h_out
-  
-  
-  the_array <- newListArray (0, 11) [0 | i <- [1..12]]
-  
-  -- Read in almost all of the array
-  h_in <- openBinaryFile "array001.data" ReadMode
-  wrote_size <- hFileSize h_in
-  hGetArray h_in the_array 10
-  hClose h_in
-
-  
-  read_elems <- getElems the_array
-  
-  
-  print wrote_size -- Bytes written, should == 11
-  print read_elems -- Bytes read, should match written array in first 10 bytes, be 0 afterwards
diff --git a/tests/lib/should_run/array001.stdout b/tests/lib/should_run/array001.stdout
deleted file mode 100644
index 7c9b768..0000000
--- a/tests/lib/should_run/array001.stdout
+++ /dev/null
@@ -1,2 +0,0 @@
-11
-[1,2,3,4,5,6,7,8,9,10,0,0]