/[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.2 by wakaba, Mon Apr 30 11:45:24 2007 UTC revision 1.3 by wakaba, Mon Apr 30 14:12:02 2007 UTC
# Line 3  use strict; Line 3  use strict;
3    
4  my $dir_name;  my $dir_name;
5  BEGIN {  BEGIN {
6      my $test_dir_name = 't/';
7    $dir_name = 't/tokenizer/';    $dir_name = 't/tokenizer/';
8    my $skip = "You don't have JSON module";    my $skip = "You don't have JSON module";
9    eval q{    eval q{
10           use JSON 1.00;           use JSON 1.00;
11           $skip = "You don't have make command";           $skip = "You don't have make command";
12           system ('cd $dir_name; cd ..; make tokenizer-files') == 0 or die           system ("cd $test_dir_name; make tokenizer-files") == 0 or die
13             unless -f $dir_name.'test1.test';             unless -f $dir_name.'test1.test';
14           $skip = '';           $skip = '';
15          };          };
# Line 22  BEGIN { Line 23  BEGIN {
23  }  }
24    
25  use Test;  use Test;
26  BEGIN { plan tests => 38 }  BEGIN { plan tests => 67 }
27    
28  use Data::Dumper;  use Data::Dumper;
29  $Data::Dumper::Useqq = 1;  $Data::Dumper::Useqq = 1;
# Line 33  sub Data::Dumper::qquote { Line 34  sub Data::Dumper::qquote {
34  } # Data::Dumper::qquote  } # Data::Dumper::qquote
35    
36  use What::HTML;  use What::HTML;
 use Encode;  
37    
38  for my $file_name (qw[  for my $file_name (qw[
39                        test1.test                        test1.test
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24