mirror of
https://github.com/correl/elm.git
synced 2024-11-16 19:19:28 +00:00
26 lines
904 B
Elm
26 lines
904 B
Elm
module Main (..) where
|
|
|
|
import Task
|
|
import Console
|
|
import ElmTest exposing (..)
|
|
|
|
import SpaceAge 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)))
|
|
]
|
|
|
|
|
|
port runner : Signal (Task.Task x ())
|
|
port runner =
|
|
Console.run (consoleRunner tests)
|
|
|