Refactor tests (second pass)

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

diff --git a/t/highlander2.t b/t/highlander2.t
deleted file mode 100644 (file)
index dd8252d..0000000
--- a/t/highlander2.t
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl
-use t::lib tests => 3;
-
-sub replace_age {
-       my ($branch, $age) = @_;
-       $branch->look_down(id => 'age')->replace_content($age);
-}
-
-sub test {
-       my $age = shift;
-       my $tree = mktree 't/html/highlander2.html';
-       my $if_then = $tree->look_down(id => 'age_dialog')->highlander2(
-               cond => [
-                       under10 => [
-                               sub { $_[0] < 10 },
-                               \&replace_age
-                       ],
-                       under18 => [
-                               sub { $_[0] < 18 },
-                               \&replace_age
-                       ],
-                       welcome => [
-                               sub { 1 },
-                               \&replace_age
-                       ]
-               ],
-               cond_arg => [ $age ]
-       );
-
-       local $_; # XML::Parser does not like read-only $_ (RT #101129)
-       isxml ($tree, "t/html/highlander2-$age.exp", "highlander2 for age $age");
-}
-
-test $_ for qw(5 15 27);