module PasswordCheckerTests open FsUnit.Xunit open Xunit open Exercism.Tests open PasswordChecker [] [] let ``Error when password too short`` () = let expected: Result = Error LessThan12Characters checkPassword "@bcd3fghijK" |> should equal expected [] [] let ``Error when password has no uppercase letters`` () = let expected: Result = Error MissingUppercaseLetter checkPassword "@bcd3fghijkl" |> should equal expected [] [] let ``Error when password has no lowercase letters`` () = let expected: Result = Error MissingLowercaseLetter checkPassword "@BCD3FGHIJKL" |> should equal expected [] [] let ``Error when password has no digits`` () = let expected: Result = Error MissingDigit checkPassword "@bcdefghijkL" |> should equal expected [] [] let ``Error when password has no symbols`` () = let expected: Result = Error MissingSymbol checkPassword "abcd3fghijkL" |> should equal expected [] [] let ``Ok when password is good with exclamation mark`` () = let password = "!1abcdefghiJ" let expected: Result = Ok password checkPassword password |> should equal expected [] [] let ``Ok when password is good with at symbol`` () = let password = "@2KLMNOPQRSt" let expected: Result = Ok password checkPassword password |> should equal expected [] [] let ``Ok when password is good with dollar sign`` () = let password = "$4abcdefghiJ" let expected: Result = Ok password checkPassword password |> should equal expected [] [] let ``Ok when password is good with ampersand`` () = let password = "&7KLMNOPQRSt" let expected: Result = Ok password checkPassword password |> should equal expected [] [] let ``Insufficient length error message`` () = getStatusMessage (Error LessThan12Characters) |> should equal "Error: does not have at least 12 characters" [] [] let ``Missing uppercase error message`` () = getStatusMessage (Error MissingUppercaseLetter) |> should equal "Error: does not have at least one uppercase letter" [] [] let ``Missing lowercase error message`` () = getStatusMessage (Error MissingLowercaseLetter) |> should equal "Error: does not have at least one lowercase letter" [] [] let ``Missing digit error message`` () = getStatusMessage (Error MissingDigit) |> should equal "Error: does not have at least one digit" [] [] let ``Missing symbol error message`` () = getStatusMessage (Error MissingSymbol) |> should equal "Error: does not have at least one symbol" [] [] let ``OK message`` () = getStatusMessage (Ok "foo") |> should equal "OK"