/[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.1 by wakaba, Tue Oct 14 09:00: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 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}tree-1.dat    ${test_dir_name}elements-1.dat
106                       ];    ${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
110      ${test_dir_name}ns-attrs-1.dat
111      ${test_dir_name}doctypes-1.dat
112    ];
113    
114  require 't/testfiles.pl';  require 't/testfiles.pl';
115  execute_test ($_, {  execute_test ($_, {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24