Refactor tests (first pass)

[html-element-library.git] / t / table-alt.t

diff --git a/t/table-alt.t b/t/table-alt.t
index 9b840795926c9b41b9c69ccfed5feae41ec2d199..f759da4dc9a3ef00f68be584eb95c67f9d5ea81e 100644 (file)
--- a/t/table-alt.t
+++ b/t/table-alt.t
@@ -1,54 +1,22 @@
-# This might look like shell script, but it's actually -*- perl -*-
-use strict;
-use lib qw(t/ t/m/);
-
-
-use File::Slurp;
-use Test::More qw(no_plan);
-
-use HTML::TreeBuilder;
-use HTML::Element::Library;
-use Test::XML;
-
+#!/usr/bin/perl
+use t::lib tests => 1;
+use lib 't';
 use SimpleClass;
 
-my $root = 't/html/table-alt';
 my $o    = SimpleClass->new;
-my $tree = HTML::TreeBuilder->new_from_file("$root.html");
-
-
-$tree->table
- (
-    # tell seamstress where to find the table, via the method call
-    # ->look_down('id', $gi_table). Seamstress detaches the table from the
-    # HTML tree automatically if no table rows can be built
- 
-      gi_table    => 'load_data',
- 
-    # tell seamstress where to find the tr. This is a bit useless as
-    # the <tr> usually can be found as the first child of the parent
- 
-      gi_tr       => ['iterate1', 'iterate2'],
-      
-    # the model data to be pushed into the table
- 
-      table_data  => $o->load_data,
- 
-    # the way to take the model data and obtain one row
-    # if the table data were a hashref, we would do:
-    # my $key = (keys %$data)[0]; my $val = $data->{$key}; delete $data->{$key}
- 
-      tr_data     => sub { my ($self, $data) = @_;
-                          shift(@{$data}) ;
-                        },
- 
-    # the way to take a row of data and fill the <td> tags
- 
-      td_data     => sub { my ($tr_node, $tr_data) = @_;
-                          $tr_node->content_handler($_ => $tr_data->{$_})
-                            for qw(name age weight) }
- 
-   );
-
-  is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root.exp"), 
-      "HTML for non-alternating table");
+my $tree = mktree 't/html/table-alt.html';
+
+$tree->table(
+       gi_table    => 'load_data',
+       gi_tr       => ['iterate1', 'iterate2'],
+       table_data  => $o->load_data,
+       tr_data     => sub {
+               my ($self, $data) = @_;
+               shift @{$data};
+       },
+       td_data     => sub {
+               my ($tr_node, $tr_data) = @_;
+               $tr_node->content_handler($_ => $tr_data->{$_}) for qw(name age weight)
+       });
+
+isxml $tree, 't/html/table-alt.exp', 'table (alternating)';