t/table2-tr_ld.t

   1 #!/usr/bin/perl
   2 use t::lib tests => 3;
   3
   4 # a - default table_ld
   5
   6 my $tree = mktree 't/html/table2.html';
   7
   8 my @tr = HTML::Element::Library::ref_or_ld(
   9         $tree,
  10         ['_tag' => 'tr']
  11 );
  12
  13 is (scalar @tr, 16, 'table2 tr look_down (default)');
  14
  15 # b - arrayref tr_ld
  16
  17 $tree = mktree 't/html/table2-tr_ld-arrayref.html';
  18
  19 my $tr = HTML::Element::Library::ref_or_ld(
  20         $tree,
  21         [class => 'findMe']
  22 );
  23
  24 isxml $tr, 't/html/table2-tr_ld-arrayref.exp', 'table2 tr look_down (arrayref)';
  25
  26 # c - coderef tr_ld
  27 # removes windows listings before returning @tr
  28
  29 $tree = mktree 't/html/table2.html';
  30
  31 @tr = HTML::Element::Library::ref_or_ld(
  32         $tree,
  33         sub {
  34                 my ($t) = @_;
  35                 my @tr = $t->look_down('_tag' => 'tr');
  36                 my @keep;
  37                 for my $tr (@tr) {
  38
  39                         my @td = $tr->look_down ('_tag' => 'td') ;
  40                         my $detached;
  41                         for my $td (@td) {
  42                                 if (grep { $_ =~ /Windows/ } $td->content_list) {
  43                                         $tr->detach;
  44                                         ++$detached;
  45                                         last;
  46                                 }
  47                         }
  48                         push @keep, $tr unless $detached;
  49                 }
  50                 @keep;
  51         }
  52 );
  53
  54 isxml $tree, 't/html/table2-tr_ld-coderef.exp', 'table2 tr look_down (coderef)';