X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fmetaclasses%2Fthrow_error.t;h=246754d882d3ac8c041a0c4c85f15c050c2f8ccf;hb=bcc04ae144478d804246a90cbccc5f2b857935b3;hp=a332c9323db71077fcf830a3a6cef2052b496510;hpb=aa5bb362a4a2abe803c486688d7fca62a46c89ab;p=gitmo%2FMoose.git

diff --git a/t/metaclasses/throw_error.t b/t/metaclasses/throw_error.t
index a332c93..246754d 100644
--- a/t/metaclasses/throw_error.t
+++ b/t/metaclasses/throw_error.t
@@ -5,6 +5,7 @@ use warnings;
 
 use Test::More;
 use Test::Fatal;
+use Test::Moose;
 
 {
 
@@ -63,6 +64,7 @@ sub create_error {
     };
 }
 
+with_immutable {
 {
     my $e = create_error( Foo->new );
     ok( !ref( $e->{error} ), "error is a string" );
@@ -91,6 +93,7 @@ sub create_error {
     is_deeply( $e->{error}->data, [ $baz, 4 ], "captured args" );
     like( $e->{error}->last_error, qr/Blah/, "last error preserved" );
 }
+} 'Foo', 'Bar', 'Baz';
 
 {
     package Role::Foo;
@@ -200,6 +203,7 @@ sub stacktrace_not_ok (&) {
     cmp_ok(scalar(@lines), '==', 1, "didn't get a stacktrace");
 }
 
+with_immutable {
 my $default = Quux::Default->new;
 my $croak = Quux::Croak->new;
 my $confess = Quux::Confess->new;
@@ -228,5 +232,6 @@ is($confess->meta->error_class, 'Moose::Error::Confess');
     stacktrace_not_ok { $croak->bar };
     stacktrace_ok { $confess->bar };
 }
+} 'Quux::Default', 'Quux::Croak', 'Quux::Confess';
 
 done_testing;