Imported from /home/lorry/working-area/delta_perl-xml-xpath/XML-XPath-1.13.tar.gz.HEADXML-XPath-1.13master

1 files changed, 27 insertions, 0 deletions

diff --git a/t/25scope.t b/t/25scope.t
new file mode 100644
index 0000000..df58f0b
--- /dev/null
+++ b/t/25scope.t
@@ -0,0 +1,27 @@
+use Test;
+BEGIN { plan tests => 4 }
+
+use XML::XPath;
+ok(1);
+
+eval
+{
+  # Removing the 'my' makes this work?!?
+  my $xp = XML::XPath->new(xml => '<test/>');
+  ok($xp);
+
+  $xp->findnodes('/test');
+
+  ok(1);
+
+  die "This should be caught\n";
+
+};
+
+if ($@)
+{
+  ok(1);
+}
+else {
+    ok(0);
+}