14 lines
291 B
Haskell
14 lines
291 B
Haskell
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."
|