Permalink
Browse files

add subclass test

  • Loading branch information...
1 parent 8df9ea7 commit 8b6a10f678a77067fe063762b1a30b74f85bc1a2 @mschout mschout committed Nov 26, 2009
Showing with 21 additions and 0 deletions.
  1. +21 −0 t/subclass.t
View
@@ -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';

0 comments on commit 8b6a10f

Please sign in to comment.