]> iEval git - html-element-library.git/blobdiff - t/table-alt.t
Refactor tests (second pass)
[html-element-library.git] / t / table-alt.t
diff --git a/t/table-alt.t b/t/table-alt.t
deleted file mode 100644 (file)
index f759da4..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-use t::lib tests => 1;
-use lib 't';
-use SimpleClass;
-
-my $o    = SimpleClass->new;
-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)';
This page took 0.022353 seconds and 4 git commands to generate.