t/table2-table_ld.t

   1 # This might look like shell script, but it's actually -*- perl -*-
   2 # Test the 3 possible look_down calls to table2()
   3 #   a = default
   4 #   b = supplied array ref
   5 #   c = supplied code ref
   6
   7 use strict;
   8 use lib qw(t/ t/m/);
   9
  10
  11 use File::Slurp;
  12 use Test::More;
  13
  14 use HTML::TreeBuilder;
  15 use HTML::Element::Library;
  16 use Test::XML;
  17
  18 use data::table2;
  19
  20
  21 my $o    = data::table2->new;
  22
  23 # a - default table_ld
  24
  25 my $root = 't/html/table2';
  26 my $tree = HTML::TreeBuilder->new_from_file("$root.html");
  27
  28
  29 my $table = HTML::Element::Library::ref_or_ld(
  30   $tree,
  31   ['_tag' => 'table']
  32  );
  33
  34 is_xml ($table->as_XML, scalar File::Slurp::read_file("$root-table_ld.exp"), $root);
  35
  36 # b - arrayref table_ld
  37
  38 $tree = HTML::TreeBuilder->new_from_file("$root.html");
  39
  40
  41 $table = HTML::Element::Library::ref_or_ld(
  42   $tree,
  43   [frame => 'hsides', rules => 'groups']
  44  );
  45
  46 is_xml ($table->as_XML, scalar File::Slurp::read_file("$root-table_ld.exp"), $root);
  47
  48 # c - coderef table_ld
  49
  50 $tree = HTML::TreeBuilder->new_from_file("$root.html");
  51
  52
  53 $table = HTML::Element::Library::ref_or_ld(
  54   $tree,
  55   sub {
  56     my ($t) = @_;
  57     my $caption = $t->look_down('_tag' => 'caption');
  58     $caption->parent;
  59   }
  60  );
  61
  62 is_xml ($table->as_XML, scalar File::Slurp::read_file("$root-table_ld.exp"), $root);
  63
  64
  65 done_testing;