/[suikacvs]/markup/html/whatpm/t/XML-Parser.t
Suika

Diff of /markup/html/whatpm/t/XML-Parser.t

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

revision 1.15 by wakaba, Sun Oct 19 08:20:30 2008 UTC revision 1.16 by wakaba, Sun Oct 19 09:25:21 2008 UTC
# Line 120  sub test ($) { Line 120  sub test ($) {
120      my @e;      my @e;
121      for (keys %{$p->{ge}}) {      for (keys %{$p->{ge}}) {
122        my $ent = $p->{ge}->{$_};        my $ent = $p->{ge}->{$_};
123        my $v = '<!ENTITY ' . $ent->{name} . ' "';        my $v = '<!ENTITY ' . $ent->{name} . ' "';
124        $v .= $ent->{value} if defined $ent->{value};        $v .= $ent->{value} if defined $ent->{value};
125        $v .= '" "';        $v .= '" "';
126        $v .= $ent->{pubid} if defined $ent->{pubid};        $v .= $ent->{pubid} if defined $ent->{pubid};
# Line 173  my @FILES = grep {$_} split /\s+/, qq[ Line 173  my @FILES = grep {$_} split /\s+/, qq[
173    ${test_dir_name}entities-1.dat    ${test_dir_name}entities-1.dat
174    ${test_dir_name}entities-2.dat    ${test_dir_name}entities-2.dat
175    ${test_dir_name}notations-1.dat    ${test_dir_name}notations-1.dat
176      ${test_dir_name}entrefs-1.dat
177  ];  ];
178    
179  require 't/testfiles.pl';  require 't/testfiles.pl';
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24