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