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."