xml-conduit 1.1.0.7 → 1.1.0.8

raw patch · 3 files changed

+15/−4 lines, 3 files

Files

• Text/XML/Stream/Parse.hs +3/−3
• test/main.hs +11/−0
• xml-conduit.cabal +1/−1

@@ -300,10 +300,10 @@ parseToken de = (char '<' >> parseLt) <|> TokenContent <$> parseContent de False False   where     parseLt =-        parseBegin <|>-        (char '/' >> parseEnd) <|>+        (char '?' >> parseInstr) <|>         (char '!' >> (parseComment <|> parseCdata <|> parseDoctype)) <|>-        (char '?' >> parseInstr)+        parseBegin <|>+        (char '/' >> parseEnd)     parseInstr = do         name <- parseIdent         if name == "xml"

@@ -84,6 +84,7 @@         it "works" caseAttrReorder     describe "ordering attributes explicitly" $ do         it "works" caseOrderAttrs+    it "parsing CDATA" caseParseCdata  documentParseRender :: IO () documentParseRender =@@ -520,3 +521,13 @@                     ])                 []     lbs @=? S.concat (L.toChunks $ Res.renderLBS rs doc)++caseParseCdata :: Assertion+caseParseCdata = do+    let lbs = "<a><![CDATA[www.google.com]]></a>"+        doc = Res.Document (Res.Prologue [] Nothing [])+                (Res.Element "a" Map.empty+                    [ Res.NodeContent "www.google.com"+                    ])+                []+    Res.parseLBS_ def lbs @?= doc

@@ -1,5 +1,5 @@ name:            xml-conduit-version:         1.1.0.7+version:         1.1.0.8 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michaels@suite-sol.com>, Aristid Breitkreuz <aristidb@googlemail.com>