diff --git a/test.hs b/test.hs index fa6cc23..cc35a13 100644 --- a/test.hs +++ b/test.hs @@ -1,7 +1,7 @@ import Text.HTML.SanitizeXSS main = do - let test = " anchor

" + let test = " anchor

" let actual = (sanitizeXSS test) let expected = " anchor
" putStrLn $ if actual == expected then "pass" else "failure parsing:" ++ (show test) ++ "\nexpected:" ++ (show expected) ++ "\nactual: " ++ (show actual)