From bcd49254302eda6401ba2e4d369df76bed56c513 Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Thu, 1 Jan 2015 23:36:59 +0100 Subject: [PATCH] update Parser tests --- tests/Tests/Parsers.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/Tests/Parsers.hs b/tests/Tests/Parsers.hs index f799a79..91fc658 100644 --- a/tests/Tests/Parsers.hs +++ b/tests/Tests/Parsers.hs @@ -9,13 +9,13 @@ import Network.Xmpp.Internal import Test.Hspec import Test.Tasty.QuickCheck import Test.Tasty -import Test.Tasty.Hspec import Test.Tasty.TH +import Test.Tasty.HUnit import Tests.Arbitrary () -case_JidFromText :: Spec -case_JidFromText = describe "jidFromText" $ do +case_JidFromText :: Assertion +case_JidFromText = hspec . describe "jidFromText" $ do it "parses a full JID" $ jidFromText "foo@bar.com/quux" `shouldBe` Just (Jid (Just "foo") "bar.com" @@ -49,8 +49,8 @@ prop_jidFromText_leftInverse :: Jid -> Bool prop_jidFromText_leftInverse jid = (jidFromText $ jidToText jid) == Just jid -case_LangTagParser :: Spec -case_LangTagParser = describe "langTagFromText" $ +case_LangTagParser :: Assertion +case_LangTagParser = hspec . describe "langTagFromText" $ it "has some properties" $ pendingWith "Check requirements" parserTests :: TestTree