/[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.16 by wakaba, Mon Jul 16 07:48:19 2007 UTC revision 1.18 by wakaba, Sat Jul 21 05:36:50 2007 UTC
# Line 113  for my $file_name (grep {$_} split /\s+/ Line 113  for my $file_name (grep {$_} split /\s+/
113        };        };
114                
115        $p->_initialize_tokenizer;        $p->_initialize_tokenizer;
116        $p->{content_model_flag} = $cm;        $p->{content_model} = {
117            CDATA => Whatpm::HTML::CDATA_CONTENT_MODEL (),
118            RCDATA => Whatpm::HTML::RCDATA_CONTENT_MODEL (),
119            PCDATA => Whatpm::HTML::PCDATA_CONTENT_MODEL (),
120            PLAINTEXT => Whatpm::HTML::PLAINTEXT_CONTENT_MODEL (),
121          }->{$cm};
122        $p->{last_emitted_start_tag_name} = $last_start_tag;        $p->{last_emitted_start_tag_name} = $last_start_tag;
123    
124        while (1) {        while (1) {
# Line 151  for my $file_name (grep {$_} split /\s+/ Line 156  for my $file_name (grep {$_} split /\s+/
156        my $expected_dump = Dumper ($test->{output});        my $expected_dump = Dumper ($test->{output});
157        my $parser_dump = Dumper (\@token);        my $parser_dump = Dumper (\@token);
158        ok $parser_dump, $expected_dump,        ok $parser_dump, $expected_dump,
159          $test->{description} . ': ' . $test->{input};          $test->{description} . ': ' . Data::Dumper::qquote ($test->{input});
160      }      }
161    }    }
162  }  }
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.18
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24