Move hash001 to base/tests
authorIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 23:13:11 +0000 (23:13 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 23:13:11 +0000 (23:13 +0000)
testsuite/tests/lib/Data.HashTable/Makefile [deleted file]
testsuite/tests/lib/Data.HashTable/all.T [deleted file]
testsuite/tests/lib/Data.HashTable/hash001.hs [deleted file]

diff --git a/testsuite/tests/lib/Data.HashTable/Makefile b/testsuite/tests/lib/Data.HashTable/Makefile
deleted file mode 100644 (file)
index 9101fbd..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-TOP=../../..
-include $(TOP)/mk/boilerplate.mk
-include $(TOP)/mk/test.mk
diff --git a/testsuite/tests/lib/Data.HashTable/all.T b/testsuite/tests/lib/Data.HashTable/all.T
deleted file mode 100644 (file)
index 20b60f2..0000000
+++ /dev/null
@@ -1 +0,0 @@
-test('hash001', normal, compile_and_run, [''])
diff --git a/testsuite/tests/lib/Data.HashTable/hash001.hs b/testsuite/tests/lib/Data.HashTable/hash001.hs
deleted file mode 100644 (file)
index 727f488..0000000
+++ /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