module Tests exposing (tests) import Expect import Pangram exposing (isPangram) import Test exposing (..) tests : Test tests = describe "Pangram" [ test "sentence empty" <| \() -> Expect.equal False (isPangram "") , skip <| test "pangram with only lower case" <| \() -> Expect.equal True (isPangram "the quick brown fox jumps over the lazy dog") , skip <| test "missing character 'x'" <| \() -> Expect.equal False (isPangram "a quick movement of the enemy will jeopardize five gunboats") , skip <| test "missing character 'z'" <| \() -> Expect.equal False (isPangram "a quick movement of the enemy will jeopardixe five gunboats") , skip <| test "another missing character 'x'" <| \() -> Expect.equal False (isPangram "the quick brown fish jumps over the lazy dog") , skip <| test "pangram with underscores" <| \() -> Expect.equal True (isPangram "the_quick_brown_fox_jumps_over_the_lazy_dog") , skip <| test "pangram with numbers" <| \() -> Expect.equal True (isPangram "the 1 quick brown fox jumps over the 2 lazy dogs") , skip <| test "missing letters replaced by numbers" <| \() -> Expect.equal False (isPangram "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog") , skip <| test "pangram with mixed case and punctuation" <| \() -> Expect.equal True (isPangram "\"Five quacking Zephyrs jolt my wax bed.\"") , skip <| test "pangram with non ascii characters" <| \() -> Expect.equal True (isPangram "Victor jagt zwölf Boxkämpfer quer über den großen Sylter Deich.") , skip <| test "a-m and A-M are 26 different characters but not a pangram" <| \() -> Expect.equal False (isPangram "abcdefghijklm ABCDEFGHIJKLM") ]