fsharp-learning/exercism/fsharp/space-age/SpaceAgeTests.fs

// This file was auto-generated based on version 1.2.0 of the canonical data.

module SpaceAgeTests

open FsUnit.Xunit
open Xunit

open SpaceAge

[<Fact>]
let ``Age on Earth`` () =
    age Earth 1000000000L |> should (equalWithin 0.01) 31.69

[<Fact>]
let ``Age on Mercury`` () =
    age Mercury 2134835688L |> should (equalWithin 0.01) 280.88

[<Fact>]
let ``Age on Venus`` () =
    age Venus 189839836L |> should (equalWithin 0.01) 9.78

[<Fact>]
let ``Age on Mars`` () =
    age Mars 2129871239L |> should (equalWithin 0.01) 35.88

[<Fact>]
let ``Age on Jupiter`` () =
    age Jupiter 901876382L |> should (equalWithin 0.01) 2.41

[<Fact>]
let ``Age on Saturn`` () =
    age Saturn 2000000000L |> should (equalWithin 0.01) 2.15

[<Fact>]
let ``Age on Uranus`` () =
    age Uranus 1210123456L |> should (equalWithin 0.01) 0.46

[<Fact>]
let ``Age on Neptune`` () =
    age Neptune 1821023456L |> should (equalWithin 0.01) 0.35