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

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

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

revision 1.28 by wakaba, Mon Mar 3 11:56:18 2008 UTC revision 1.31 by wakaba, Sat Mar 8 04:13:10 2008 UTC
# Line 26  BEGIN { Line 26  BEGIN {
26  }  }
27    
28  use Test;  use Test;
29  BEGIN { plan tests => 471 }  BEGIN { plan tests => 472 }
30    
31  use Data::Dumper;  use Data::Dumper;
32  $Data::Dumper::Useqq = 1;  $Data::Dumper::Useqq = 1;
# Line 37  sub Data::Dumper::qquote { Line 37  sub Data::Dumper::qquote {
37  } # Data::Dumper::qquote  } # Data::Dumper::qquote
38    
39  if ($DEBUG) {  if ($DEBUG) {
40    my $not_found = {%$Whatpm::HTML::Debug::cp};    my $not_found = {%{$Whatpm::HTML::Debug::cp or {}}};
41    
42    $Whatpm::HTML::Debug::cp_pass = sub {    $Whatpm::HTML::Debug::cp_pass = sub {
43      my $id = shift;      my $id = shift;
# Line 45  if ($DEBUG) { Line 45  if ($DEBUG) {
45    };    };
46    
47    END {    END {
48      for my $id (sort {$a <=> $b || $a cmp $b} keys %$not_found) {      for my $id (sort {$a <=> $b || $a cmp $b} grep {!/^[ti]/}
49                    keys %$not_found) {
50        print "# checkpoint $id is not reached\n";        print "# checkpoint $id is not reached\n";
51      }      }
52    }    }
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.31
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24