/[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.3 by wakaba, Tue Oct 14 10:36:33 2008 UTC revision 1.6 by wakaba, Tue Oct 14 15:25:50 2008 UTC
# Line 88  sub test ($) { Line 88  sub test ($) {
88    }    }
89        
90    warn "No #errors section ($test->{data}->[0])" unless $test->{errors};    warn "No #errors section ($test->{data}->[0])" unless $test->{errors};
91    
92      @errors = sort {$a cmp $b} @errors;
93      @{$test->{errors}->[0]} = sort {$a cmp $b} @{$test->{errors}->[0] ||= []};
94        
95    ok join ("\n", @errors), join ("\n", @{$test->{errors}->[0] or []}),    ok join ("\n", @errors), join ("\n", @{$test->{errors}->[0] or []}),
96      'Parse error: ' . Data::Dumper::qquote ($test->{data}->[0]) . '; ' .      'Parse error: ' . Data::Dumper::qquote ($test->{data}->[0]) . '; ' .
# Line 99  sub test ($) { Line 102  sub test ($) {
102  } # test  } # test
103    
104  my @FILES = grep {$_} split /\s+/, qq[  my @FILES = grep {$_} split /\s+/, qq[
105    ${test_dir_name}cdata-1.dat    ${test_dir_name}elements-1.dat
106    ${test_dir_name}attrs-1.dat    ${test_dir_name}attrs-1.dat
107      ${test_dir_name}texts-1.dat
108      ${test_dir_name}cdata-1.dat
109      ${test_dir_name}charref-1.dat
110    ${test_dir_name}tree-1.dat    ${test_dir_name}tree-1.dat
111    ${test_dir_name}ns-attrs-1.dat    ${test_dir_name}ns-attrs-1.dat
112      ${test_dir_name}doctypes-1.dat
113  ];  ];
114    
115  require 't/testfiles.pl';  require 't/testfiles.pl';
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24