tests and changelogging

[gitmo/Moose.git] / t / 300_immutable / 007_immutable_trigger_from_constructor.t

diff --git a/t/300_immutable/007_immutable_trigger_from_constructor.t b/t/300_immutable/007_immutable_trigger_from_constructor.t
index cab557f..037a1e5 100644 (file)
--- a/t/300_immutable/007_immutable_trigger_from_constructor.t
+++ b/t/300_immutable/007_immutable_trigger_from_constructor.t
@@ -3,9 +3,8 @@
 use strict;
 use warnings;
 
-use Test::More tests => 3;
-use Test::Exception;
-
+use Test::More;
+use Test::Fatal;
 
 
 {
@@ -16,12 +15,12 @@ use Test::Exception;
     has 'foo' => (is => 'rw', isa => 'Maybe[Str]', trigger => sub {
         die "Pulling the Foo trigger\n"
     });
-    
-    has 'bar' => (is => 'rw', isa => 'Maybe[Str]');    
-    
+
+    has 'bar' => (is => 'rw', isa => 'Maybe[Str]');
+
     has 'baz' => (is => 'rw', isa => 'Maybe[Str]', trigger => sub {
         die "Pulling the Baz trigger\n"
-    });    
+    });
 
     __PACKAGE__->meta->make_immutable; #(debug => 1);
 
@@ -34,7 +33,6 @@ like ($@, qr/^Pulling the Foo trigger/, "trigger from immutable constructor");
 eval { AClass->new(baz => 'bar') };
 like ($@, qr/^Pulling the Baz trigger/, "trigger from immutable constructor");
 
-lives_ok { AClass->new(bar => 'bar') } '... no triggers called';
-
-
+is( exception { AClass->new(bar => 'bar') }, undef, '... no triggers called' );
 
+done_testing;