Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

add subclass test

  • Loading branch information...
commit 8b6a10f678a77067fe063762b1a30b74f85bc1a2 1 parent 8df9ea7
@mschout mschout authored
Showing with 21 additions and 0 deletions.
  1. +21 −0 t/subclass.t
View
21 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';
Please sign in to comment.
Something went wrong with that request. Please try again.