Add a test for a class with no inherited DEMOLISH
Dave Rolsky [Mon, 6 Apr 2009 17:07:25 +0000 (12:07 -0500)]
t/300_immutable/005_multiple_demolish_inline.t

index 781fda2..c1e509a 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 3;
+use Test::More tests => 5;
 use Test::Exception;
 
 
@@ -37,3 +37,10 @@ lives_ok {
 
 is( Bar->meta->get_method('DESTROY')->package_name, 'Bar',
     'Bar has a DESTROY method in the Bar class (not inherited)' );
+
+lives_ok {
+    Foo->meta->make_immutable;
+} 'Foo->meta->make_immutable';
+
+is( Foo->meta->get_method('DESTROY')->package_name, 'Foo',
+    'Foo has a DESTROY method in the Bar class (not inherited)' );