tighten up entries

[p5sagit/Devel-Declare.git] / t / pack.t

diff --git a/t/pack.t b/t/pack.t
index 0222dbd..d69e089 100644 (file)
--- a/t/pack.t
+++ b/t/pack.t
@@ -1,11 +1,11 @@
 use strict;
 use warnings;
-use Test::More 'no_plan';
+use Test::More;
 
 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;