1 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/lib/Data.HashTable/hash001.hs b/testsuite/tests/lib/Data.HashTable/hash001.hs
new file mode 100644
index 0000000000..727f488eb3
--- /dev/null
+++ b/testsuite/tests/lib/Data.HashTable/hash001.hs
@@ -0,0 +1,14 @@
+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