Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/3dcac7d38fa2b086d5975cb326b3a2345960c034 >--------------------------------------------------------------- commit 3dcac7d38fa2b086d5975cb326b3a2345960c034 Author: Ian Lynagh <[email protected]> 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] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
