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 qw(no_plan);
  13
  14 use TestUtils;
  15 use HTML::TreeBuilder;
  16 use HTML::Element::Library;
  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-table_ld-default';
  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 my $generated_html = ptree($table, "$root.gen");
  35
  36 is ($generated_html, File::Slurp::read_file("$root.exp"), $root);
  37
  38 # b - arrayref table_ld
  39
  40 $root = 't/html/table2-table_ld-arrayref';
  41 $tree = HTML::TreeBuilder->new_from_file("$root.html");
  42
  43
  44 $table = HTML::Element::Library::ref_or_ld(
  45   $tree,
  46   [frame => 'hsides', rules => 'groups']
  47  );
  48
  49 $generated_html = ptree($table, "$root.gen");
  50
  51 is ($generated_html, File::Slurp::read_file("$root.exp"), $root);
  52
  53 # c - coderef table_ld
  54
  55 $root = 't/html/table2-table_ld-coderef';
  56 $tree = HTML::TreeBuilder->new_from_file("$root.html");
  57
  58
  59 $table = HTML::Element::Library::ref_or_ld(
  60   $tree,
  61   sub {
  62     my ($t) = @_;
  63     my $caption = $t->look_down('_tag' => 'caption');
  64     $caption->parent;
  65   }
  66  );
  67
  68 $generated_html = ptree($table, "$root.gen");
  69
  70 is ($generated_html, File::Slurp::read_file("$root.exp"), $root);
  71