From 742a86af2a7e15cebbed6e2ca4f56b87170b9f7d Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@sardina.(none)>
Date: Sat, 27 Jun 2009 13:41:41 +0200
Subject: version 1.4, from CPAN

---
 t/02html.t | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 t/02html.t

(limited to 't/02html.t')

diff --git a/t/02html.t b/t/02html.t
new file mode 100644
index 0000000..93e0eef
--- /dev/null
+++ b/t/02html.t
@@ -0,0 +1,54 @@
+# make sure HTML::TreeBuilder is available
+BEGIN {
+    eval { require HTML::TreeBuilder; };
+    if ($@) {
+        eval "use Test::More skip_all => q{02html.t requires HTML::TreeBuilder.};";
+        exit;
+    }
+}
+
+use Test::More qw(no_plan);
+use strict;
+use warnings;
+use Class::XPath;
+use HTML::TreeBuilder;
+
+# build a tree from some HTML
+my $root = HTML::TreeBuilder->new;
+isa_ok($root, 'HTML::TreeBuilder');
+$root->parse_file("t/02html.html");
+isa_ok($root, 'HTML::Element');
+
+# add Class::XPath routines to HTML::Element
+Class::XPath->add_methods(target         => 'HTML::Element',
+                          call_match     => 'xpath_match',
+                          call_xpath     => 'xpath_id',
+                          get_parent     => 'parent',
+                          get_name       => 'tag',
+                          get_attr_names => 
+                            sub { my %attr = shift->all_external_attr;
+                                  return keys %attr; },
+                          get_attr_value => 
+                          sub { my %attr = shift->all_external_attr;
+                                return $attr{$_[0]}; },
+                          get_children   =>
+                            sub { grep { ref $_ } shift->content_list },
+                          get_content    =>
+                            sub { grep { not ref $_ } shift->content_list },
+                          get_root       => 
+                            sub { local $_=shift; 
+                                  while($_->parent) { $_ = $_->parent }
+                                  return $_; });
+
+# do some matching tests against the HTML
+is($root->xpath_match('//table'), 3);
+is($root->xpath_match('/head/title'), 1);
+is($root->xpath_match('//head/title'), 1);
+is(($root->xpath_match('/head/title'))[0]->xpath_id, '/head[0]/title[0]');
+is(($root->xpath_match('/head/title'))[0]->parent->xpath_id, '/head[0]');
+is(($root->xpath_match('/head/title'))[0]->parent->parent->xpath_id, '/');
+is($root->xpath_match('//a'), 54);
+
+my ($head) = $root->xpath_match('/head');
+is($head->xpath_match('title'), 1);
+is($head->xpath_match('/title'), 0);
-- 
cgit v1.2.3