1 files changed, 38 insertions, 0 deletions
diff --git a/t/05-html-tree.t b/t/05-html-tree.t
new file mode 100644
index 0000000..a562aba
--- /dev/null
+++ b/t/05-html-tree.t
@@ -0,0 +1,38 @@
+#!perl
+package HtmlTransform;{
+ use Tree::Transform::XSLTish;
+ use strict;
+ use warnings;
+
+ default_rules;
+
+ tree_rule match => 'img[@alt="pick"]', action => sub {
+     return $_[0]->it->findvalue('@src');
+ };
+
+}
+
+package main;
+use Test::Most qw(no_plan die);
+use strict;
+use warnings;
+use HTML::TreeBuilder::XPath;
+
+sub HTML::TreeBuilder::XPath::Root::getRootNode { return $_[0] }
+
+my $tree=HTML::TreeBuilder::XPath->new();
+$tree->parse(<<'HTML');$tree->eof;
+<html>
+ <body>
+  <p>test</p>
+  <img src="nothing" />
+  <img src="this one" alt="pick" />
+ </body>
+</html>
+HTML
+
+{
+my $trans=HtmlTransform->new(engine=>XML::XPathEngine->new());
+my @results=$trans->transform($tree);
+is_deeply \@results,['this one'],'HTML example';
+}