test array delegation edge cases

[gitmo/Moose.git] / t / 300_immutable / 005_multiple_demolish_inline.t

diff --git a/t/300_immutable/005_multiple_demolish_inline.t b/t/300_immutable/005_multiple_demolish_inline.t
index 24b110a..d30a9c8 100644 (file)
--- a/t/300_immutable/005_multiple_demolish_inline.t
+++ b/t/300_immutable/005_multiple_demolish_inline.t
@@ -3,11 +3,10 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5;
+use Test::More;
 use Test::Exception;
 
 
-
 {
     package Foo;
     use Moose;
@@ -28,13 +27,6 @@ use Test::Exception;
 }
 
 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 Foo class (not inherited)' );
-
-lives_ok {
     Bar->new();
 } 'Bar->new()';
 
@@ -44,3 +36,12 @@ 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)' );
+
+done_testing;