module Tests exposing (tests) import Expect import Isogram exposing (isIsogram) import Test exposing (..) tests : Test tests = describe "Isogram" [ test "empty string" <| \() -> Expect.equal True <| isIsogram "" , skip <| test "isogram with only lower case characters" <| \() -> Expect.equal True <| isIsogram "isogram" , skip <| test "word with one duplicated character" <| \() -> Expect.equal False <| isIsogram "eleven" , skip <| test "longest reported english isogram" <| \() -> Expect.equal True <| isIsogram "subdermatoglyphic" , skip <| test "word with duplicated character in mixed case" <| \() -> Expect.equal False <| isIsogram "Alphabet" , skip <| test "hypothetical isogrammic word with hyphen" <| \() -> Expect.equal True <| isIsogram "thumbscrew-japingly" , skip <| test "isogram with duplicated non letter character" <| \() -> Expect.equal True <| isIsogram "Hjelmqvist-Gryb-Zock-Pfund-Wax" , skip <| test "made-up name that is an isogram" <| \() -> Expect.equal True <| isIsogram "Emily Jung Schwartzkopf" , skip <| test "duplicated character in the middle" <| \() -> Expect.equal False <| isIsogram "accentor" , skip <| test "word with duplicated character and with two hyphens" <| \() -> Expect.equal False <| isIsogram "up-to-date" ]