Refactor tests (second pass)

[html-element-library.git] / t / unroll_select.t

diff --git a/t/unroll_select.t b/t/unroll_select.t
deleted file mode 100644 (file)
index d29870a..0000000
--- a/t/unroll_select.t
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl
-use t::lib tests => 1;
-use lib 't';
-
-use SelectData;
-
-my $tree = mktree 't/html/unroll_select.html';
-
-$tree->unroll_select(
-       select_label     => 'clan_list',
-       option_value     => sub { my $row = shift; $row->{clan_id} },
-       option_content   => sub { my $row = shift; $row->{clan_name} },
-       option_selected  => sub { my $row = shift; $row->{selected} },
-       data             => SelectData->load_data,
-       data_iter        => sub { my $data = shift; shift @$data });
-
-isxml ($tree, 't/html/unroll_select.exp', 'unroll_select');