X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessors_ro.t;h=bde31c97825f1cf2d9949ff97791a94b00205098;hb=44060ff12944885ba2795b12336cb452b1dc13e5;hp=662095d1c4d1b2ef7532c0bd40c01cd57df08b38;hpb=6a48652bd3d37530dc587d560df95fe2c3d660f4;p=p5sagit%2FClass-Accessor-Grouped.git

diff --git a/t/accessors_ro.t b/t/accessors_ro.t
index 662095d..bde31c9 100644
--- 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/) {