@@ -11,11 +11,12 @@ import Data.Char
1111
1212examples :: [(Bool, BS.ByteString)]
1313examples =
14− [(True, "<test id=bob>here<extra/>there</test>")
14+ [(True, "<test id='bob'>here<extra/>there</test>")
1515 ,(True, "<test /><close />")
1616 ,(True, "<test id=\"bob value\" another-attr=\"test with <\">here </test> more text at the end<close />")
1717 ,(False, "<test></more>")
1818 ,(False, "<test")
19+ ,(True, "<?xml version=\"1.1\"?>\n<greeting>Hello, world!</greeting>")
1920 ]
2021
2122main :: IO ()