@@ -33,8 +33,9 @@ main = do
33 let Right d = parse r
33 let Right d = parse r
34 r === render d
34 r === render d
36− let Right doc = parse "<test id=\"1\" extra=\"2\" /><test id=\"2\" /><b><test id=\"3\" /></b><test id=\"4\" /><test />"
36+ let Right doc = parse "<test id=\"1\" extra=\"2\" />\n<test id=\"2\" /><b><test id=\"3\" /></b><test id=\"4\" /><test />"
37 map name (children doc) === ["test","test","b","test","test"]
37 map name (children doc) === ["test","test","b","test","test"]
38+ location (children doc !! 2) === (2,16)
38 length (childrenBy doc "test") === 4
39 length (childrenBy doc "test") === 4
39 length (childrenBy doc "b") === 1
40 length (childrenBy doc "b") === 1
40 length (childrenBy doc "extra") === 0
41 length (childrenBy doc "extra") === 0