From: Dave Rolsky <autarch@urth.org>
Date: Mon, 6 Apr 2009 17:07:25 +0000 (-0500)
Subject: Add a test for a class with no inherited DEMOLISH
X-Git-Tag: 0.73_02~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f79e6162c70d51bcdb21588d51f89ac8858c8e0;p=gitmo%2FMoose.git

Add a test for a class with no inherited DEMOLISH
---

diff --git a/t/300_immutable/005_multiple_demolish_inline.t b/t/300_immutable/005_multiple_demolish_inline.t
index 781fda2..c1e509a 100644
--- a/t/300_immutable/005_multiple_demolish_inline.t
+++ b/t/300_immutable/005_multiple_demolish_inline.t
@@ -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)' );