From 8dfa206ca07293a94d983f1c02418ae574953f7d Mon Sep 17 00:00:00 2001 From: tbrannon Date: Fri, 9 Jan 2009 16:05:25 -0500 Subject: [PATCH] passover method implemented and documented --- .gitignore | 6 ++++++ t/html/highlander2-passover.exp | 6 ++++++ t/html/highlander2-passover.gen | 6 ++++++ t/passover.t | 35 +++++++++++++++++++++++++++++++++ 4 files changed, 53 insertions(+) create mode 100644 .gitignore create mode 100644 t/html/highlander2-passover.exp create mode 100644 t/html/highlander2-passover.gen create mode 100644 t/passover.t diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..97d1cf6 --- /dev/null +++ b/.gitignore @@ -0,0 +1,6 @@ +*~ +.#* +\#*\# +blib/* +pm_to_blib +Makefile \ No newline at end of file diff --git a/t/html/highlander2-passover.exp b/t/html/highlander2-passover.exp new file mode 100644 index 0000000..8de5305 --- /dev/null +++ b/t/html/highlander2-passover.exp @@ -0,0 +1,6 @@ + + + Sorry, + you're only AGE (and too dumb to lie about your + age) + diff --git a/t/html/highlander2-passover.gen b/t/html/highlander2-passover.gen new file mode 100644 index 0000000..8de5305 --- /dev/null +++ b/t/html/highlander2-passover.gen @@ -0,0 +1,6 @@ + + + Sorry, + you're only AGE (and too dumb to lie about your + age) + diff --git a/t/passover.t b/t/passover.t new file mode 100644 index 0000000..2ba1b35 --- /dev/null +++ b/t/passover.t @@ -0,0 +1,35 @@ +# 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 replace_age { + my $branch = shift; + my $age = shift; + $branch->look_down(id => 'age')->replace_content($age); +} + + +sub tage { + my $age = shift; + + my $tree = HTML::TreeBuilder->new_from_file('t/html/highlander2.html'); + + my $saved_child = $tree->passover('under18'); + + my $root = "t/html/highlander2-passover"; + + my $generated_html = ptree($tree, "$root.gen"); + + is ($generated_html, File::Slurp::read_file("$root.exp"), "HTML for $age"); +} + + +tage('666'); + -- 2.39.2