diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/lib/Data.HashTable')
3 files changed, 0 insertions, 18 deletions
diff --git a/testsuite/tests/ghc-regress/lib/Data.HashTable/Makefile b/testsuite/tests/ghc-regress/lib/Data.HashTable/Makefile deleted file mode 100644 index 1c39d1c1fe..0000000000 --- a/testsuite/tests/ghc-regress/lib/Data.HashTable/Makefile +++ /dev/null @@ -1,3 +0,0 @@ -TOP=../../../.. -include $(TOP)/mk/boilerplate.mk -include $(TOP)/mk/test.mk diff --git a/testsuite/tests/ghc-regress/lib/Data.HashTable/all.T b/testsuite/tests/ghc-regress/lib/Data.HashTable/all.T deleted file mode 100644 index 20b60f27cc..0000000000 --- a/testsuite/tests/ghc-regress/lib/Data.HashTable/all.T +++ /dev/null @@ -1 +0,0 @@ -test('hash001', normal, compile_and_run, ['']) diff --git a/testsuite/tests/ghc-regress/lib/Data.HashTable/hash001.hs b/testsuite/tests/ghc-regress/lib/Data.HashTable/hash001.hs deleted file mode 100644 index 727f488eb3..0000000000 --- a/testsuite/tests/ghc-regress/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 |