tracks/fsharp/exercises/saddle-points/SaddlePointsTest.fs in trackler-2.2.1.101 vs tracks/fsharp/exercises/saddle-points/SaddlePointsTest.fs in trackler-2.2.1.102

@@ -1,46 +1,46 @@
-// 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 SaddlePointTest
+module SaddlePointsTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
 
 open SaddlePoints
 
 [<Fact>]
-let ``Readme example`` () =
-    let values = [ [ 9; 8; 7 ]; 
-                   [ 5; 3; 2 ]; 
-                   [ 6; 6; 7 ] ]
-    let actual = saddlePoints values
-    actual |> should equal [(1, 0)]
+let ``Can identify single saddle point`` () =
+    let matrix = 
+        [ [9; 8; 7];
+          [5; 3; 2];
+          [6; 6; 7] ]
+    saddlePoints matrix |> should equal [(1, 0)]
 
 [<Fact(Skip = "Remove to run test")>]
-let ``No saddle point`` () =
-    let values = [ [ 2; 1 ]; 
-                   [ 1; 2 ] ]
-    let actual = saddlePoints values
-    actual |> should be Empty
+let ``Can identify that empty matrix has no saddle points`` () =
+    let matrix = [[]]
+    saddlePoints matrix |> should be Empty
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Saddle point`` () =
-    let values = [ [ 1; 2 ]; 
-                   [ 3; 4 ] ]
-    let actual = saddlePoints values
-    actual |> should equal [(0, 1)]
+let ``Can identify lack of saddle points when there are none`` () =
+    let matrix = 
+        [ [1; 2; 3];
+          [3; 1; 2];
+          [2; 3; 1] ]
+    saddlePoints matrix |> should be Empty
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Another saddle point`` () =
-    let values = [ [ 18;  3; 39; 19;  91 ]; 
-                   [ 38; 10;  8; 77; 320 ]; 
-                   [  3;  4;  8;  6;   7 ] ]
-    let actual = saddlePoints values
-    actual |> should equal [(2, 2)]
+let ``Can identify multiple saddle points`` () =
+    let matrix = 
+        [ [4; 5; 4];
+          [3; 5; 5];
+          [1; 5; 4] ]
+    saddlePoints matrix |> should equal [(0, 1); (1, 1); (2, 1)]
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Multiple saddle points`` () =
-    let values = [ [ 4; 5; 4 ];
-                   [ 3; 5; 5 ];
-                   [ 1; 5; 4 ] ]
-    let actual = saddlePoints values
-    actual |> should equal [(0, 1); (1, 1); (2, 1)]   
\ No newline at end of file
+let ``Can identify saddle point in bottom right corner`` () =
+    let matrix = 
+        [ [8; 7; 9];
+          [6; 7; 6];
+          [3; 2; 5] ]
+    saddlePoints matrix |> should equal [(2, 2)]
+