mirror of
https://github.com/correl/elm.git
synced 2024-11-15 19:19:31 +00:00
40 lines
963 B
Elm
40 lines
963 B
Elm
module Main exposing (..)
|
|
|
|
import ElmTest exposing (..)
|
|
import SpaceAge exposing (Planet(..), ageOn)
|
|
|
|
|
|
tests : Test
|
|
tests =
|
|
suite
|
|
"SpaceAge"
|
|
[ 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 : Program Never
|
|
main =
|
|
runSuite tests
|