X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpack.t;h=535b235d1e68a2bcd15ac0aca78f5e7591110fbe;hb=d2e19f2f7437b28b0c4cc45f494e8f17a798ab61;hp=0222dbd4d62a28cda41720e91d3c68ec88d97e78;hpb=15d0d01400f87e62e06cc5b9ab302371a6f8149f;p=p5sagit%2FDevel-Declare.git

diff --git a/t/pack.t b/t/pack.t
index 0222dbd..535b235 100644
--- a/t/pack.t
+++ b/t/pack.t
@@ -1,11 +1,11 @@
 use strict;
 use warnings;
-use Test::More 'no_plan';
+use Test::More 0.88;
 
 sub class { $_[0]->(); }
 
 sub handle_class {
-  my ($pack, $use, $name, $proto, $is_block) = @_;
+  my ($usepack, $use, $inpack, $name, $proto, $is_block) = @_;
   return (sub (&) { shift; }, undef, "package ${name};");
 }
 
@@ -20,3 +20,5 @@ class Foo::Bar {
 
 is($packname, 'Foo::Bar', 'Package saved ok');
 is(__PACKAGE__, 'main', 'Package scoped correctly');
+
+done_testing;