diff --git a/exercises/concept/password-checker/PasswordCheckerTests.fs b/exercises/concept/password-checker/PasswordCheckerTests.fs index 26abe744d..21e7f383a 100644 --- a/exercises/concept/password-checker/PasswordCheckerTests.fs +++ b/exercises/concept/password-checker/PasswordCheckerTests.fs @@ -36,13 +36,31 @@ 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`` (password: string) = +let ``Ok when password is good with ampersand`` () = + let password = "&7KLMNOPQRSt" let expected: Result = Ok password checkPassword password |> should equal expected