diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/data/format/xml.lux | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/stdlib/source/test/lux/data/format/xml.lux b/stdlib/source/test/lux/data/format/xml.lux index 48ca29d92..0ad940971 100644 --- a/stdlib/source/test/lux/data/format/xml.lux +++ b/stdlib/source/test/lux/data/format/xml.lux @@ -85,28 +85,27 @@ (_.test "Can parse text." (E.default #0 (do E.monad - [output (</>.run (#/.Text text) - </>.text)] + [output (</>.run </>.text + (#/.Text text))] (wrap (text@= text output))))) (_.test "Can parse attributes." (E.default #0 (do E.monad - [output (|> (</>.attr attr) - (p.before </>.ignore) - (</>.run node))] + [output (</>.run (p.before </>.ignore + (</>.attr attr)) + node)] (wrap (text@= value output))))) (_.test "Can parse nodes." (E.default #0 (do E.monad - [_ (|> (</>.node tag) - (p.before </>.ignore) - (</>.run node))] + [_ (</>.run (p.before </>.ignore + (</>.node tag)) + node)] (wrap #1)))) (_.test "Can parse children." (E.default #0 (do E.monad - [outputs (|> (</>.children (p.some </>.text)) - (</>.run node))] + [outputs (</>.run (</>.children (p.some </>.text)) node)] (wrap (:: (list.equivalence text.equivalence) = children outputs))))) |