/[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.3 by wakaba, Tue May 1 07:46:42 2007 UTC revision 1.4 by wakaba, Tue May 1 10:47:37 2007 UTC
# Line 70  for my $file_name (grep {$_} split /\s+/ Line 70  for my $file_name (grep {$_} split /\s+/
70    test ($test) if $test->{errors};    test ($test) if $test->{errors};
71  }  }
72    
73  use What::HTML;  use Whatpm::HTML;
74  use What::NanoDOM;  use Whatpm::NanoDOM;
75    
76  sub test ($) {  sub test ($) {
77    my $test = shift;    my $test = shift;
78    
79    my $doc = What::NanoDOM::Document->new;    my $doc = Whatpm::NanoDOM::Document->new;
80    my @errors;    my @errors;
81        
82    $SIG{INT} = sub {    $SIG{INT} = sub {
# Line 84  sub test ($) { Line 84  sub test ($) {
84      exit;      exit;
85    };    };
86    
87    What::HTML->parse_string    Whatpm::HTML->parse_string
88        ($test->{data} => $doc, sub {        ($test->{data} => $doc, sub {
89           my $msg = shift;           my $msg = shift;
90           push @errors, $msg;           push @errors, $msg;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24