1
exercism fetch fsharp zebra-puzzle

ZebraPuzzleTest.fs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
module ZebraPuzzleTest

open Xunit
open FsUnit.Xunit

open ZebraPuzzle

[<Fact>]
let ``Who drinks water?`` () =
    let solution = solve()
    whoDrinksWater solution |> should equal Norwegian

[<Fact(Skip = "Remove to run test")>]
let ``Who owns the zebra?`` () =
    let solution = solve()
    whoOwnsZebra solution |> should equal Japanese