]> Git — Sourcephile - haskell/symantic-xml.git/blob - test/Golden/XML/0007.xml.read
XML: fix union of EscapedText
[haskell/symantic-xml.git] / test / Golden / XML / 0007.xml.read
1 (NodeElem doc) @(test/Golden/XML/0007.xml#1:1-6:7 :| [])
2 |
3 +- (NodeText (EscapedText (fromList [EscapedPlain "\r\n"]))) @(test/Golden/XML/0007.xml#1:6-2:1 :| [])
4 |
5 +- (NodeElem A) @(test/Golden/XML/0007.xml#2:1-4:8 :| [])
6 | |
7 | `- (NodeAttr a) @(test/Golden/XML/0007.xml#2:4-4:6 :| [])
8 | |
9 | `- (NodeText (EscapedText (fromList [EscapedPlain "asdf",EscapedEntityRef (EntityRef {entityRef_name = gt, entityRef_value = ">"}),EscapedEntityRef (EntityRef {entityRef_name = apos, entityRef_value = "'"}),EscapedCharRef (CharRef '"'),EscapedEntityRef (EntityRef {entityRef_name = gt, entityRef_value = ">"}),EscapedPlain "\r\nasdf\r\n\t?",EscapedEntityRef (EntityRef {entityRef_name = gt, entityRef_value = ">"}),EscapedPlain "%"]))) @(test/Golden/XML/0007.xml#2:7-4:5 :| [])
10 |
11 +- (NodeText (EscapedText (fromList [EscapedPlain "\r\n"]))) @(test/Golden/XML/0007.xml#4:8-5:1 :| [])
12 |
13 +- (NodeElem A) @(test/Golden/XML/0007.xml#5:1-5:23 :| [])
14 | |
15 | `- (NodeAttr a) @(test/Golden/XML/0007.xml#5:4-5:21 :| [])
16 | |
17 | `- (NodeText (EscapedText (fromList [EscapedEntityRef (EntityRef {entityRef_name = quot, entityRef_value = "\""}),EscapedEntityRef (EntityRef {entityRef_name = quot, entityRef_value = "\""}),EscapedEntityRef (EntityRef {entityRef_name = gt, entityRef_value = ">"}),EscapedCharRef (CharRef '\''),EscapedCharRef (CharRef '"')]))) @(test/Golden/XML/0007.xml#5:7-5:20 :| [])
18 |
19 `- (NodeText (EscapedText (fromList [EscapedPlain "\r\n"]))) @(test/Golden/XML/0007.xml#5:23-6:1 :| [])
20