mirror of
https://github.com/correl/elm.git
synced 2024-11-16 19:19:28 +00:00
25 lines
1 KiB
Elm
25 lines
1 KiB
Elm
module SpaceAgeTest where
|
|
|
|
-- TODO - remove example inclusion once Problem sets are ready to go live or CI is set up.
|
|
|
|
import ElmTest.Test exposing (test, Test, suite)
|
|
import ElmTest.Assertion exposing (assert, assertEqual)
|
|
import ElmTest.Runner.Element exposing (runDisplay)
|
|
|
|
import SpaceAgeExample exposing (Planet(..), ageOn)
|
|
|
|
tests : Test
|
|
tests = suite "SpaceAge Test Suite"
|
|
[
|
|
test "age in earth years" (assertEqual 32 (round (ageOn Earth 1000000000))),
|
|
test "age in mercury years" (assertEqual 281 (round (ageOn Mercury 2134835688))),
|
|
test "age in venus years" (assertEqual 10 (round (ageOn Venus 189839836))),
|
|
test "age on mars" (assertEqual 39 (round (ageOn Mars 2329871239))),
|
|
test "age on jupiter" (assertEqual 2 (round (ageOn Jupiter 901876382))),
|
|
test "age on saturn" (assertEqual 3 (round (ageOn Saturn 3000000000))),
|
|
test "age on uranus" (assertEqual 1 (round (ageOn Uranus 3210123456))),
|
|
test "age on neptune" (assertEqual 2 (round (ageOn Neptune 8210123456)))
|
|
]
|
|
|
|
|
|
main = runDisplay tests
|