/[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.4 by wakaba, Tue Oct 14 11:46:57 2008 UTC revision 1.5 by wakaba, Tue Oct 14 14:38:59 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 100  sub test ($) { Line 103  sub test ($) {
103    
104  my @FILES = grep {$_} split /\s+/, qq[  my @FILES = grep {$_} split /\s+/, qq[
105    ${test_dir_name}elements-1.dat    ${test_dir_name}elements-1.dat
   ${test_dir_name}cdata-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}tree-1.dat    ${test_dir_name}tree-1.dat
110    ${test_dir_name}ns-attrs-1.dat    ${test_dir_name}ns-attrs-1.dat
111    ${test_dir_name}doctypes-1.dat    ${test_dir_name}doctypes-1.dat
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24