Move test array01 into the array package
authorIan Lynagh <igloo@earth.li>
Sun, 26 Feb 2012 18:43:11 +0000 (18:43 +0000)
committerIan Lynagh <igloo@earth.li>
Sun, 26 Feb 2012 18:43:11 +0000 (18:43 +0000)
testsuite/tests/lib/should_run/all.T
testsuite/tests/lib/should_run/array001.hs [deleted file]
testsuite/tests/lib/should_run/array001.stdout [deleted file]

index 4855cef..d113d21 100644 (file)
@@ -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/testsuite/tests/lib/should_run/array001.hs b/testsuite/tests/lib/should_run/array001.hs
deleted file mode 100644 (file)
index b5839b9..0000000
+++ /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/testsuite/tests/lib/should_run/array001.stdout b/testsuite/tests/lib/should_run/array001.stdout
deleted file mode 100644 (file)
index 7c9b768..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-11
-[1,2,3,4,5,6,7,8,9,10,0,0]