diff --git a/test/main.hs b/test/main.hs index 6ec99f3..abd69eb 100644 --- a/test/main.hs +++ b/test/main.hs @@ -2,10 +2,8 @@ import Text.HTML.SanitizeXSS import Text.HTML.SanitizeXSS.Css import Data.Text (Text) -import Data.Text as T -import Test.Hspec.Monadic -import Test.Hspec.HUnit () +import Test.Hspec import Test.HUnit (assert, (@?=), Assertion) test :: (Text -> Text) -> Text -> Text -> Assertion @@ -13,9 +11,11 @@ test f actual expected = do let result = f actual result @?= expected +sanitized :: Text -> Text -> Expectation sanitized = test sanitize -main = hspecX $ do +main :: IO () +main = hspec $ do describe "html sanitizing" $ do it "big test" $ do let testHTML = " safeanchor

Unbalanced" diff --git a/xss-sanitize.cabal b/xss-sanitize.cabal index 815b3e9..df16ecf 100644 --- a/xss-sanitize.cabal +++ b/xss-sanitize.cabal @@ -38,7 +38,7 @@ test-suite test , css-text >= 0.1.1 && < 0.2 , text >= 0.11 && < 1 , attoparsec >= 0.10.0.3 && < 1 - , hspec >= 0.8 + , hspec >= 1.3 , HUnit >= 1.2