Erathostene sieve

test/ErathosteneSieveTest.hs

@@ -0,0 +1,13 @@
+module ErathosteneSieveTest (run) where
+
+import Test.HUnit
+
+import Primes (erathosteneSieve)
+
+run :: IO ()
+run = do
+    putStrLn "Erathostene sieve test"
+
+    assertEqual "Erathostene sieve n=30" (erathosteneSieve 30) [2,3,5,7,11,13,17,19,23,29]
+
+    putStrLn "Erathostene sieve test done."

test/Main.hs

@@ -2,11 +2,13 @@ module Main (main) where
 
 import GF2test (run)
 import TonelliShanksTest (run)
+import ErathosteneSieveTest (run)
 
 main :: IO ()
 main = do
     putStrLn "Running all tests"
     GF2test.run
     TonelliShanksTest.run
+    ErathosteneSieveTest.run
     putStrLn "All tests done."