Remove hash001, as we no longer have Data.HashTable
authorIan Lynagh <igloo@earth.li>
Fri, 20 Jul 2012 17:05:19 +0000 (18:05 +0100)
committerIan Lynagh <igloo@earth.li>
Fri, 20 Jul 2012 17:05:19 +0000 (18:05 +0100)
tests/all.T
tests/hash001.hs [deleted file]

index b7a1629..bcae14b 100644 (file)
@@ -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 (file)
index 3ea6563..0000000
+++ /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