/[suikacvs]/markup/html/whatpm/t/HTML-tree.t
Suika

Diff of /markup/html/whatpm/t/HTML-tree.t

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

revision 1.15 by wakaba, Sat Jun 30 13:12:33 2007 UTC revision 1.20 by wakaba, Mon Jul 16 07:48:19 2007 UTC
# Line 20  BEGIN { Line 20  BEGIN {
20  }  }
21    
22  use Test;  use Test;
23  BEGIN { plan tests => 620 }  BEGIN { plan tests => 774 }
24    
25  use Data::Dumper;  use Data::Dumper;
26  $Data::Dumper::Useqq = 1;  $Data::Dumper::Useqq = 1;
# Line 74  for my $file_name (grep {$_} split /\s+/ Line 74  for my $file_name (grep {$_} split /\s+/
74        $test->{document} = '';        $test->{document} = '';
75        $mode = 'document';        $mode = 'document';
76        $escaped = 1;        $escaped = 1;
77        } elsif (/^#document-fragment$/) {
78          $test->{element} = '';
79          $mode = 'element';
80          undef $escaped;
81      } elsif (/^#document-fragment (\S+)$/) {      } elsif (/^#document-fragment (\S+)$/) {
82        $test->{document} = '';        $test->{document} = '';
83        $mode = 'document';        $mode = 'document';
# Line 91  for my $file_name (grep {$_} split /\s+/ Line 95  for my $file_name (grep {$_} split /\s+/
95      } else {      } else {
96        if ($mode eq 'data' or $mode eq 'document') {        if ($mode eq 'data' or $mode eq 'document') {
97          $test->{$mode} .= $_;          $test->{$mode} .= $_;
98          } elsif ($mode eq 'element') {
99            tr/\x0D\x0A//d;
100            $test->{$mode} .= $_;
101        } elsif ($mode eq 'errors') {        } elsif ($mode eq 'errors') {
102          tr/\x0D\x0A//d;          tr/\x0D\x0A//d;
103          push @{$test->{errors}}, $_;          push @{$test->{errors}}, $_;
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.20
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24