tracks/fsharp/exercises/space-age/SpaceAgeTest.fs in trackler-2.2.1.100 vs tracks/fsharp/exercises/space-age/SpaceAgeTest.fs in trackler-2.2.1.101

@@ -1,54 +1,41 @@
-// This file was created manually and its version is 1.0.0.
+// This file was auto-generated based on version 1.1.0 of the canonical data.
 
 module SpaceAgeTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
+
 open SpaceAge
-    
+
 [<Fact>]
-let ``Age on earth`` () =
-    let seconds = 1000000000m
-    spaceAge Planet.Earth seconds |> should equal 31.69m
+let ``Age on Earth`` () =
+    age Earth 1000000000L |> should equal 31.69
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Age on mercury`` () =
-    let seconds = 2134835688m
-    spaceAge Planet.Earth seconds |> should equal 67.65m
-    spaceAge Planet.Mercury seconds |> should equal 280.88m
+let ``Age on Mercury`` () =
+    age Mercury 2134835688L |> should equal 280.88
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Age on venus`` () =
-    let seconds = 189839836m
-    spaceAge Planet.Earth seconds |> should equal 6.02m
-    spaceAge Planet.Venus seconds |> should equal 9.78m
+let ``Age on Venus`` () =
+    age Venus 189839836L |> should equal 9.78
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Age on mars`` () =
-    let seconds = 2329871239m
-    spaceAge Planet.Earth seconds |> should equal 73.83m
-    spaceAge Planet.Mars seconds |> should equal 39.25m
+let ``Age on Mars`` () =
+    age Mars 2329871239L |> should equal 39.25
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Age on jupiter`` () =
-    let seconds = 901876382m
-    spaceAge Planet.Earth seconds |> should equal 28.58m
-    spaceAge Planet.Jupiter seconds |> should equal 2.41m
+let ``Age on Jupiter`` () =
+    age Jupiter 901876382L |> should equal 2.41
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Age on saturn`` () =
-    let seconds = 3000000000m
-    spaceAge Planet.Earth seconds |> should equal 95.06m
-    spaceAge Planet.Saturn seconds |> should equal 3.23m
+let ``Age on Saturn`` () =
+    age Saturn 3000000000L |> should equal 3.23
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Age on uranus`` () =
-    let seconds = 3210123456m
-    spaceAge Planet.Earth seconds |> should equal 101.72m
-    spaceAge Planet.Uranus seconds |> should equal 1.21m
+let ``Age on Uranus`` () =
+    age Uranus 3210123456L |> should equal 1.21
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Age on neptune`` () =
-    let seconds = 8210123456m
-    spaceAge Planet.Earth seconds |> should equal 260.16m
-    spaceAge Planet.Neptune seconds |> should equal 1.58m
\ No newline at end of file
+let ``Age on Neptune`` () =
+    age Neptune 8210123456L |> should equal 1.58
+