manakai/t/markup-xml-parser-base.t

#!/usr/bin/perl -w
use strict;
use Test;
use Message::Markup::XML::QName qw/NULL_URI DEFAULT_PFX/;
use Message::Markup::XML::Node;
use Message::Markup::XML::Parser::Base;
BEGIN {
  our $NS =
  {
   (DEFAULT_PFX) => Message::Markup::XML::Parser::Base::URI_CONFIG,
   tree => q<http://suika.fam.cx/~wakaba/-temp/2004/2/22/Parser/TreeConstruct/>,
   test => q<mid:t.markup-xml-parser-base.t+2004.5.20@manakai.suika.fam.cx#>,
   Content => q<urn:x-suika-fam-cx:msgpm:header:mail:rfc822:content>,
  };
}
use Message::Util::QName::General [qw/ExpandedURI/], our $NS;

sub match ($$;%) {
  my ($result, $expect, %opt) = @_;
  my $c = +{
    parse_attribute_specification => sub {
      no warnings 'uninitialized';
      qq<<r $_[0] xmlns=""></r>>;
    },
  }->{$opt{method}} || sub {shift};
  if (ref $expect) {
    for (@$expect) {
      return 1 if $result eq $c->($_);
    }
  } else {
    $result eq $c->($expect);
  }
}

