/[suikacvs]/messaging/manakai/t/markup-xml-parser-base.t
Suika

Diff of /messaging/manakai/t/markup-xml-parser-base.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.11 by wakaba, Tue Jun 22 07:36:20 2004 UTC revision 1.1.2.12 by wakaba, Sun Jul 4 07:05:54 2004 UTC
# Line 10  BEGIN { Line 10  BEGIN {
10     (DEFAULT_PFX) => Message::Markup::XML::Parser::Base::URI_CONFIG,     (DEFAULT_PFX) => Message::Markup::XML::Parser::Base::URI_CONFIG,
11     tree => q<http://suika.fam.cx/~wakaba/-temp/2004/2/22/Parser/TreeConstruct/>,     tree => q<http://suika.fam.cx/~wakaba/-temp/2004/2/22/Parser/TreeConstruct/>,
12     test => q<mid:t.markup-xml-parser-base.t+2004.5.20@manakai.suika.fam.cx#>,     test => q<mid:t.markup-xml-parser-base.t+2004.5.20@manakai.suika.fam.cx#>,
13       Content => q<urn:x-suika-fam-cx:msgpm:header:mail:rfc822:content>,
14    };    };
15  }  }
16  use Message::Util::QName::General [qw/ExpandedURI/], our $NS;  use Message::Util::QName::General [qw/ExpandedURI/], our $NS;
# Line 2743  comment --> Line 2744  comment -->
2744    t => qq{<!ENTITY e "%f;">},    t => qq{<!ENTITY e "%f;">},
2745    method => 'parse_entity_declaration',    method => 'parse_entity_declaration',
2746    option => {ExpandedURI q<test:standalone> => 1},    option => {ExpandedURI q<test:standalone> => 1},
2747    result => '0:1:WFC_ENTITY_DECLARED',    result => 1,
2748   },   },
2749   {   {
2750    entity => {f => {replace => q<%bar;>}, bar => {replace => q<>,    entity => {f => {replace => q<%bar;>}, bar => {replace => q<>,
# Line 2751  comment --> Line 2752  comment -->
2752    t => qq{<!ENTITY e "%f;">},    t => qq{<!ENTITY e "%f;">},
2753    method => 'parse_entity_declaration',    method => 'parse_entity_declaration',
2754    option => {ExpandedURI q<test:standalone> => 1},    option => {ExpandedURI q<test:standalone> => 1},
2755    result => '0:1:WFC_ENTITY_DECLARED__INTERNAL',    result => 1,
2756   },   },
2757   {   {
2758    entity => {f => {replace => q<%f;>}},    entity => {f => {replace => q<%f;>}},
2759    t => qq{<!ENTITY e "%f;">},    t => qq{<!ENTITY e "%f;">},
2760    method => 'parse_entity_declaration',    method => 'parse_entity_declaration',
2761    option => {ExpandedURI q<test:standalone> => 1},    option => {ExpandedURI q<test:standalone> => 1},
2762    result => '0:1:WFC_NO_RECURSION',    result => 1,
2763   },   },
2764   {   {
2765    entity => {f => {replace => q<%g;>}, g => {replace => q<%f;>}},    entity => {f => {replace => q<%g;>}, g => {replace => q<%f;>}},
2766    t => qq{<!ENTITY e "%f;">},    t => qq{<!ENTITY e "%f;">},
2767    method => 'parse_entity_declaration',    method => 'parse_entity_declaration',
2768    option => {ExpandedURI q<test:standalone> => 1},    option => {ExpandedURI q<test:standalone> => 1},
2769    result => '0:1:WFC_NO_RECURSION',    result => 1,
2770   },   },
2771   {   {
2772    entity => {f => {replace => q<g;>, unparsed => 1}},    entity => {f => {replace => q<g;>, unparsed => 1}},
# Line 3085  sub general_entity_reference_in_attribut Line 3086  sub general_entity_reference_in_attribut
3086        pos $reptxt->{replace} = 0 if defined $reptxt->{replace};        pos $reptxt->{replace} = 0 if defined $reptxt->{replace};
3087        push @{$opt{ExpandedURI q<source>}}, \($reptxt->{replace});        push @{$opt{ExpandedURI q<source>}}, \($reptxt->{replace});
3088        $self->{error}->set_flag        $self->{error}->set_flag
3089          ((\$reptxt->{replace}),          (\($reptxt->{replace}),
3090           ExpandedURI q<is-external-entity> => $reptxt->{external});           ExpandedURI q<is-external-entity> => $reptxt->{external});
3091        $self->{error}->set_flag        $self->{error}->set_flag
3092          ((\$reptxt->{replace}),          (\($reptxt->{replace}),
3093           ExpandedURI q<is-unparsed-entity> => $reptxt->{unparsed});           ExpandedURI q<is-unparsed-entity> => $reptxt->{unparsed});
3094        $self->{error}->set_flag        $self->{error}->set_flag
3095          ((\$reptxt->{replace}),          (\($reptxt->{replace}),
3096           ExpandedURI q<is-declared-externally> => $reptxt->{externally});           ExpandedURI q<is-declared-externally> => $reptxt->{externally});
3097      } elsif (ref $reptxt) {      } elsif (ref $reptxt) {
3098        next;        next;
Legend:
Removed from v.1.1.2.11  
changed lines
  Added in v.1.1.2.12
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24