module BirdWatcherTests open FsUnit.Xunit open Xunit open Exercism.Tests open BirdWatcher [] [] let ``Last week`` () = lastWeek |> should equal [| 0; 2; 5; 3; 7; 8; 4 |] [] [] let ``Yesterday's bird count of disappointing week`` () = yesterday [| 0; 0; 2; 0; 0; 1; 0 |] |> should equal 1 [] [] let ``Yesterday's bird count of busy week`` () = yesterday [| 8; 8; 9; 5; 4; 7; 10 |] |> should equal 7 [] [] let ``Total number of birds of disappointing week`` () = total [| 0; 0; 2; 0; 0; 1; 0 |] |> should equal 3 [] [] let ``Total number of birds of busy week`` () = total [| 5; 9; 12; 6; 8; 8; 17 |] |> should equal 65 [] [] let ``Day without birds for week that had day without birds`` () = dayWithoutBirds [| 5; 5; 4; 0; 7; 6; 7 |] |> should equal true [] [] let ``Day without birds for week that did not have day without birds`` () = dayWithoutBirds [| 4; 5; 9; 10; 9; 4; 3 |] |> should equal false [] [] let ``Increment today's count with no previous visits`` () = let birdCounts = [| 6; 5; 5; 11; 2; 5; 0 |] incrementTodaysCount birdCounts |> should equal [| 6; 5; 5; 11; 2; 5; 1 |] [] [] let ``Increment today's count with multiple previous visits`` () = let birdCounts = [| 5; 2; 4; 2; 4; 5; 7 |] incrementTodaysCount birdCounts |> should equal [| 5; 2; 4; 2; 4; 5; 8 |] [] [] let ``Unusual week for first week matching odd days zero pattern`` () = unusualWeek [| 1; 0; 2; 0; 3; 0; 4 |] |> should equal true [] [] let ``Unusual week for second week matching odd days zero pattern`` () = unusualWeek [| 10; 0; 6; 0; 9; 0; 4 |] |> should equal true [] [] let ``Unusual week for first week matching odd days ten pattern`` () = unusualWeek [| 6; 10; 2; 10; 5; 10; 8 |] |> should equal true [] [] let ``Unusual week for second week matching odd days ten pattern`` () = unusualWeek [| 16; 10; 8; 10; 4; 10; 7 |] |> should equal true [] [] let ``Unusual week for first week matching even days five pattern`` () = unusualWeek [| 5; 1; 5; 2; 5; 3; 5 |] |> should equal true [] [] let ``Unusual week for second week matching even days five pattern`` () = unusualWeek [| 5; 12; 5; 6; 5; 5; 5 |] |> should equal true [] [] let ``Unusual week for first week that does not match odd pattern`` () = unusualWeek [| 2; 2; 1; 0; 1; 1; 1 |] |> should equal false [] [] let ``Unusual week for second week that does not match odd pattern`` () = unusualWeek [| 2; 0; 1; 1; 1; 0; 1 |] |> should equal false [] [] let ``Unusual week for third week that does not match odd pattern`` () = unusualWeek [| 2; 9; 1; 10; 1; 11; 1 |] |> should equal false [] [] let ``Unusual week for fourth week that does not match odd pattern`` () = unusualWeek [| 5; 0; 5; 1; 4; 0; 6 |] |> should equal false