Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/1554fe9d06673017c629a03bf697e878795e678e >--------------------------------------------------------------- commit 1554fe9d06673017c629a03bf697e878795e678e Author: Ian Lynagh <[email protected]> Date: Sat Nov 19 23:13:11 2011 +0000 Move hash001 to base/tests >--------------------------------------------------------------- tests/lib/Data.HashTable/Makefile | 3 --- tests/lib/Data.HashTable/all.T | 1 - tests/lib/Data.HashTable/hash001.hs | 14 -------------- 3 files changed, 0 insertions(+), 18 deletions(-) diff --git a/tests/lib/Data.HashTable/Makefile b/tests/lib/Data.HashTable/Makefile deleted file mode 100644 index 9101fbd..0000000 --- a/tests/lib/Data.HashTable/Makefile +++ /dev/null @@ -1,3 +0,0 @@ -TOP=../../.. -include $(TOP)/mk/boilerplate.mk -include $(TOP)/mk/test.mk diff --git a/tests/lib/Data.HashTable/all.T b/tests/lib/Data.HashTable/all.T deleted file mode 100644 index 20b60f2..0000000 --- a/tests/lib/Data.HashTable/all.T +++ /dev/null @@ -1 +0,0 @@ -test('hash001', normal, compile_and_run, ['']) diff --git a/tests/lib/Data.HashTable/hash001.hs b/tests/lib/Data.HashTable/hash001.hs deleted file mode 100644 index 727f488..0000000 --- a/tests/lib/Data.HashTable/hash001.hs +++ /dev/null @@ -1,14 +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-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
