bump!

[p5sagit/Class-Accessor-Grouped.git] / t / accessors_ro.t

diff --git a/t/accessors_ro.t b/t/accessors_ro.t
index 662095d..bde31c9 100644 (file)
--- a/t/accessors_ro.t
+++ b/t/accessors_ro.t
@@ -1,4 +1,4 @@
-use Test::More no_plan;
+use Test::More tests => 48;
 use strict;
 use warnings;
 use lib 't/lib';
@@ -18,6 +18,10 @@ my $class = AccessorGroupsRO->new;
     $class->mk_group_ro_accessors('warnings', 'DESTROY');
 
     ok($warned);
+
+    # restore non-accessorized DESTROY
+    no warnings;
+    *AccessorGroupsRO::DESTROY = sub {};
 };
 
 foreach (qw/singlefield multiple1 multiple2/) {