@@ -11,11 +11,12 @@ import Data.Char
12examples :: [(Bool, BS.ByteString)]
12examples :: [(Bool, BS.ByteString)]
14− [(True, "<test id=bob>here<extra/>there</test>")
14+ [(True, "<test id='bob'>here<extra/>there</test>")
15 ,(True, "<test /><close />")
15 ,(True, "<test /><close />")
16 ,(True, "<test id=\"bob value\" another-attr=\"test with <\">here </test> more text at the end<close />")
16 ,(True, "<test id=\"bob value\" another-attr=\"test with <\">here </test> more text at the end<close />")
17 ,(False, "<test></more>")
17 ,(False, "<test></more>")
18 ,(False, "<test")
18 ,(False, "<test")
19+ ,(True, "<?xml version=\"1.1\"?>\n<greeting>Hello, world!</greeting>")
21main :: IO ()
22main :: IO ()