add subclass test

manwar · Nov 26, 2009 · 8b6a10f · 8b6a10f
1 parent 8df9ea7
commit 8b6a10f
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/t/subclass.t b/t/subclass.t
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Test::More tests => 2;
+
+BEGIN { use_ok 'Test::XPath' or die; }
+
+my $xml = <<'XML';
+<html>
+  <body>foo</body>
+</html>
+XML
+
+package Test::XPath::Subclass;
+
+use base 'Test::XPath';
+
+package main;
+
+my $sub = Test::XPath::Subclass->new(xml => $xml);
+isa_ok $sub, 'Test::XPath::Subclass';