Refactor tests (first pass)

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

diff --git a/t/highlander.t b/t/highlander.t
index 061cc5f4dcbdbfb85f1708d1bdb3d7aa7413e2a0..c2249880445f17890d1fb18970a4d3b0da0f1f07 100644 (file)
--- a/t/highlander.t
+++ b/t/highlander.t
@@ -1,36 +1,21 @@
-# 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 TestUtils;
-use HTML::TreeBuilder;
-use HTML::Element::Library;
-
-
-sub tage {
-  my $age = shift;
-  my $tree = HTML::TreeBuilder->new_from_file('t/html/highlander.html');
-
-
-  $tree->highlander
-    (age_dialog =>
-     [
-      under10 => sub { $_[0] < 10} , 
-      under18 => sub { $_[0] < 18} ,
-      welcome => sub { 1 }
-     ],
-     $age
-    );
-
-  my $root = "t/html/highlander-$age";
-
-  my $generated_html = ptree($tree, "$root.gen");
-
-  is ($generated_html, File::Slurp::read_file("$root.exp"), "HTML for $age");
+#!/usr/bin/perl
+use t::lib tests => 3;
+
+sub test {
+       my $age = shift;
+       my $tree = mktree 't/html/highlander.html';
+
+       $tree->highlander(
+               age_dialog => [
+                       under10 => sub { $_[0] < 10 },
+                       under18 => sub { $_[0] < 18 },
+                       welcome => sub { 1 }
+               ],
+               $age
+       );
+
+       local $_; # XML::Parser does not like read-only $_ (RT #101129)
+       isxml $tree, "t/html/highlander-$age.exp", "highlander for $age";
 }
 
-
-tage($_) for qw(5 15 50);
+test $_ for qw(5 15 50);