Fix unit tests for xml-types < 0.3.7, continued

marhop · k0ral · commit c6b222529490 · 2025-11-23T21:53:54.000+01:00
diff --git a/xml-conduit/test/unit.hs b/xml-conduit/test/unit.hs
@@ -1132,7 +1132,7 @@ streamRenderGenerateEvents = do
         nonEmptyTag <- runConduit $
             R.tag "foo" (R.attr "bar" "baz") (R.content "...") .| sinkList
         nonEmptyTag @?=
-            [ EventBeginElement "foo" [("bar", ["baz"])]
+            [ EventBeginElement "foo" [("bar", [ContentText "baz"])]
             , EventContent $ ContentText "..."
             , EventEndElement "foo"
             ]

Original file line number	Diff line number	Diff line change
`@@ -1132,7 +1132,7 @@ streamRenderGenerateEvents = do`
`1132`	`1132`	`nonEmptyTag <- runConduit $`
`1133`	`1133`	`R.tag "foo" (R.attr "bar" "baz") (R.content "...") .\| sinkList`
`1134`	`1134`	`nonEmptyTag @?=`
`1135`		`- [ EventBeginElement "foo" [("bar", ["baz"])]`
	`1135`	`+ [ EventBeginElement "foo" [("bar", [ContentText "baz"])]`
`1136`	`1136`	`, EventContent $ ContentText "..."`
`1137`	`1137`	`, EventEndElement "foo"`
`1138`	`1138`	`]`