Add a failing test to check that destructor inlining is actually happening

diff --git a/t/300_immutable/005_multiple_demolish_inline.t b/t/300_immutable/005_multiple_demolish_inline.t
index 53b31a0..781fda2 100644 (file)
--- 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 => 2;
+use Test::More tests => 3;
 use Test::Exception;
 
 
@@ -32,6 +32,8 @@ lives_ok {
 } 'Bar->new()';
 
 lives_ok {
-    my $bar = Bar->new();
-    $bar->meta->make_immutable;
-} 'Bar->meta->make_immutable';
\ No newline at end of file
+    Bar->meta->make_immutable;
+} 'Bar->meta->make_immutable';
+
+is( Bar->meta->get_method('DESTROY')->package_name, 'Bar',
+    'Bar has a DESTROY method in the Bar class (not inherited)' );