Make sure attr conflict error includes attr name

[gitmo/Moose.git] / t / 300_immutable / 015_immutable_destroy.t

diff --git a/t/300_immutable/015_immutable_destroy.t b/t/300_immutable/015_immutable_destroy.t
index a837030..8dfc3d3 100644 (file)
--- a/t/300_immutable/015_immutable_destroy.t
+++ b/t/300_immutable/015_immutable_destroy.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More;
 
 {
     package FooBar;
@@ -10,9 +10,12 @@ use Test::More tests => 1;
 
     sub DESTROY { shift->name }
 
+    local $SIG{__WARN__} = sub {};
     __PACKAGE__->meta->make_immutable;
 }
 
-my $f = FooBar->new( name => "SUSAN" );
+my $f = FooBar->new( name => 'SUSAN' );
 
-is( $f->DESTROY, "SUSAN", "Did moose overload DESTROY?" );
+is( $f->DESTROY, 'SUSAN', 'Did moose overload DESTROY?' );
+
+done_testing;