/[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.3 by wakaba, Mon Apr 30 14:12:02 2007 UTC revision 1.7 by wakaba, Sun May 20 11:12:25 2007 UTC
# Line 2  Line 2 
2  use strict;  use strict;
3    
4  my $dir_name;  my $dir_name;
5    my $test_dir_name;
6  BEGIN {  BEGIN {
7    my $test_dir_name = 't/';    $test_dir_name = 't/';
8    $dir_name = 't/tokenizer/';    $dir_name = 't/tokenizer/';
9    my $skip = "You don't have JSON module";    my $skip = "You don't have JSON module";
10    eval q{    eval q{
# Line 23  BEGIN { Line 24  BEGIN {
24  }  }
25    
26  use Test;  use Test;
27  BEGIN { plan tests => 67 }  BEGIN { plan tests => 94 }
28    
29  use Data::Dumper;  use Data::Dumper;
30  $Data::Dumper::Useqq = 1;  $Data::Dumper::Useqq = 1;
# Line 33  sub Data::Dumper::qquote { Line 34  sub Data::Dumper::qquote {
34    return q<qq'> . $s . q<'>;    return q<qq'> . $s . q<'>;
35  } # Data::Dumper::qquote  } # Data::Dumper::qquote
36    
37  use What::HTML;  use Whatpm::HTML;
38    
39  for my $file_name (qw[  for my $file_name (grep {$_} split /\s+/, qq[
40                        test1.test                        ${dir_name}test1.test
41                        test2.test                        ${dir_name}test2.test
42                        contentModelFlags.test                        ${dir_name}contentModelFlags.test
43                          ${test_dir_name}tokenizer-test-1.test
44                       ]) {                       ]) {
45    open my $file, '<', $dir_name.$file_name    open my $file, '<', $file_name
46      or die "$0: $dir_name$file_name: $!";      or die "$0: $file_name: $!";
47    local $/ = undef;    local $/ = undef;
48    my $js = <$file>;    my $js = <$file>;
49    close $file;    close $file;
# Line 66  for my $file_name (qw[ Line 68  for my $file_name (qw[
68      my @cm = @{$test->{contentModelFlags} || ['PCDATA']};      my @cm = @{$test->{contentModelFlags} || ['PCDATA']};
69      my $last_start_tag = $test->{lastStartTag};      my $last_start_tag = $test->{lastStartTag};
70      for my $cm (@cm) {      for my $cm (@cm) {
71        my $p = What::HTML->new;        my $p = Whatpm::HTML->new;
72        my $i = 0;        my $i = 0;
73        $p->{set_next_input_character} = sub {        $p->{set_next_input_character} = sub {
74          my $self = shift;          my $self = shift;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24