From b25c68ffe9a6217ffba8b7f91e8beb156c2566fb Mon Sep 17 00:00:00 2001 From: Teilzeitdenker Date: Fri, 27 Feb 2026 23:30:46 +0100 Subject: [PATCH] changed the tests in password-checker, removed theory tag --- .../password-checker/PasswordCheckerTests.fs | 30 +++++++++++++++---- 1 file changed, 24 insertions(+), 6 deletions(-) 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