module WordyTests open FsUnit.Xunit open Xunit open Wordy [] let ``Just a number`` () = answer "What is 5?" |> should equal (Some 5) [] let ``Just a zero`` () = answer "What is 0?" |> should equal (Some 0) [] let ``Just a negative number`` () = answer "What is -123?" |> should equal (Some -123) [] let ``Addition`` () = answer "What is 1 plus 1?" |> should equal (Some 2) [] let ``Addition with a left hand zero`` () = answer "What is 0 plus 2?" |> should equal (Some 2) [] let ``Addition with a right hand zero`` () = answer "What is 3 plus 0?" |> should equal (Some 3) [] let ``More addition`` () = answer "What is 53 plus 2?" |> should equal (Some 55) [] let ``Addition with negative numbers`` () = answer "What is -1 plus -10?" |> should equal (Some -11) [] let ``Large addition`` () = answer "What is 123 plus 45678?" |> should equal (Some 45801) [] let ``Subtraction`` () = answer "What is 4 minus -12?" |> should equal (Some 16) [] let ``Multiplication`` () = answer "What is -3 multiplied by 25?" |> should equal (Some -75) [] let ``Division`` () = answer "What is 33 divided by -3?" |> should equal (Some -11) [] let ``Multiple additions`` () = answer "What is 1 plus 1 plus 1?" |> should equal (Some 3) [] let ``Addition and subtraction`` () = answer "What is 1 plus 5 minus -2?" |> should equal (Some 8) [] let ``Multiple subtraction`` () = answer "What is 20 minus 4 minus 13?" |> should equal (Some 3) [] let ``Subtraction then addition`` () = answer "What is 17 minus 6 plus 3?" |> should equal (Some 14) [] let ``Multiple multiplication`` () = answer "What is 2 multiplied by -2 multiplied by 3?" |> should equal (Some -12) [] let ``Addition and multiplication`` () = answer "What is -3 plus 7 multiplied by -2?" |> should equal (Some -8) [] let ``Multiple division`` () = answer "What is -12 divided by 2 divided by -3?" |> should equal (Some 2) [] let ``Unknown operation`` () = answer "What is 52 cubed?" |> should equal None [] let ``Non math question`` () = answer "Who is the President of the United States?" |> should equal None [] let ``Reject problem missing an operand`` () = answer "What is 1 plus?" |> should equal None [] let ``Reject problem with no operands or operators`` () = answer "What is?" |> should equal None [] let ``Reject two operations in a row`` () = answer "What is 1 plus plus 2?" |> should equal None [] let ``Reject two numbers in a row`` () = answer "What is 1 plus 2 1?" |> should equal None [] let ``Reject postfix notation`` () = answer "What is 1 2 plus?" |> should equal None [] let ``Reject prefix notation`` () = answer "What is plus 1 2?" |> should equal None