From a78f67ef2c0e6abf02ca9262f992370cf719c2ad Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Sun, 20 Dec 2015 16:13:29 +0100 Subject: [PATCH] fix JID parse tests (#98) --- tests/Tests/Parsers.hs | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/tests/Tests/Parsers.hs b/tests/Tests/Parsers.hs index 91fc658..7d81f11 100644 --- a/tests/Tests/Parsers.hs +++ b/tests/Tests/Parsers.hs @@ -33,9 +33,15 @@ case_JidFromText = hspec . describe "jidFromText" $ do "bar.com" (Just "quux")) it "rejects multiple '@'" $ shouldReject "foo@bar@baz" - it "rejects multiple '/'" $ shouldReject "foo/bar/baz" - it "rejects multiple '/' after '@'" $ shouldReject "quux@foo/bar/baz" - it "rejects '@' after '/'" $ shouldReject "foo/bar@baz" + it "parses multiple '/'" $ jidFromText "foo/bar/baz" + `shouldBe` + (Just (Jid Nothing "foo" (Just "bar/baz"))) + it "parses multiple '/' after '@'" $ jidFromText "quux@foo/bar/baz" + `shouldBe` + (Just (Jid (Just "quux") "foo" (Just "bar/baz"))) + it "parses '@' after '/'" $ jidFromText "foo/bar@baz" + `shouldBe` + (Just (Jid Nothing "foo" (Just "bar@baz"))) it "rejects empty local part" $ shouldReject "@bar/baz" it "rejects empty resource part" $ shouldReject "foo@bar/" it "rejects empty domain part" $ shouldReject "foo@/baz"