Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/14b0242f3c870177abbb52c792b772b0b6c5fa87 >--------------------------------------------------------------- commit 14b0242f3c870177abbb52c792b772b0b6c5fa87 Author: Ian Lynagh <[email protected]> Date: Fri Jul 20 18:05:19 2012 +0100 Remove hash001, as we no longer have Data.HashTable >--------------------------------------------------------------- tests/all.T | 1 - tests/hash001.hs | 16 ---------------- 2 files changed, 0 insertions(+), 17 deletions(-) diff --git a/tests/all.T b/tests/all.T index b7a1629..bcae14b 100644 --- a/tests/all.T +++ b/tests/all.T @@ -20,7 +20,6 @@ test('data-fixed-show-read', normal, compile_and_run, ['']) test('showDouble', normal, compile_and_run, ['']) test('readDouble001', normal, compile_and_run, ['']) test('readInteger001', normal, compile_and_run, ['']) -test('hash001', normal, compile_and_run, ['']) test('lex001', normal, compile_and_run, ['']) test('take001', extra_run_opts('1'), compile_and_run, ['']) test('genericNegative001', extra_run_opts('-1'), compile_and_run, ['']) diff --git a/tests/hash001.hs b/tests/hash001.hs deleted file mode 100644 index 3ea6563..0000000 --- a/tests/hash001.hs +++ /dev/null @@ -1,16 +0,0 @@ - -import Data.HashTable -import qualified Data.HashTable as HT - -test :: Int -> IO () -test n = do ht <- new (==) hashInt - sequence_ [ insert ht key 0 | key <- [0..n]] - sequence_ [ insert ht key 1 | key <- [0..n]] - - let check key = do (Just val) <- HT.lookup ht key - if val==1 then return () - else putStrLn $ show key - - sequence_ [ check key | key <- [0..n]] - -main = test 2048 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
