/[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.8 by wakaba, Sun May 20 11:12:25 2007 UTC revision 1.13 by wakaba, Sat Jun 23 06:38:12 2007 UTC
# Line 20  BEGIN { Line 20  BEGIN {
20  }  }
21    
22  use Test;  use Test;
23  BEGIN { plan tests => 458 }  BEGIN { plan tests => 472 }
24    
25  use Data::Dumper;  use Data::Dumper;
26  $Data::Dumper::Useqq = 1;  $Data::Dumper::Useqq = 1;
# Line 31  sub Data::Dumper::qquote { Line 31  sub Data::Dumper::qquote {
31  } # Data::Dumper::qquote  } # Data::Dumper::qquote
32    
33  for my $file_name (grep {$_} split /\s+/, qq[  for my $file_name (grep {$_} split /\s+/, qq[
34                          ${test_dir_name}tokenizer-test-2.dat
35                        ${dir_name}tests1.dat                        ${dir_name}tests1.dat
36                        ${dir_name}tests2.dat                        ${dir_name}tests2.dat
37                        ${dir_name}tests3.dat                        ${dir_name}tests3.dat
38                        ${dir_name}tests4.dat                        ${dir_name}tests4.dat
39                          ${dir_name}tests5.dat
40                          ${dir_name}tests6.dat
41                        ${test_dir_name}tree-test-1.dat                        ${test_dir_name}tree-test-1.dat
42                       ]) {                       ]) {
43    open my $file, '<', $file_name    open my $file, '<', $file_name
44      or die "$0: $file_name: $!";      or die "$0: $file_name: $!";
45      print "# $file_name\n";
46    
47    my $test;    my $test;
48    my $mode = 'data';    my $mode = 'data';
49      my $escaped;
50    while (<$file>) {    while (<$file>) {
51      s/\x0D\x0A/\x0A/;      s/\x0D\x0A/\x0A/;
52      if (/^#data$/) {      if (/^#data$/) {
53        undef $test;        undef $test;
54        $test->{data} = '';        $test->{data} = '';
55        $mode = 'data';        $mode = 'data';
56          undef $escaped;
57        } elsif (/^#data escaped$/) {
58          undef $test;
59          $test->{data} = '';
60          $mode = 'data';
61          $escaped = 1;
62      } elsif (/^#errors$/) {      } elsif (/^#errors$/) {
63        $test->{errors} = [];        $test->{errors} = [];
64        $mode = 'errors';        $mode = 'errors';
65        $test->{data} =~ s/\x0D?\x0A\z//;              $test->{data} =~ s/\x0D?\x0A\z//;      
66          $test->{data} =~ s/\\u([0-9A-Fa-f]{4})/chr hex $1/ge if $escaped;
67          undef $escaped;
68      } elsif (/^#document$/) {      } elsif (/^#document$/) {
69        $test->{document} = '';        $test->{document} = '';
70        $mode = 'document';        $mode = 'document';
71          undef $escaped;
72        } elsif (/^#document escaped$/) {
73          $test->{document} = '';
74          $mode = 'document';
75          $escaped = 1;
76      } elsif (/^#document-fragment (\S+)$/) {      } elsif (/^#document-fragment (\S+)$/) {
77        $test->{document} = '';        $test->{document} = '';
78        $mode = 'document';        $mode = 'document';
79        $test->{element} = $1;        $test->{element} = $1;
80          undef $escaped;
81        } elsif (/^#document-fragment (\S+) escaped$/) {
82          $test->{document} = '';
83          $mode = 'document';
84          $test->{element} = $1;
85          $escaped = 1;
86      } elsif (defined $test->{document} and /^$/) {      } elsif (defined $test->{document} and /^$/) {
87          $test->{document} =~ s/\\u([0-9A-Fa-f]{4})/chr hex $1/ge if $escaped;
88        test ($test);        test ($test);
89        undef $test;        undef $test;
90      } else {      } else {
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.13
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24