my @a =
(
 {
  t => q{"foo"},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<match-or-error> => 1},
  result => q(1),
 },
 {
  t => q{'foo'},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<match-or-error> => 1},
  result => q(1),
 },
 {
  t => q{"foo},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<match-or-error> => 1},
  result => q(0:4:SYNTAX_ALITC_REQUIRED),
 },
 {
  t => q{'foo},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<match-or-error> => 1},
  result => q(0:4:SYNTAX_ALITAC_REQUIRED),
 },
 {
  t => q{foo},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<match-or-error> => 1},
  result => q(0:0:SYNTAX_ATTRIBUTE_VALUE),
 },
 {
  t => q{foo},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<match-or-error> => 0},
  result => q(0:0:SYNTAX_ATTRIBUTE_VALUE),
 },
 {
  t => q{>},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<match-or-error> => 0},
  result => q(1),
 },
 {
  t => q{"foo<bar"},
  method => 'parse_attribute_value_specification',
  result => q(0:4:SYNTAX_NO_LESS_THAN_IN_ATTR_VAL),
 },
 {
  t => q{'foo<bar'},
  method => 'parse_attribute_value_specification',
  result => q(0:4:SYNTAX_NO_LESS_THAN_IN_ATTR_VAL),
 },
 {
  entity => {amp => q<&#x26;>},
  t => q{"foo&amp;bar"},
  method => 'parse_attribute_value_specification',
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
  result => q(1),
 },
 {
  entity => {amp => q<&#x26;>},
  t => q{'foo&amp;bar'},
  method => 'parse_attribute_value_specification',
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
  result => q(1),
 },
 {
  t => q{"foo&#1234;bar"},
  method => 'parse_attribute_value_specification',
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
  result => q(1),
 },
 {
  t => q{'foo&#1234;bar'},
  method => 'parse_attribute_value_specification',
  result => q(1),
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
 },
 {
  t => q{"foo&#xE234;bar"},
  method => 'parse_attribute_value_specification',
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
  result => q(1),
 },
 {
  t => q{'foo&#xE234;bar'},
  method => 'parse_attribute_value_specification',
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
  result => q(1),
 },
 {
  t => q{"foo&#SPACE;bar"},
  method => 'parse_attribute_value_specification',
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
  result => q(0:6:SYNTAX_NAMED_CHARACTER_REFERENCE),
 },
 {
  t => q{"foo&#XE234;bar"},
  method => 'parse_attribute_value_specification',
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
  result => q(0:6:SYNTAX_HCRO_CASE),
 },
 {
  t => q{"foo& bar"},
  method => 'parse_attribute_value_specification',
  result => q(0:5:SYNTAX_HASH_OR_NAME_REQUIRED),
 },
 {
  t => q{'foo&# bar'},
  method => 'parse_attribute_value_specification',
  result => q(0:6:SYNTAX_X_OR_DIGIT_REQUIRED),
 },
 {
  t => q{"foo&#x bar"},
  method => 'parse_attribute_value_specification',
  result => q(0:7:SYNTAX_HEXDIGIT_REQUIRED),
 },
 {
  t => q{"foo&#x0120 bar"},
  method => 'parse_attribute_value_specification',
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
  result => q(0:11:SYNTAX_REFC_REQUIRED),
 },
 {
  t => q{"foo&#0120 bar"},
  method => 'parse_attribute_value_specification',
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
  result => q(0:10:SYNTAX_REFC_REQUIRED),
 },
 {
  entity => {amp => q<&#x26;>},
  t => q{"foo&amp bar"},
  method => 'parse_attribute_value_specification',
  option => {
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<allow-numeric-character-reference> => 1,
             ExpandedURI q<allow-hex-character-reference> => 1,
            },
  result => q(0:8:SYNTAX_REFC_REQUIRED),
 },
 {
  t => q{foo="bar"},
  method => 'parse_attribute_specification',
  result => q(1),
 },
 {
  t => q{"bar"},
  method => 'parse_attribute_specification',
  option => {ExpandedURI q<match-or-error> => 1},
  result => q(0:0:SYNTAX_ATTR_NAME_REQUIRED),
 },
 {
  t => q{"bar"},
  method => 'parse_attribute_specification',
  option => {ExpandedURI q<match-or-error> => 0},
  result => q(1),
  output => q(),
 },
 {
  t => qq{foo \t= \x0D"bar"},
  method => 'parse_attribute_specification',
  result => q(1),
  output => q(foo="bar"),
 },
 {
  t => q{foo"bar"},
  method => 'parse_attribute_specification',
  result => q(0:3:SYNTAX_VI_REQUIRED),
 },
 {
  t => q{foo=},
  method => 'parse_attribute_specification',
  result => q(0:4:SYNTAX_ALITO_OR_ALITAO_REQUIRED),
 },
 {
  t => q{foo:bar='baz'},
  method => 'parse_attribute_specification',
  result => q(1),
  output => [q(foo:bar="baz"), q(foo:bar='baz')],
 },
 {
  t => q{:bar='baz'},
  method => 'parse_attribute_specification',
  result => q(1),
  output => [q(:bar="baz"), q(:bar='baz')],
 },
 {
  t => q{r='baz'},
  method => 'parse_attribute_specification',
  result => q(1),
  output => [q(r="baz"), q(r='baz')],
 },
 {
  t => q{r!='baz'},
  method => 'parse_attribute_specification',
  result => q(0:1:SYNTAX_VI_REQUIRED),
 },
 {
  t => q{<foo>},
  method => 'parse_start_tag',
  result => q(1),
 },
 {
  t => q{<foo   >},
  method => 'parse_start_tag',
  result => q(1),
 },
 {
  t => q{<foo},
  method => 'parse_start_tag',
  result => q(0:4:SYNTAX_STAGC_OR_NESTC_REQUIRED),
 },
 {
  t => q{<foo bar="baz">},
  method => 'parse_start_tag',
  result => q(1),
 },
 {
  t => q{<foo bar="baz" baz="bar">},
  method => 'parse_start_tag',
  result => q(1),
 },
 {
  t => q{<foo bar="baz"baz="bar">},
  method => 'parse_start_tag',
  result => q(0:14:SYNTAX_S_REQUIRED_BETWEEN_ATTR_SPEC),
 },
 {
  t => q{<foo bar="bazbaz="bar">},
  method => 'parse_start_tag',
  result => q(0:18:SYNTAX_S_REQUIRED_BETWEEN_ATTR_SPEC),
 },
 {
  t => q{<foo "baz"baz="bar">},
  method => 'parse_start_tag',
  result => q(0:5:SYNTAX_STAGC_OR_NESTC_REQUIRED),
 },
 {
  t => q{<foo="bar">},
  method => 'parse_start_tag',
  result => q(0:4:SYNTAX_STAGC_OR_NESTC_REQUIRED),
 },
 {
  t => q{<foo a=bar>},
  method => 'parse_start_tag',
  result => q(0:7:SYNTAX_ATTRIBUTE_VALUE),
 },
 {
  t => q{<foo/>},
  method => 'parse_start_tag',
  result => q(1),
 },
 {
  t => q{<foo/},
  method => 'parse_start_tag',
  result => q(0:5:SYNTAX_NET_REQUIRED),
 },
 {
  t => q{<foo    />},
  method => 'parse_start_tag',
  result => q(1),
 },
 {
  t => q{</foo>},
  method => 'parse_start_tag',
  result => q(0:1:SYNTAX_ELEMENT_TYPE_NAME_FOLLOWING_STAGO_REQUIRED),
 },
 {
  t => q{<},
  method => 'parse_start_tag',
  result => q(0:1:SYNTAX_ELEMENT_TYPE_NAME_FOLLOWING_STAGO_REQUIRED),
 },
 {
  t => q{<<},
  method => 'parse_start_tag',
  result => q(0:1:SYNTAX_ELEMENT_TYPE_NAME_FOLLOWING_STAGO_REQUIRED),
 },
 
 {
  t => q{<e>text</e>},
  method => 'parse_element',
  option => {},
  result => q(1),
 },
 {
  t => q{<e>text<tag>text</tag>text<tag/>text</e>},
  method => 'parse_element',
  option => {},
  result => q(1),
 },
 {
  t => q{<e>text<tag</e>},
  method => 'parse_element',
  result => q(0:11:SYNTAX_STAGC_OR_NESTC_REQUIRED),
 },
 {
  entity => {ref => q<ref>},
  t => q{<e>text&ref;and&#1234;text</e>},
  method => 'parse_element',
  result => q(1),
 },

 {
  t => q{<foo></foo bar="baz">},
  method => 'parse_element',
  result => q(0:11:SYNTAX_ETAGC_REQUIRED),
 },
 {
  t => q{<foo></foo/>},
  method => 'parse_element',
  result => q(0:10:SYNTAX_ETAGC_REQUIRED),
 },
 {
  t => q{<foo></foo},
  method => 'parse_element',
  result => q(0:10:SYNTAX_ETAGC_REQUIRED),
 },
 {
  t => q{<foo></b>},
  method => 'parse_element',
  result => q(0:7:WFC_ELEMENT_TYPE_MATCH),
 },
 {
  t => q{<e></},
  method => 'parse_element',
  option => {ExpandedURI q<allow_end_tag> => 0},
  result => q(0:5:SYNTAX_ELEMENT_TYPE_NAME_FOLLOWING_ETAGO_REQUIRED),
 },
 {
  t => q{<foo>aa},
  method => 'parse_element',
  result => q(0:7:SYNTAX_END_TAG_REQUIRED),
 },

 {
  t => q{<!-- comment -->},
  method => 'parse_markup_declaration',
  result => 1,
 },
 {
  t => q{<!-- comment- -->},
  method => 'parse_markup_declaration',
  result => 1,
 },
 {
  t => q{<!-- comment-> -->},
  method => 'parse_markup_declaration',
  result => 1,
 },
 {
  t => q{<!-- comment},
  method => 'parse_markup_declaration',
  result => q(0:12:SYNTAX_COMC_REQUIRED),
 },
 {
  t => q{<!-- comment --},
  method => 'parse_markup_declaration',
  result => q(0:15:SYNTAX_MDC_FOR_COMMENT_REQUIRED),
 },
 {
  t => q{<!-- comment --->},
  method => 'parse_markup_declaration',
  result => q(0:15:SYNTAX_MDC_FOR_COMMENT_REQUIRED),
 },
 {
  t => q{<!--- comment -->},
  method => 'parse_markup_declaration',
  result => 1,
 },
 {
  t => q{<!-- comment ----},
  method => 'parse_markup_declaration',
  result => q(0:15:SYNTAX_MULTIPLE_COMMENT),
 },
 {
  t => q{<!-- comment ----aa-->},
  method => 'parse_markup_declaration',
  result => q(0:15:SYNTAX_MULTIPLE_COMMENT),
 },
 {
  t => q{<!-- comment -- >},
  method => 'parse_markup_declaration',
  result => q(0:15:SYNTAX_S_IN_COMMENT_DECLARATION),
 },

 {
  t => q{<e><!-- comment --></e>},
  method => 'parse_element',
  result => 1,
 },
 {
  t => q{<e>bb<!-- comment -->aa</e>},
  method => 'parse_element',
  result => 1,
 },
 {
  t => q{<e>bb<!-- comment -->aa<!--c--></e>},
  method => 'parse_element',
  result => 1,
 },

 {
  t => q{<?pi?>},
  method => 'parse_processing_instruction',
  result => 1,
 },
 {
  t => q{<?pi target-data?>},
  method => 'parse_processing_instruction',
  result => 1,
 },
 {
  t => q{<?pi target-data ?>},
  method => 'parse_processing_instruction',
  result => 1,
 },
 {
  t => q{<?pi target-data="something"?>},
  method => 'parse_processing_instruction',
  result => 1,
 },
 {
  t => q{<?pi target-data="some?>},
  method => 'parse_processing_instruction',
  result => 1,
 },
 {
  t => q{<? system-data ?>},
  method => 'parse_processing_instruction',
  result => q(0:2:SYNTAX_TARGET_NAME_REQUIRED),
 },
 {
  t => q{<?pi},
  method => 'parse_processing_instruction',
  result => q(0:4:SYNTAX_PIC_REQUIRED),
 },
 {
  t => q{<?pi!?>},
  method => 'parse_processing_instruction',
  result => q(0:4:SYNTAX_PIC_REQUIRED),
 },
 
 {
  t => q{<e><?pi?>foo</e>},
  method => 'parse_element',
  result => q(1),
 },
 {
  t => q{<e>bar<?pi?>foo</e>},
  method => 'parse_element',
  result => q(1),
 },

 {
  t => q{<!foo>},
  method => 'parse_markup_declaration',
  result => q(0:2:SYNTAX_UNKNOWN_MARKUP_DECLARATION),
 },

 {
  t => q{<!DOCTYPE>},
  method => 'parse_markup_declaration',
  result => q(0:9:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE >},
  method => 'parse_markup_declaration',
  result => q(0:10:SYNTAX_DOCTYPE_NAME_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE #IMPLIED>},
  method => 'parse_markup_declaration',
  result => q(0:11:SYNTAX_DOCTYPE_IMPLIED),
 },
 {
  t => q{<!DOCTYPE #keyword>},
  method => 'parse_markup_declaration',
  result => q(0:11:SYNTAX_DOCTYPE_RNI_KEYWORD),
 },
 {
  t => q{<!DOCTYPE#IMPLIED>},
  method => 'parse_markup_declaration',
  result => q(0:9:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC>},
  method => 'parse_markup_declaration',
  result => q(0:21:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC >},
  method => 'parse_markup_declaration',
  result => q(0:22:SYNTAX_PUBID_LITERAL_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC[]>},
  method => 'parse_markup_declaration',
  result => q(0:21:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC []>},
  method => 'parse_markup_declaration',
  result => q(0:22:SYNTAX_PUBID_LITERAL_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC"pubid">},
  method => 'parse_markup_declaration',
  result => q(0:21:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid">},
  method => 'parse_markup_declaration',
  result => q(0:29:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC 'pubid'>},
  method => 'parse_markup_declaration',
  result => q(0:29:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid},
  method => 'parse_markup_declaration',
  result => q(0:28:SYNTAX_PUBLIT_MLITC_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC 'pubid},
  method => 'parse_markup_declaration',
  result => q(0:28:SYNTAX_PUBLIT_MLITAC_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" >},
  method => 'parse_markup_declaration',
  result => q(0:30:SYNTAX_SYSTEM_LITERAL_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC 'pubid' >},
  method => 'parse_markup_declaration',
  result => q(0:30:SYNTAX_SYSTEM_LITERAL_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pub<id" "">},
  method => 'parse_markup_declaration',
  result => q(0:26:SYNTAX_PUBID_LITERAL_INVALID_CHAR),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" "sysid">},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" "sysid" >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" "sys<>id">},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" 'sysid'>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" 'sysid' >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" "sysid>},
  method => 'parse_markup_declaration',
  result => q(0:37:SYNTAX_SLITC_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" 'sysid>},
  method => 'parse_markup_declaration',
  result => q(0:37:SYNTAX_SLITAC_REQUIRED),
 },
 
 {
  t => q{<!DOCTYPE name SYSTEM>},
  method => 'parse_markup_declaration',
  result => q(0:21:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name SYSTEM >},
  method => 'parse_markup_declaration',
  result => q(0:22:SYNTAX_SYSTEM_LITERAL_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name SYSTEM[]>},
  method => 'parse_markup_declaration',
  result => q(0:21:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name SYSTEM []>},
  method => 'parse_markup_declaration',
  result => q(0:22:SYNTAX_SYSTEM_LITERAL_REQUIRED),
 },
 { 
  t => q{<!DOCTYPE name SYSTEM"sysid">},
  method => 'parse_markup_declaration',
  result => q(0:21:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name SYSTEM'sysid'>},
  method => 'parse_markup_declaration',
  result => q(0:21:SYNTAX_DOCTYPE_PS_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name SYSTEM "sysid">},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name SYSTEM "sysid" >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name SYSTEM 'sysid'>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name SYSTEM 'sysid' >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name SYSTEM "sysid},
  method => 'parse_markup_declaration',
  result => q(0:28:SYNTAX_SLITC_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name SYSTEM 'sysid},
  method => 'parse_markup_declaration',
  result => q(0:28:SYNTAX_SLITAC_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name system},
  method => 'parse_markup_declaration',
  result => q(0:15:SYNTAX_MARKUP_DECLARATION_UNKNOWN_KEYWORD),
 },

 {
  t => q{<!DOCTYPE name[]>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name []>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name[ ]   >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name []    >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" "sysid"[]>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" "sysid" []>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" 'sysid'[]>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" 'sysid' []>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" 'sysid'[] >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pubid" 'sysid' []>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name [] SYSTEM 'sysid'},
  method => 'parse_markup_declaration',
  result => q(0:18:SYNTAX_MDC_REQUIRED),
 },

 {
  t => q{<!DOCTYPE name SYSTEM ""[ <!-- --> ]>},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name SYSTEM ""[ <!-- --> ]   >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name SYSTEM ""[ <!-- --> <!> ]>},
  method => 'parse_markup_declaration',
  result => q(0:35:SYNTAX_EMPTY_COMMENT_DECLARATION),
 },
 {
  t => q{<!DOCTYPE name SYSTEM ""[ <!-- -- -- --> ]>},
  method => 'parse_markup_declaration',
  result => q(0:33:SYNTAX_S_IN_COMMENT_DECLARATION),
 },
 {
  t => q{<!DOCTYPE name SYSTEM ""[ <!-- --> ]  },
  method => 'parse_markup_declaration',
  result => q(0:38:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name []aaa>},
  method => 'parse_markup_declaration',
  result => q(0:17:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name PUBLIC "pub" "sys"aaa>},
  method => 'parse_markup_declaration',
  result => q(0:33:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name SYSTEM "sys"aaa>},
  method => 'parse_markup_declaration',
  result => q(0:27:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!DOCTYPE name []      >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  t => q{<!DOCTYPE name SYSTEM "sys"    >},
  method => 'parse_markup_declaration',
  result => q(1),
 },
 {
  entity => {param => 'aa'},
  t => q{<!DOCTYPE %param;  >},
  method => 'parse_markup_declaration',
  result => q(0:10:SYNTAX_PARAENT_REF_NOT_ALLOWED),
 },
 {
  t => q{<!DOCTYPE --%param; -- >},
  method => 'parse_markup_declaration',
  result => q(0:10:SYNTAX_PS_COMMENT),
 },

 {
  t => q{abcdefg},
  method => 'parse_rpdata',
  result => q(1),
 },
 {
  t => q{abcd&#125;efg},
  method => 'parse_rpdata',
  result => q(1),
 },
 {
  t => q{abcd&#x125;efg},
  method => 'parse_rpdata',
  result => q(1),
 },
 {
  entity => {e5 => 'bb',},
  t => q{abcd&e5;efg},
  method => 'parse_rpdata',
  result => q(1),
 },
 {
  entity => {e5 => 'aa'},
  t => q{abcd%e5;efg},
  method => 'parse_rpdata',
  result => q(1),
 },
 {
  entity => {e5efg => 'aa'},
  t => q{abcd&e5efg},
  method => 'parse_rpdata',
  result => q(0:10:SYNTAX_REFC_REQUIRED),
 },
 {
  t => q{abcd&#xe5e a},
  method => 'parse_rpdata',
  result => q(0:10:SYNTAX_REFC_REQUIRED),
 },
 {
  entity => {e5efg => 'aa'},
  t => q{abcd%e5efg},
  method => 'parse_rpdata',
  result => q(0:10:SYNTAX_REFC_REQUIRED),
 },
 {
  t => q{abcd% e5efg},
  method => 'parse_rpdata',
  result => q(0:5:SYNTAX_PARAENT_NAME_REQUIRED),
 },

 {
  t => q{<!ENTITY "a">},
  method => 'parse_entity_declaration',
  result => q(0:9:SYNTAX_ENTITY_NAME_REQUIRED),
 },
 {
  t => q{<!ENTITY a "a">},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY % "a">},
  method => 'parse_entity_declaration',
  result => q(0:11:SYNTAX_ENTITY_PARAM_NAME_REQUIRED),
 },
 {
  t => q{<!ENTITY % a "a">},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY #DEFAULT "a">},
  method => 'parse_entity_declaration',
  result => q(0:10:SYNTAX_ENTITY_DEFAULT),
 },
 {
  t => q{<!ENTITY #ALL "a">},
  method => 'parse_entity_declaration',
  result => q(0:10:SYNTAX_ENTITY_RNI_KEYWORD),
 },
 {
  t => q{<!ENTITY % #DEFAULT "a">},
  method => 'parse_entity_declaration',
  result => q(0:11:SYNTAX_ENTITY_PARAM_NAME_REQUIRED),
 },

 {
  t => q{<!ENTITY a "abcde">},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
#  entity => {a => q<b>},
  t => q{<!ENTITY a "ab&a;cde">},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  entity => {a => 'aa'},
  t => q{<!ENTITY a "ab%a;cde">},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY a "ab<c'de">},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY a 'ab<c"de'>},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY a "abcde>},
  method => 'parse_entity_declaration',
  result => q(0:18:SYNTAX_PLITC_REQUIRED),
 },
 {
  t => q{<!ENTITY a 'abcde>},
  method => 'parse_entity_declaration',
  result => q(0:18:SYNTAX_PLITAC_REQUIRED),
 },
 {
  t => q{<!ENTITY a "abcde"    >},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY a "abcde"aa>},
  method => 'parse_entity_declaration',
  result => q(0:18:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!ENTITY a "abcde" aa>},
  method => 'parse_entity_declaration',
  result => q(0:19:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!ENTITY % pa "abcde" >},
  method => 'parse_entity_declaration',
  result => q(1),
 },

 {
  t => q{<!ENTITY a SYSTEM "sys">},
  method => 'parse_entity_declaration',
  result => q(1),
 }, 
 {
  t => q{<!ENTITY a SYSTEM "sys"  >},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY a PUBLIC "pub" "sys">},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY a PUBLIC "pub" "sys"  >},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY %    a PUBLIC "pub" "sys"  >},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY a PUBLIC "pub" >},
  method => 'parse_entity_declaration',
  result => q(0:24:SYNTAX_SYSTEM_LITERAL_REQUIRED),
 },
 {
  t => q{<!ENTITY a PUBLIC >},
  method => 'parse_entity_declaration',
  result => q(0:18:SYNTAX_PUBID_LITERAL_REQUIRED),
 },
 {
  t => q{<!ENTITY a SYSTEM >},
  method => 'parse_entity_declaration',
  result => q(0:18:SYNTAX_SYSTEM_LITERAL_REQUIRED),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" "what?">},
  method => 'parse_entity_declaration',
  result => q(0:24:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!ENTITY a PUBLIC "pub" "sys" "what?">},
  method => 'parse_entity_declaration',
  result => q(0:30:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!ENTITY a PUBLIC "pub""sys">},
  method => 'parse_entity_declaration',
  result => q(0:23:SYNTAX_ENTITY_PS_REQUIRED),
 },
 {
  t => q{<!ENTITY a PUBLIC"pub" "sys">},
  method => 'parse_entity_declaration',
  result => q(0:17:SYNTAX_ENTITY_PS_REQUIRED),
 },
 {
  t => q{<!ENTITY a SYSTEM"sys">},
  method => 'parse_entity_declaration',
  result => q(0:17:SYNTAX_ENTITY_PS_REQUIRED),
 },
 {
  t => q{<!ENTITY a KEYWORD>},
  method => 'parse_entity_declaration',
  result => q(0:11:SYNTAX_ENTITY_TEXT_KEYWORD),
 },
 {
  t => q{<!ENTITY a CDATA "cdata">},
  method => 'parse_entity_declaration',
  result => q(0:11:SYNTAX_ENTITY_TEXT_PRE_KEYWORD),
 },
 {
  t => q{<!ENTITY a "cdata" CDATA>},
  method => 'parse_entity_declaration',
  result => q(0:19:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" NDATA notation>},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" NDATA notation     >},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys"NDATA notation>},
  method => 'parse_entity_declaration',
  result => q(0:23:SYNTAX_ENTITY_PS_REQUIRED),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" NDATAnotation>},
  method => 'parse_entity_declaration',
  result => q(0:24:SYNTAX_ENTITY_DATA_TYPE_UNKNOWN_KEYWORD),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" NDATA notation  aa   >},
  method => 'parse_entity_declaration',
  result => q(0:40:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" NDATA >},
  method => 'parse_entity_declaration',
  result => q(0:30:SYNTAX_ENTITY_DATA_TYPE_NOTATION_NAME_REQUIRED),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" NDATA #>},
  method => 'parse_entity_declaration',
  result => q(0:30:SYNTAX_ENTITY_DATA_TYPE_NOTATION_NAME_REQUIRED),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" CDATA a>},
  method => 'parse_entity_declaration',
  result => q(0:24:SYNTAX_ENTITY_DATA_TYPE_SGML_KEYWORD),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" SDATA a>},
  method => 'parse_entity_declaration',
  result => q(0:24:SYNTAX_ENTITY_DATA_TYPE_SGML_KEYWORD),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" SUBDOC a>},
  method => 'parse_entity_declaration',
  result => q(0:24:SYNTAX_ENTITY_DATA_TYPE_SGML_KEYWORD),
 },
 {
  t => q{<!ENTITY a SYSTEM "sys" NDATA b [ attr=val ]>},
  method => 'parse_entity_declaration',
  result => q(0:32:SYNTAX_MDC_REQUIRED),
 },

 {
  entity => {b => ''},
  t => q{<!ENTITY a "%b;">},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  entity => {b => ''},
  t => q{<!ENTITY a %b; "aa">},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  entity => {b => '"aa"'},
  t => q{<!ENTITY a %b;>},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  entity => {b => q<SYSTEM "foo">},
  t => q{<!ENTITY a %b;>},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  entity => {b => q<  PUBLIC "pub" 'sys'  >},
  t => q{<!ENTITY a %b;>},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  entity => {b => 'SYSTEM'},
  t => q{<!ENTITY a %b;>},
  method => 'parse_entity_declaration',
  result => q(0:14:SYNTAX_ENTITY_PS_REQUIRED),
 },
 {
  entity => {b => "SYSTEM"},
  t => q{<!ENTITY a %b; >},
  method => 'parse_entity_declaration',
  result => q(0:15:SYNTAX_SYSTEM_LITERAL_REQUIRED),
 },
 {
  entity => {b => q<  SYSTEM "foo" >},
  t => q{<!ENTITY a %b; >},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  entity => {b => q<  SYSTEM %c; >,
             c => q< "sys" >},
  t => q{<!ENTITY a %b; >},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  entity => {b => q<SYSTEM %c; >,
             c => q< "sys" >},
  t => q{<!ENTITY%b; >},
  method => 'parse_entity_declaration',
  result => q(1),
 },
 {
  entity => {b => q[SYSTEM %c; > ],
             c => q< "sys" >},
  t => q{<!ENTITY%b; >},
  method => 'parse_entity_declaration',
  result => q(0:11:SYNTAX_MARKUP_DECLARATION_TOO_MANY_PARAM),
 },

 {
  t => q{<!ENTITY --comment-->},
  method => 'parse_entity_declaration',
  result => q(0:9:SYNTAX_PS_COMMENT),
 },
 {
  t => q{<!ENTITY a --comment-->},
  method => 'parse_entity_declaration',
  result => q(0:11:SYNTAX_PS_COMMENT),
 },
 {
  t => q{<!ENTITY a "a" --comment-->},
  method => 'parse_entity_declaration',
  result => q(0:15:SYNTAX_PS_COMMENT),
 },

 {
  t => q{<!ELEMENT el ANY>},
  method => 'parse_element_declaration',
  result => q(1),
 },
 {
  t => q{<!ELEMENT el EMPTY   >},
  method => 'parse_element_declaration',
  result => q(1),
 },
 {
  t => q{<!ELEMENT el CDATA>},
  method => 'parse_element_declaration',
  result => q(0:13:SYNTAX_ELEMENT_SGML_CONTENT_KEYWORD),
 },
 {
  t => q{<!ELEMENT el RCDATA>},
  method => 'parse_element_declaration',
  result => q(0:13:SYNTAX_ELEMENT_SGML_CONTENT_KEYWORD),
 },
 {
  t => q{<!ELEMENT el foo>},
  method => 'parse_element_declaration',
  result => q(0:13:SYNTAX_ELEMENT_UNKNOWN_CONTENT_KEYWORD),
 },
 {
  t => q{<!ELEMENT el ANY foo>},
  method => 'parse_element_declaration',
  result => q(0:17:SYNTAX_MDC_REQUIRED),
 },
 {
  t => q{<!ELEMENT el - - ANY>},
  method => 'parse_element_declaration',
  result => q(0:13:SYNTAX_ELEMENT_TAG_MIN),
 },
 {
  t => q{<!ELEMENT el o - ANY>},
  method => 'parse_element_declaration',
  result => q(0:13:SYNTAX_ELEMENT_TAG_MIN),
 },
 {
  t => q{<!ELEMENT (el) o - ANY>},
  method => 'parse_element_declaration',
  result => q(0:10:SYNTAX_ELEMENT_DECLARATION_TYPE_NAME_GROUP),
 },
 {
  t => q{<!ELEMENT el 1 o - ANY>},
  method => 'parse_element_declaration',
  result => q(0:13:SYNTAX_ELEMENT_RANK_SUFFIX),
 },
 {
  t => q{<!ELEMENT>},
  method => 'parse_element_declaration',
  result => q(0:9:SYNTAX_ELEMENT_PS_REQUIRED),
 },
 {
  t => q{<!ELEMENT >},
  method => 'parse_element_declaration',
  result => q(0:10:SYNTAX_ELEMENT_DECLARATION_TYPE_NAME_REQUIRED),
 },
 {
  t => q{<!ELEMENT e>},
  method => 'parse_element_declaration',
  result => q(0:11:SYNTAX_ELEMENT_PS_REQUIRED),
 },
 {
  t => q{<!ELEMENT e >},
  method => 'parse_element_declaration',
  result => q(0:12:SYNTAX_ELEMENT_MODEL_OR_MIN_OR_RANK_REQUIRED),
 },
 {
  t => q{<!ELEMENT e ANY},
  method => 'parse_element_declaration',
  result => q(0:15:SYNTAX_MDC_REQUIRED),
 },

 {
  t => q<(a)>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<(a,b)>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<(a,b,c)>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<(   a , b  )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<(   a , b  >,
  method => 'parse_model_group',
  result => '0:11:SYNTAX_MODEL_GROUP_GRPC_REQUIRED',
 },
  {
  t => q<(   a ,   >,
  method => 'parse_model_group',
  result => '0:10:SYNTAX_MODEL_GROUP_ITEM_REQUIRED',
 },

 {
  t => q<( a+ )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a* )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a? )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a?, b )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a?, b, c+ )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a?, b*, c+ )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a?>,
  method => 'parse_model_group',
  result => '0:4:SYNTAX_MODEL_GROUP_GRPC_REQUIRED',
 },
 {
  t => q<( a ?>,
  method => 'parse_model_group',
  result => '0:4:SYNTAX_MODEL_GROUP_GRPC_REQUIRED',
 },

 {
  t => q<( a | b )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a & b )>,
  method => 'parse_model_group',
  result => '0:4:SYNTAX_CONNECTOR',
 },

 {
  t => q<( a , b )*>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a , b )+>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a , b )?>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a , (b)* )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a , (b, c)* )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( a , (b, (c, d)+)* )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  entity => {ry => 'aa'},
  t => q<( a , ([b, %ry; ], (c, d)+)* )>,
  method => 'parse_model_group',
  result => '0:7:SYNTAX_DATA_TAG_GROUP',
 },

 {
  t => q<( a -- , b -- )>,
  method => 'parse_model_group',
  result => '0:4:SYNTAX_PS_COMMENT',
 },
 {
  entity => {
    b => q<, b>,
  },
  t => q<( a %b; )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  entity => {
    b => q<, >,
  },
  t => q<( a %b; )>,
  method => 'parse_model_group',
  result => '0:8:SYNTAX_MODEL_GROUP_ITEM_REQUIRED',
 },
 {
  entity => {
    b => q<, (b) >,
  },
  t => q<( a %b; )>,
  method => 'parse_model_group',
  result => 1,
 },
 {
  entity => {
    b => q<, (b >,
  },
  t => q<( a %b; ))>,
  method => 'parse_model_group',
  result => '0:5:SYNTAX_MODEL_GROUP_GRPC_REQUIRED',
 },
 {
  entity => {
    b => q<, b) >,
  },
  t => q<( a %b; >,
  method => 'parse_model_group',
  result => '0:3:SYNTAX_MARKUP_DECLARATION_TOO_MANY_PARAM',
 },

 {
  t => q<( #PCDATA )* >,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( #PCDATA ) >,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( #PCDATA | a )* >,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( #PCDATA | a | b)* >,
  method => 'parse_model_group',
  result => 1,
 },
 {
  t => q<( #PCDATA )+ >,
  method => 'parse_model_group',
  result => '0:11:SYNTAX_MODEL_GROUP_PCDATA_OCCUR',
 },
 {
  t => q<( #PCDATA | a )+ >,
  method => 'parse_model_group',
  result => '0:15:SYNTAX_MODEL_GROUP_MIXED_OCCUR',
 },
 {
  t => q<( #PCDATA , a )* >,
  method => 'parse_model_group',
  result => '0:10:SYNTAX_MODEL_GROUP_MIXED_CONNECTOR',
 },
 {
  t => q<( #PCDATA | (a) )* >,
  method => 'parse_model_group',
  result => '0:12:SYNTAX_MODEL_GROUP_MIXED_NESTED',
 },
 {
  t => q<( b | #PCDATA )* >,
  method => 'parse_model_group',
  result => '0:7:SYNTAX_MODEL_GROUP_PCDATA_POSITION',
 },
 {
  t => q<( b | #foo )* >,
  method => 'parse_model_group',
  result => '0:7:SYNTAX_MODEL_GROUP_UNKNOWN_KEYWORD',
 },
 {
  t => q<( #PCDATA | a , b ) >,
  method => 'parse_model_group',
  result => '0:14:SYNTAX_MODEL_GROUP_CONNECTOR_MATCH',
 },
 {
  t => q<( a , b | a) >,
  method => 'parse_model_group',
  result => '0:8:SYNTAX_MODEL_GROUP_CONNECTOR_MATCH',
 },

 {
  t => q<<!ELEMENT e ( a , b , a) >>,
  method => 'parse_element_declaration',
  result => '1',
 },
 {
  t => q<<!ELEMENT e ( a , b  >>,
  method => 'parse_element_declaration',
  result => '0:21:SYNTAX_MODEL_GROUP_GRPC_REQUIRED',
 },
 {
  entity => {b => q<(a, b>},
  t => q<<!ELEMENT e %b; ) >>,
  method => 'parse_element_declaration',
  result => '0:5:SYNTAX_MODEL_GROUP_GRPC_REQUIRED',
 },
 {
  entity => {b => q[(a, b )>]},
  t => q[<!ELEMENT e %b; ],
  method => 'parse_element_declaration',
  result => '0:7:SYNTAX_MARKUP_DECLARATION_TOO_MANY_PARAM',
 },

 {
  t => q<<!NOTATION n PUBLIC "pub">>,
  method => 'parse_notation_declaration',
  result => 1,
 },
 {
  t => q<<!NOTATION n PUBLIC "pub" "sys"  >>,
  method => 'parse_notation_declaration',
  result => 1,
 },
 {
  t => q<<!NOTATION n SYSTEM "sys">>,
  method => 'parse_notation_declaration',
  result => 1,
 },
 {
  t => q[<!NOTATION n SYSTEM "sys"],
  method => 'parse_notation_declaration',
  result => '0:25:SYNTAX_MDC_REQUIRED',
 },
 {
  t => q[<!NOTATION n SYSTEM "sys>],
  method => 'parse_notation_declaration',
  result => '0:25:SYNTAX_SLITC_REQUIRED',
 },
 {
  t => q[<!NOTATION n ],
  method => 'parse_notation_declaration',
  result => '0:13:SYNTAX_NOTATION_EXTERNAL_IDENTIFIER_REQUIRED',
 },
 {
  t => q[<!NOTATION>],
  method => 'parse_notation_declaration',
  result => '0:10:SYNTAX_NOTATION_PS_REQUIRED',
 },
 {
  t => q[<!NOTATION >],
  method => 'parse_notation_declaration',
  result => '0:11:SYNTAX_NOTATION_NAME_REQUIRED',
 },
 {
  t => q[<!NOTATION n>],
  method => 'parse_notation_declaration',
  result => '0:12:SYNTAX_NOTATION_PS_REQUIRED',
 },
 {
  t => q[<!NOTATION n SYSTEM >],
  method => 'parse_notation_declaration',
  result => '0:20:SYNTAX_SYSTEM_LITERAL_REQUIRED',
 },
 {
  entity => {n => q<not SYSTEM %sys;>, sys => q< "sys" >},
  t => q[<!NOTATION %n;>],
  method => 'parse_notation_declaration',
  result => 1,
 },

 {
  t => q[<!ATTLIST a>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST attr  >],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST el <],
  method => 'parse_attlist_declaration',
  result => '0:13:SYNTAX_MDC_REQUIRED',
 },
 {
  t => q[<!ATTLIST >],
  method => 'parse_attlist_declaration',
  result => '0:10:SYNTAX_ATTLIST_ASSOCIATED_NAME_REQUIRED',
 },
 {
  t => q[<!ATTLIST>],
  method => 'parse_attlist_declaration',
  result => '0:9:SYNTAX_ATTLIST_PS_REQUIRED',
 },

 {
  t => q[<!ATTLIST foo a CDATA #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a CDATA #REQUIRED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a NMTOKEN #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a ID #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a IDREF #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a IDREFS #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a NMTOKENS #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a NMTOKENS #IMPLIED b CDATA #REQUIRED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a NMTOKENS #IMPLIED a NMTOKENS #IMPLIED
                       b CDATA #REQUIRED id ID #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a NMTOKENS #CURRENT>],
  method => 'parse_attlist_declaration',
  result => '0:26:SYNTAX_ATTRDEF_DEFAULT_SGML_KEYWORD',
 },
 {
  t => q[<!ATTLIST foo a NMTOKENS #NEW>],
  method => 'parse_attlist_declaration',
  result => '0:26:SYNTAX_ATTRDEF_DEFAULT_UNKNOWN_KEYWORD',
 },
 {
  t => q[<!ATTLIST foo a NMTOKENS >],
  method => 'parse_attlist_declaration',
  result => '0:25:SYNTAX_ATTRDEF_DEFAULT_REQUIRED',
 },
 {
  t => q[<!ATTLIST foo a NMTOKENS#IMPLIED>],
  method => 'parse_attlist_declaration',
  result => '0:24:SYNTAX_ATTLIST_PS_REQUIRED',
 },
 {
  t => q[<!ATTLIST foo a NAME #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => '0:16:SYNTAX_ATTRDEF_TYPE_SGML_KEYWORD',
 },
 {
  t => q[<!ATTLIST foo a URI #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => '0:16:SYNTAX_ATTRDEF_TYPE_UNKNOWN_KEYWORD',
 },
 {
  t => q[<!ATTLIST foo a #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => '0:16:SYNTAX_ATTRDEF_TYPE_REQUIRED',
 },
 {
  t => q[<!ATTLIST foo a#IMPLIED>],
  method => 'parse_attlist_declaration',
  result => '0:15:SYNTAX_ATTLIST_PS_REQUIRED',
 },
 {
  t => q[<!ATTLIST foo a CDATA #IMPLIED ab>],
  method => 'parse_attlist_declaration',
  result => '0:33:SYNTAX_ATTLIST_PS_REQUIRED',
 },
 {
  t => q[<!ATTLIST foo a CDATA "def">],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a CDATA #FIXED "def">],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a (a) #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a (a|b) #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a  (a|b|c) #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a  (a|b|c #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => '0:24:SYNTAX_ATTRDEF_TYPE_GROUP_GRPC_REQUIRED',
 },
 {
  t => q[<!ATTLIST foo a  (a,b) #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => '0:19:SYNTAX_CONNECTOR',
 },
 {
  t => q[<!ATTLIST foo a  (a+|b) #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => '0:19:SYNTAX_ATTRDEF_TYPE_GROUP_GRPC_REQUIRED',
 },
 {
  t => q[<!ATTLIST foo a  (a|(b)) #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => '0:20:SYNTAX_ATTRDEF_TYPE_GROUP_NMTOKEN_REQUIRED',
 },
 {
  t => q[<!ATTLIST foo a  (a|b)* #IMPLIED>],
  method => 'parse_attlist_declaration',
  result => '0:22:SYNTAX_ATTLIST_PS_REQUIRED',
 },
 {
  t => q[<!ATTLIST foo a  (a|b|c ) "c">],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a NOTATION ( a|b|c ) "c">],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  entity => {lt => qq{&#@{[ord '<']};}},
  t => q[<!ATTLIST foo a NOTATION ( a|b|c ) 'c&lt;b&#33;!&#x4a;b'>],
  method => 'parse_attlist_declaration',
  result => 1,
 },
 {
  t => q[<!ATTLIST foo a NOTATION ( a|b|c ) 'c<b'>],
  method => 'parse_attlist_declaration',
  result => '0:37:SYNTAX_NO_LESS_THAN_IN_ATTR_VAL',
 },

 {
  t => q{<![INCLUDE[<!---->]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1,},
  },
  result => 1,
 },
 {
  t => q{<![  INCLUDE  [<!---->]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1,},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => 1,
 },
 {
  t => q{<![  INCLUDE  [<!---->]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1,},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => '0:24:SYNTAX_MSE_REQUIRED',
 },
 {
  t => q{<![  INCLUDE  <!---->]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1,},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => '0:14:SYNTAX_MSO_REQUIRED',
 },
 {
  t => q{<![  INCLUDE  IGNORE[<!---->]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => '0:14:SYNTAX_MARKED_SECTION_KEYWORDS',
 },
 {
  t => q{<![RCDATA[<!---->]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => '0:3:SYNTAX_MARKED_SECTION_KEYWORD',
 },
 {
  t => q{<![DATA[<!---->]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => '0:3:SYNTAX_MARKED_SECTION_KEYWORD',
 },
 {
  t => q{<![IGNORE[<!---->]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => 1,
 },
 {
  t => q{<![IGNORE[<!---->},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => '0:17:SYNTAX_MSE_REQUIRED',
 },
 {
  t => q{<![IGNORE[<!----><![IGNORE[ ]]>...]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => 1,
 },
 {
  t => q{<![IGNORE[<!----><![IGNORE[ <e><![CDATA[a&b ]]></e> ]]>...]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => 1,
 },
 {
  t => q{<![IGNORE[<!----><![IGNORE[ <e><![CDATA[a&b ]]></e> ]>...]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => '0:60:SYNTAX_MSE_REQUIRED',
 },
 {
  t => q{<![IGNORE[<!----><![ <e]]>.]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => 1,
 },
 {
  t => q{<![  [<!----><![ <e]]>.]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => '0:5:SYNTAX_MARKED_SECTION_KEYWORD_REQUIRED',
 },
 {
  t => q{<![[<!----><![ <e]]>.]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
  },
  result => '0:3:SYNTAX_MARKED_SECTION_KEYWORD_REQUIRED',
 },
 {
  entity => {kwd => ' INCLUDE '},
  t => q{<![%kwd; [ <!-- --> ]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
    ExpandedURI q<allow-param-entref> => 1,
  },
  result => 1,
 },
 {
  entity => {kwd => ' INCLUDE ', kwd2 => '%kwd3;', kwd3 => ''},
  t => q{<![%kwd; %kwd2; [ <!-- --> ]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
    ExpandedURI q<allow-param-entref> => 1,
  },
  result => 1,
 },
 {
  entity => {kwd => ' INCLUDE ', kwd2 => ' -- comment --'},
  t => q{<![%kwd; %kwd2; [ <!-- --> ]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
    ExpandedURI q<allow-param-entref> => 1,
  },
  result => '0:1:SYNTAX_PS_COMMENT',
 },
 {
  t => q{<![INCLUDE[ <!-- -- ]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1, IGNORE => 1},
    ExpandedURI q<allow-section-ps> => 1,
    ExpandedURI q<section-content-parser> => 'parse_doctype_subset',
  },
  result => '0:19:SYNTAX_S_IN_COMMENT_DECLARATION',
 },

 {
  t => q{<![CDATA[ <!-- -- ]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {CDATA => 1},
  },
  result => 1,
 },
 {
  t => q{<![CDATA [ <!-- -- ]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {CDATA => 1},
  },
  result => '0:8:SYNTAX_MARKED_SECTION_STATUS_PS',
 },
 {
  t => q{<![ CDATA[ <!-- -- ]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {CDATA => 1},
  },
  result => '0:3:SYNTAX_MARKED_SECTION_STATUS_PS',
 },
 {
  t => q{<![CDATA[ <!-- ]]-]>- ]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {CDATA => 1},
  },
  result => 1,
 },
 {
  entity => {kwd => 'CDATA'},
  t => q{<![%kwd;[ <!-- ]]-]>- ]]>},
  method => 'parse_marked_section',
  option => {
    ExpandedURI q<allow-section> => {CDATA => 1},
    ExpandedURI q<allow-param-entref> => 1,
  },
  result => '0:3:SYNTAX_MARKED_SECTION_STATUS_PS',
 },

 {
  t => q{<!----> <!ENTITY e "entity text">
         <!ELEMENT el ANY> <!ATTLIST el foo CDATA "bar">
         <?pi ?> <![ INCLUDE
         [ <!ATTLIST el bar ID #IMPLIED> ]]>
        <!NOTATION n SYSTEM "not">},
  method => 'parse_doctype_subset',
  option => {
    ExpandedURI q<allow-section> => {INCLUDE => 1},
    ExpandedURI q<allow-param-entref> => 1,
  },
  result => 1,
 },
 {
  t => q{<!----> <!ENTITY e "entity text">
         <!DOCTYPE doc []>},
  method => 'parse_doctype_subset',
  option => {
    ExpandedURI q<allow-section> => {CDATA => 1},
  },
  result => '1:9:SYNTAX_MARKUP_DECLARATION_NOT_ALLOWED',
 },
 {
  t => q{<!----> <!ENTITY e "entity text"> ]>},
  method => 'parse_doctype_subset',
  option => {
    ExpandedURI q<allow-section> => {CDATA => 1},
  },
  result => '0:34:SYNTAX_DOCTYPE_SUBSET_INVALID_CHAR',
 },
 
 {
  t => q{<!DOCTYPE d [<!----> <!ENTITY e "entity text"> ]>},
  method => 'parse_doctype_declaration',
  result => 1,
 },
 {
  t => q{<!DOCTYPE d [<!----> <![INCLUDE[<!ENTITY e "entity text">]]> ]>},
  method => 'parse_doctype_declaration',
  result => '0:21:SYNTAX_MARKED_SECTION_NOT_ALLOWED',
 },
 {
  entity => {d => {replace => q<  <![INCLUDE[<!ENTITY e "entity text">]]>>,
                   external => 0}},
  t => q{<!DOCTYPE d [<!----> %d; <!-- --> ]>},
  method => 'parse_doctype_declaration',
  result => '0:2:SYNTAX_MARKED_SECTION_NOT_ALLOWED',
 },
 {
  entity => {d => {replace => q{  <![INCLUDE[<!ENTITY e "entity text">]]>},
                   external => 1}},
  t => q{<!DOCTYPE d [<!----> %d; <!-- --> ]>},
  method => 'parse_doctype_declaration',
  result => 1,
 },
 {
  entity => {d => {replace
                     => q{<![INCLUDE[<!ENTITY e -- SYSTEM -- "entity text">]]>},
                   external => 1}},
  t => q{<!DOCTYPE d [<!----> %d; ]>},
  method => 'parse_doctype_declaration',
  result => '0:22:SYNTAX_PS_COMMENT',
 },

         {
          t => q{<?xml?>},
          method => 'parse_processing_instruction',
          result => q(0:0:SYNTAX_XML_DECLARATION_IN_MIDDLE),
         },
         {
          t => q{<?XML?>},
          method => 'parse_processing_instruction',
          result => q(0:2:SYNTAX_PI_TARGET_XML),
         },
         {
          t => q{<?XmL?>},
          method => 'parse_processing_instruction',
          result => q(0:2:SYNTAX_PI_TARGET_XML),
         },
         {
          t => q{<?XmL1?>},
          method => 'parse_processing_instruction',
          result => 1,
         },

         {
          t => q{<?xml?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:5:SYNTAX_XML_VERSION_REQUIRED),
         },
         {
          t => q{<?xml ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:6:SYNTAX_XML_VERSION_REQUIRED),
         },
         {
          t => q{<?xml ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-text-declaration> => 1},
          result => q(0:6:SYNTAX_XML_ENCODING_REQUIRED),
         },
         {
          t => q{<?xml ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1,
                     ExpandedURI q<allow-text-declaration> => 1},
          result => q(0:6:SYNTAX_XML_ENCODING_REQUIRED),
         },
 {
  t => q{<?xml version="1.0"?>},
  method => 'parse_xml_declaration',
  option => {ExpandedURI q<allow-xml-declaration> => 1},
  result => 1,
 }, 
 {
  t => q{<?xml version="1.0" ?>},
  method => 'parse_xml_declaration',
  option => {ExpandedURI q<allow-xml-declaration> => 1},
  result => 1,
 },
 {
  t => qq{<?xml \tversion  =  "1.0"?>},
  method => 'parse_xml_declaration',
  option => {ExpandedURI q<allow-xml-declaration> => 1},
  result => 1,
 },
 {
  t => q{<?xml version='1.0' ?>},
  method => 'parse_xml_declaration',
  option => {ExpandedURI q<allow-xml-declaration> => 1},
  result => 1,
 },
 {
  t => q{<?xml version="1.0"encoding="iso-2022-jp"?>},
  method => 'parse_xml_declaration',
  option => {ExpandedURI q<allow-xml-declaration> => 1},
  result => q(0:19:SYNTAX_S_REQUIRED_BETWEEN_ATTR_SPEC),
 },
 {
  t => q{<?xml version="1.0?>},
  method => 'parse_xml_declaration',
  option => {ExpandedURI q<allow-xml-declaration> => 1},
  result => q(0:18:SYNTAX_ALITC_REQUIRED),
 },
         {
          t => q{<?xml version=1.0?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:14:SYNTAX_ALITO_OR_ALITAO_REQUIRED),
         },
         {
          t => q{<?xml version="1.1"?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => 1,
         },
         {
          t => q{<?xml version="1.2"?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:15:SYNTAX_XML_VERSION_UNSUPPORTED),
         },
         {
          t => q{<?xml version="1+2"?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:15:SYNTAX_XML_VERSION_INVALID),
         },
         {
          t => q{<?xml version=""?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:15:SYNTAX_XML_VERSION_INVALID),
         },
         
         {
          t => q{<?xml encoding=""?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-text-declaration> => 1},
          result => q(0:16:SYNTAX_XML_ENCODING_INVALID),
         },
         {
          t => q{<?xml  encoding = 'iso-2022-jp'?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-text-declaration> => 1},
          result => 1,
         },
         {
          t => q{<?xml  encoding = 'iso-2022-jp'?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:7:SYNTAX_XML_VERSION_REQUIRED),
         },
         {
          t => q{<?xml  encoding = 'iso+2022+jp'?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-text-declaration> => 1},
          result => q(0:19:SYNTAX_XML_ENCODING_INVALID),
         },
         {
          t => q{<?xml encoding = ""?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-text-declaration> => 1},
          result => q(0:18:SYNTAX_XML_ENCODING_INVALID),
         },
         {
          t => q{<?xml  encoding = 'iso-2022-jp' version="1.0"?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:7:SYNTAX_XML_VERSION_REQUIRED),
         },
         {
          t => q{<?xml version="1.0" encoding = 'iso-2022-jp'?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => 1,
         },
         {
          t => q{<?xml version="1.0" encoding = 'iso-2022-jp'?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-text-declaration> => 1},
          result => 1,
         },
         {
          t => q{<?xml version="1.0" encoding = 'iso-2022-jp'?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1,
                     ExpandedURI q<allow-text-declaration> => 1},
          result => 1,
         },
         
         {
          t => q{<?xml version="1.0" encoding = 'UTF-8' standalone="yes" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1,
                     ExpandedURI q<allow-text-declaration> => 1},
          result => 1,
         },
         {
          t => q{<?xml version="1.0" encoding = 'UTF-8' standalone="no" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1,
                     ExpandedURI q<allow-text-declaration> => 1},
          result => 1,
         },
         {
          t => q{<?xml version="1.0" encoding = 'UTF-8' standalone="no" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-text-declaration> => 1},
          result => q(0:39:SYNTAX_XML_STANDALONE),
         },
         {
          t => q{<?xml version="1.0" encoding = 'UTF-8' standalone="unknown" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:51:SYNTAX_XML_STANDALONE_INVALID),
         },
         {
          t => qq{<?xml version="1.1" encoding = 'UTF-8' \tstandalone="no" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:38:SYNTAX_XML_STANDALONE_S),
         },
         {
          t => qq{<?xml standalone = "yes" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:6:SYNTAX_XML_VERSION_REQUIRED),
         },
         {
          t => qq{<?xml standalone = "yes" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-text-declaration> => 1},
          result => q(0:6:SYNTAX_XML_ENCODING_REQUIRED),
         },
         {
          t => qq{<?xml encoding="iso-2022-jp" standalone = "yes" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-text-declaration> => 1},
          result => q(0:29:SYNTAX_XML_STANDALONE),
         },
         {
          t => qq{<?xml version="1.1" encode="iso-2022-jp" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:20:SYNTAX_XML_UNKNOWN_ATTR),
         },
         {
          t => q{<?xml <#version="1.&#x31;" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:6:SYNTAX_ATTR_SPEC_REQUIRED),
         },
         {
          t => qq{<?xml version="&version;" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:15:SYNTAX_XML_VERSION_INVALID),
         },
         {
          t => q{<?xml version="  1.&#x31;" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:15:SYNTAX_XML_VERSION_INVALID),
         },
         {
          t => qq{<?xml version="-&#31;-" ?>},
          method => 'parse_xml_declaration',
          option => {ExpandedURI q<allow-xml-declaration> => 1},
          result => q(0:15:SYNTAX_XML_VERSION_INVALID),
         },

 {
  t => q{<el>data</el>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => q{

<el>data</el>

},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => q{<?xml version="1.0"?>

<el>data</el>

},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => q{<?xml version="1.0"?>

<el>data</el>
<!--
comment -->
},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => q{<?xml-stylesheet href="1.0"?>

<el>data</el>
<!--
comment -->
},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => q{<!DOCTYPE el []>
<el>data</el>
<!--
comment -->
},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => q{<el>a</el>
<el>data</el>
<!--
comment -->
},
  method => 'parse_document_entity',
  result => '1:0:SYNTAX_MULTIPLE_DOCUMENT_ELEMENTS',
 },
 {
  t => q{a<el>a</el>},
  method => 'parse_document_entity',
  result => '0:0:SYNTAX_CDATA_OUTSIDE_DOCUMENT_ELEMENT',
 },
 {
  t => q{<el>a</el> 
  b},
  method => 'parse_document_entity',
  result => '1:2:SYNTAX_CDATA_OUTSIDE_DOCUMENT_ELEMENT',
 },
 {
  t => q{<el>a</el>
  <?xml version="1.0"?>},
  method => 'parse_document_entity',
  result => '1:2:SYNTAX_XML_DECLARATION_IN_MIDDLE',
 },
 {
  t => q{
  <?xml version="1.0"?> <el/>},
  method => 'parse_document_entity',
  result => '1:2:SYNTAX_XML_DECLARATION_IN_MIDDLE',
 },
 {
  t => q{<!DOCTYPE el []>
  <?xml version="1.0"?> <el/>},
  method => 'parse_document_entity',
  result => '1:2:SYNTAX_XML_DECLARATION_IN_MIDDLE',
 },
 {
  t => q{<el/><!DOCTYPE el []>},
  method => 'parse_document_entity',
  result => '0:5:SYNTAX_MARKUP_DECLARATION_NOT_ALLOWED',
 },
 {
  t => q{<el/><![IGNORE[]]>},
  method => 'parse_document_entity',
  result => '0:5:SYNTAX_MARKED_SECTION_NOT_ALLOWED',
 },
 {
  t => q{<el/>< },
  method => 'parse_document_entity',
  result => '0:5:SYNTAX_CDATA_OUTSIDE_DOCUMENT_ELEMENT',
 },
 {
  t => q{<!-- -->},
  method => 'parse_document_entity',
  result => '0:8:SYNTAX_NO_DOCUMENT_ELEMENT',
 },
 {
  t => q{<el><!-- -->},
  method => 'parse_document_entity',
  result => '0:12:SYNTAX_END_TAG_REQUIRED',
 },
 {
  t => q{<?xml?><el><!-- --></el>},
  method => 'parse_document_entity',
  result => '0:5:SYNTAX_XML_VERSION_REQUIRED',
 },

 {
  entity => {f => q{baz}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  result => 1,
 },
 {
  entity => {f => q{baz<bar/>}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  result => 1,
 },
 {
  entity => {f => q{baz<bar>bar</bar>z}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  result => 1,
 },
 {
  entity => {f => q{baz&l;z}, l => q{foo}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  result => 1,
 },
 {
  entity => {f => q{baz<bar>bar</bar}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  result => '0:16:SYNTAX_ETAGC_REQUIRED',
 },
 {
  entity => {f => q{baz<bar>bar}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  result => '0:11:SYNTAX_END_TAG_REQUIRED',
 },
 {
  entity => {f => q{baz</bar>bar}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  result => '0:3:SYNTAX_END_TAG_NOT_ALLOWED',
 },
 {
  entity => {f => q{baz&bar}, bar => q<bar>},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  result => '0:7:SYNTAX_REFC_REQUIRED',
 },
 {
  entity => {f => q{baz< bar}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  result => '0:4:SYNTAX_ELEMENT_TYPE_NAME_FOLLOWING_STAGO_REQUIRED',
 },
 {
  entity => {f => q{baz &g;bar}, g => {replace => q{fff}, external => 1}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => 1,
 },
 {
  entity => {f => q{baz &g;bar}, g => {unparsed => 1, external => 1}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => '0:5:WFC_PARSED_ENTITY',
 },
 {
  entity => {f => q{baz &f;bar}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => '0:5:WFC_NO_RECURSION',
 },
 {
  entity => {f => q{baz &g;bar}, g => q{foo &f;bar}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => '0:5:WFC_NO_RECURSION',
 },
 {
  entity => {f => {replace => q{baz bar}, externally => 1}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<test:standalone> => 1},
  result => '0:7:WFC_ENTITY_DECLARED__INTERNAL',
 },
 {
  entity => {f => {replace => q{baz bar}, externally => 1}},
  t => q{<e>foo&f;bar</e>},
  method => 'parse_element',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<test:standalone> => 0},
  result => 1,
 },

 {
  entity => {f => q{baz bar}},
  t => q{"foo&f;bar"},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => 1,
 },
 {
  entity => {f => q{baz &g;bar}, g => q{fff}},
  t => q{"foo&f;bar"},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => 1,
 },
 {
  entity => {f => q{baz< bar}},
  t => q{'foo&f;bar'},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => '0:3:WFC_NO_LESS_THAN_IN_ATTR_VAL',
 },
 {
  entity => {f => q{baz &g;bar}, g => {replace => q{fff}, external => 1}},
  t => q{"foo&f;bar"},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => '0:5:WFC_NO_EXTERNAL_ENTITY_REFERENCES',
 },
 {
  entity => {f => q{baz &g;bar}, g => {unparsed => 1, external => 1}},
  t => q{"foo&f;bar"},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => '0:5:WFC_NO_EXTERNAL_ENTITY_REFERENCES',
 },
 {
  entity => {f => q{baz &f;bar}},
  t => q{"foo&f;bar"},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => '0:5:WFC_NO_RECURSION',
 },
 {
  entity => {f => q{baz &g;bar}, g => q{foo &f;bar}},
  t => q{"foo&f;bar"},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1},
  result => '0:5:WFC_NO_RECURSION',
 },
 {
  entity => {f => {replace => q{baz bar}, externally => 1}},
  t => q{"foo&f;bar"},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<test:standalone> => 1},
  result => '0:5:WFC_ENTITY_DECLARED__INTERNAL',
 },
 {
  entity => {f => {replace => q{baz bar}, externally => 1}},
  t => q{"foo&f;bar"},
  method => 'parse_attribute_value_specification',
  option => {ExpandedURI q<allow-general-entity-reference> => 1,
             ExpandedURI q<use-reference> => 1,
             ExpandedURI q<test:standalone> => 0},
  result => 1,
 },

 {
  t => q{<?xml version="1.0"?> <doc/>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => q{<?xml version="1.1"?> <doc/>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.1"?> \x85 <doc/>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.0"?> \x85 <doc/>},
  method => 'parse_document_entity',
  result => q<0:22:SYNTAX_CDATA_OUTSIDE_DOCUMENT_ELEMENT>,
 },
 {
  t => qq{<?xml version="1.1"?> \x{2028} <doc/>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.0"?> \x{2028} <doc/>},
  method => 'parse_document_entity',
  result => q<0:22:SYNTAX_CDATA_OUTSIDE_DOCUMENT_ELEMENT>,
 },
 {
  t => qq{<?xml version="1.0" \x85 ?>  <doc/>},
  method => 'parse_document_entity',
  result => q<0:0:FATAL_NEW_NL_IN_XML_DECLARATION>,
 },

 {
  t => qq{<?xml version="1.1"?>\x00  <doc/>},
  method => 'parse_document_entity',
  result => q<0:21:SYNTAX_NOT_IN_CHAR>,
 },
 {
  t => qq{<?xml version="1.1"?>\x01  <doc/>},
  method => 'parse_document_entity',
  result => q<0:21:SYNTAX_RESTRICTED_CHAR>,
 },
 {
  t => qq{<?xml version="1.1"?>\x81  <doc/>},
  method => 'parse_document_entity',
  result => q<0:21:SYNTAX_RESTRICTED_CHAR>,
 },
 {
  t => qq{<?xml version="1.0"?>\x01  <doc/>},
  method => 'parse_document_entity',
  result => q<0:21:SYNTAX_NOT_IN_CHAR>,
 },

 {
  t => qq{<e a="&#x0000;"/>},
  method => 'parse_element',
  result => q<0:6:WFC_LEGAL_CHARACTER>,
 },
 {
  t => qq{<e a="&#0000;"/>},
  method => 'parse_element',
  result => q<0:6:WFC_LEGAL_CHARACTER>,
 },
 {
  t => qq{<e>a="&#x0000;"</e>},
  method => 'parse_element',
  result => q<0:6:WFC_LEGAL_CHARACTER>,
 },
 {
  t => qq{<e>a="&#0000;"</e>},
  method => 'parse_element',
  result => q<0:6:WFC_LEGAL_CHARACTER>,
 },
 {
  t => qq{<!ENTITY e "&#x0000;">},
  method => 'parse_entity_declaration',
  result => q<0:12:WFC_LEGAL_CHARACTER>,
 },
 {
  t => qq{<!ENTITY e "&#0000;">},
  method => 'parse_entity_declaration',
  result => q<0:12:WFC_LEGAL_CHARACTER>,
 },

 {
  entity => {f => {replace => q<bar>}},
  t => qq{<!ENTITY e "%f;">},
  method => 'parse_entity_declaration',
  result => 1,
 },
 {
  entity => {f => {replace => q<%bar;>}, bar => {replace => q<bar>}},
  t => qq{<!ENTITY e "%f;">},
  method => 'parse_entity_declaration',
  result => 1,
 },
 {
  entity => {f => {replace => q<%bar;>}, bar => [undef]},
  t => qq{<!ENTITY e "%f;">},
  method => 'parse_entity_declaration',
  result => 1,
 },
 {
  entity => {f => {replace => q<%bar;>}, bar => [undef]},
  t => qq{<!ENTITY e "%f;">},
  method => 'parse_entity_declaration',
  option => {ExpandedURI q<test:standalone> => 1},
  result => 1,
 },
 {
  entity => {f => {replace => q<%bar;>}, bar => {replace => q<>,
                                                 externally => 1}},
  t => qq{<!ENTITY e "%f;">},
  method => 'parse_entity_declaration',
  option => {ExpandedURI q<test:standalone> => 1},
  result => 1,
 },
 {
  entity => {f => {replace => q<%f;>}},
  t => qq{<!ENTITY e "%f;">},
  method => 'parse_entity_declaration',
  option => {ExpandedURI q<test:standalone> => 1},
  result => 1,
 },
 {
  entity => {f => {replace => q<%g;>}, g => {replace => q<%f;>}},
  t => qq{<!ENTITY e "%f;">},
  method => 'parse_entity_declaration',
  option => {ExpandedURI q<test:standalone> => 1},
  result => 1,
 },
 {
  entity => {f => {replace => q<g;>, unparsed => 1}},
  t => qq{<!ENTITY e "%f;">},
  method => 'parse_entity_declaration',
  option => {ExpandedURI q<test:standalone> => 1},
  result => '0:13:WFC_PARSED_ENTITY',
 },

 {
  entity => {g => {replace => q<<!-- comment -->>}},
  t => qq{<!ENTITY e "f"> %g;},
  method => 'parse_doctype_subset',
  result => 1,
 },
 {
  entity => {g => {replace => q<<!-- comment -->>, unparsed => 1}},
  t => qq{<!ENTITY e "f"> %g;},
  method => 'parse_doctype_subset',
  result => '0:17:WFC_PARSED_ENTITY',
 },
 {
  entity => {g => {replace => q<<!-- comment --> %g;>}},
  t => qq{<!ENTITY e "f"> %g;},
  method => 'parse_doctype_subset',
  result => '0:18:WFC_NO_RECURSION',
 },
 {
  entity => {g => {replace => q<<!-- comment --> %h;>}, h => q<<!-- --> %g;>},
  t => qq{<!ENTITY e "f"> %g;},
  method => 'parse_doctype_subset',
  result => '0:10:WFC_NO_RECURSION',
 },
 {
  entity => {g => {replace => q<<!-- comment -->>, externally => 1}},
  t => qq{<!ENTITY e "f"> %g;},
  method => 'parse_doctype_subset',
  result => 1,
 },
 {
  entity => {g => {replace => q<<!-- comment -->>, externally => 1}},
  t => qq{<!ENTITY e "f"> %g;},
  method => 'parse_doctype_subset',
  option => {ExpandedURI q<test:standalone> => 1},
  result => '0:17:WFC_ENTITY_DECLARED__INTERNAL',
 },

 {
  entity => {g => {replace => q<"!-- comment --">}},
  t => qq{<!ENTITY e %g;>},
  method => 'parse_doctype_subset',
  result => 1,
 },
 {
  entity => {g => {replace => q<"!-- comment --">, unparsed => 1}},
  t => qq{<!ENTITY e %g;>},
  method => 'parse_doctype_subset',
  result => '0:12:WFC_PARSED_ENTITY',
 },
 {
  entity => {g => {replace => q<%g;>}},
  t => qq{<!ENTITY e %g;>},
  method => 'parse_doctype_subset',
  result => '0:1:WFC_NO_RECURSION',
 },
 {
  entity => {g => {replace => q<%h;>}, h => q<%g;>},
  t => qq{<!ENTITY e %g;>},
  method => 'parse_doctype_subset',
  result => '0:1:WFC_NO_RECURSION',
 },
 {
  entity => {g => {replace => q<%h;>}, h => q<"%g;">},
  t => qq{<!ENTITY e %g;>},
  method => 'parse_doctype_subset',
  result => '0:2:WFC_NO_RECURSION',
 },
 {
  entity => {g => {replace => q<"!-- comment --">, externally => 1}},
  t => qq{<!ENTITY e %g;>},
  method => 'parse_doctype_subset',
  result => 1,
 },
 {
  entity => {g => {replace => q<"!-- comment --">, externally => 1}},
  t => qq{<!ENTITY e %g;>},
  method => 'parse_doctype_subset',
  option => {ExpandedURI q<test:standalone> => 1,
             ExpandedURI q<allow-param-entref> => 1},
  result => '0:12:WFC_ENTITY_DECLARED__INTERNAL',
 },
 {
  entity => {g => {replace => q<%g>}},
  t => qq{<!ENTITY e %g;>},
  method => 'parse_doctype_subset',
  result => '0:1:WFC_NO_RECURSION',
 },
 {
  entity => {g => {replace => q<%h>}, h => {replace => q<>, unparsed => 1}},
  t => qq{<!ENTITY e %g;>},
  method => 'parse_doctype_subset',
  result => '0:2:SYNTAX_REFC_REQUIRED',
 },

 {
  entity => {g => {replace => q<>}},
  t => qq{<!ENTITY e %g; "text">},
  method => 'parse_doctype_subset',
  result => 1,
 },
 {
  entity => {g => {replace => q<%h;>}, h => {replace => q<>}},
  t => qq{<!ENTITY e %g; "text">},
  method => 'parse_doctype_subset',
  result => 1,
 },
 {
  entity => {g => {replace => q<>}},
  t => qq{%g; <!ENTITY e  "text">},
  method => 'parse_doctype_subset',
  result => 1,
 },
 {
  entity => {g => {replace => q<%h;>}, h => {replace => q<>}},
  t => qq{%g; <!ENTITY e "text">},
  method => 'parse_doctype_subset',
  result => 1,
 },

 {
  t => qq{<ee>aa</ee>},
  method => 'parse_element',
  result => 1,
 },
 {
  t => qq{<ee\x{4E00}>U+4E00</ee\x{4E00}>},
  method => 'parse_element',
  result => 1,
 },
 {
  t => qq{<ee\x{4DFF}>U+4DFF</ee\x{4DFF}>},
  method => 'parse_element',
  result => '0:3:SYNTAX_STAGC_OR_NESTC_REQUIRED',
 },
 {
  t => qq{<?xml version="1.1"?>
          <ee\x{4DFF}>U+4DFF</ee\x{4DFF}>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.0"?>
          <ee>AA\x{4DFF}</ee>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.1"?>
          <ee>AA\x{4DFF}</ee>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.0"?>
          <ee \x{4DFF}="a">AA</ee>},
  method => 'parse_document_entity',
  result => '1:14:SYNTAX_STAGC_OR_NESTC_REQUIRED',
 },
 {
  t => qq{<?xml version="1.1"?>
          <ee \x{4DFF}="a">AA</ee>},
  method => 'parse_document_entity',
  result => 1,
 }, 
 {
  t => qq{<?xml version="1.0"?>
          <ee a\x{4DFF}="a">AA</ee>},
  method => 'parse_document_entity',
  result => '1:15:SYNTAX_VI_REQUIRED',
 },
 {
  t => qq{<?xml version="1.1"?>
          <ee a\x{4DFF}="a">AA</ee>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.0"?>
          <ee \x{4DFF}a="a">AA</ee>},
  method => 'parse_document_entity',
  result => '1:14:SYNTAX_STAGC_OR_NESTC_REQUIRED',
 },
 {
  t => qq{<?xml version="1.1"?>
          <ee \x{4DFF}a="a">AA</ee>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.0"?>
          <!DOCTYPE \x{4DFF}a [
            <!ELEMENT \x{4DFF}a EMPTY>
          ]>
          <\x{4DFF}a/>},
  method => 'parse_document_entity',
  result => '1:20:SYNTAX_DOCTYPE_NAME_REQUIRED',
 },
 {
  t => qq{<?xml version="1.1"?>
          <!DOCTYPE \x{4DFF}a [
            <!ELEMENT \x{4DFF}a EMPTY>
          ]>
          <\x{4DFF}a/>},
  method => 'parse_document_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.0"?>
          <!DOCTYPE \x{4EFF}a [
            <!ELEMENT \x{4EFF}a (\x{4DFF}a)>
          ]>
          <\x{4EFF}a/>},
  method => 'parse_document_entity',
  result => '2:26:SYNTAX_MODEL_GROUP_ITEM_REQUIRED',
 },

 {
  t => qq{<?xml version="1.0" encoding="utf-8"?>
          <!DOCTYPE \x{4EFF}a [
            <!ELEMENT \x{4EFF}a (\x{4DFF}a)>
          ]>
          <\x{4EFF}a/>},
  method => 'parse_external_parsed_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.1" encoding="utf-8"?>
          <!DOCTYPE \x{4EFF}a [
            <!ELEMENT \x{4EFF}a (\x{4DFF}a)>
          ]><!--
          <\x{4EFF}a/>},
  method => 'parse_external_parsed_entity',
  result => 1,
 },
 {
  t => qq{<?xml version="1.1"?>
          <!DOCTYPE \x{4EFF}a [
            <!ELEMENT \x{4EFF}a (\x{4DFF}a)>
          ]><!--
          <\x{4EFF}a/>},
  method => 'parse_external_parsed_entity',
  result => '0:19:SYNTAX_XML_ENCODING_REQUIRED',
 },

 {
  t => q{<e a="b" a="c"/>},
  method => 'parse_element',
  result => '0:9:WFC_UNIQUE_ATT_SPEC',
 },
 {
  t => q{<e ba="b" ba="c"/>},
  method => 'parse_element',
  result => '0:10:WFC_UNIQUE_ATT_SPEC',
 },

 {
  t => q{<e>aa]]>bb</e>},
  method => 'parse_element',
  result => '0:7:SYNTAX_MSE',
 },
);

plan tests => scalar @a;

my $first_error;
my $first_error_detail;
my $parser = new test_parser;
$parser->{error}->{option}->{report} = sub {
  my $err = shift;
  $err->{-object}->set_position ($err->{source}, diff => $err->{position_diff});
  unless ($first_error) {
    $first_error = join ':', $err->{-object}->get_position ($err->{source}),
                          $err->{-type};
    $first_error_detail = $err->stringify;
  }
};
for (@a) {
  $first_error = '';
  $first_error_detail = '';
  my $method = $_->{method};
  pos ($_->{t}) = 0;
  $parser->reset;
  $parser->{ExpandedURI q<test:entity>} = $_->{entity} || {};
  $_->{option} ||= {
    ExpandedURI q<allow-declaration>=>{qw/DOCTYPE 1 ENTITY 1 ELEMENT 1 NOTATION 1 ATTLIST 1 comment 1 section 1/},
    ExpandedURI q<allow-param-entref> => 1,
    ExpandedURI q<use-reference> => 1,
  };
  $parser->{ExpandedURI q<is-standalone>}
    = $_->{option}->{ExpandedURI q<test:standalone>};
  $parser->$method (\$_->{t}, {}, %{$_->{option}});
  ok $first_error || 1, $_->{result}, $first_error_detail;
}

package test_parser;
BEGIN {
  push our @ISA, 'Message::Markup::XML::Parser::Base';
  use Message::Util::QName::General [qw/ExpandedURI/], $main::NS;
}

sub general_entity_reference_in_attribute_value_literal_start ($$$$%) {
  my ($self, $src, $p, $pp, %opt) = @_;
  return if $pp->{ExpandedURI q<entity-opened>};
  for my $reptxt ($self->{ExpandedURI q<test:entity>}
                       ->{${$pp->{ExpandedURI q<entity-name>}}}) {
    if (ref $reptxt eq 'HASH') {
      pos $reptxt->{replace} = 0 if defined $reptxt->{replace};
      push @{$opt{ExpandedURI q<source>}}, \($reptxt->{replace});
      $self->{error}->set_flag
        (\($reptxt->{replace}),
         ExpandedURI q<is-external-entity> => $reptxt->{external});
      $self->{error}->set_flag
        (\($reptxt->{replace}),
         ExpandedURI q<is-unparsed-entity> => $reptxt->{unparsed});
      $self->{error}->set_flag
        (\($reptxt->{replace}),
         ExpandedURI q<is-declared-externally> => $reptxt->{externally});
    } elsif (ref $reptxt) {
      next;
    } elsif (not defined $reptxt) {
      warn "Entity ${$pp->{ExpandedURI q<entity-name>}} not defined";
    } else {
      pos $reptxt = 0;
      push @{$opt{ExpandedURI q<source>}}, \$reptxt;
    }
  }
}
BEGIN {
*general_entity_reference_in_content_start
 = \&general_entity_reference_in_attribute_value_literal_start;
*parameter_entity_reference_in_rpdata_start
 = \&general_entity_reference_in_attribute_value_literal_start;
*parameter_entity_reference_in_subset_start
 = \&general_entity_reference_in_attribute_value_literal_start;
*parameter_entity_reference_in_parameter_start
 = \&general_entity_reference_in_attribute_value_literal_start;
}