Sha256: fc962e2fdb025b625ccc54f76f0e97c6d496e4ba46e1720896e081e4e4c7de26
Contents?: true
Size: 1.19 KB
Versions: 76
Compression:
Stored size: 1.19 KB
Contents
module SaddlePointTest
open Xunit
open FsUnit.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)]
[<Fact(Skip = "Remove to run test")>]
let ``No saddle point`` () =
let values = [ [ 2; 1 ];
[ 1; 2 ] ]
let actual = saddlePoints values
actual |> 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)]
[<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)]
[<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)]
Version data entries
76 entries across 76 versions & 1 rubygems