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)