X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fmoose-accessor-isa.t;fp=xt%2Fmoose-accessor-isa.t;h=ea7a0dc97cec99efbc181da4a3c72a12bb430474;hb=97612fe26a8280865ff57f593919e893f6d40a85;hp=525494816bcff6b65aa8b3f003b851b20cabcf3e;hpb=7754d2062ba80b30058d8815bb22e2abaa2b4dcc;p=gitmo%2FMoo.git

diff --git a/xt/moose-accessor-isa.t b/xt/moose-accessor-isa.t
index 5254948..ea7a0dc 100644
--- a/xt/moose-accessor-isa.t
+++ b/xt/moose-accessor-isa.t
@@ -1,8 +1,6 @@
 use strictures 1;
 use Test::More;
-use Test::Exception;
-
-use Moo::HandleMoose;
+use Test::Fatal;
 
 {
    package FrewWithIsa;
@@ -41,17 +39,17 @@ use Moo::HandleMoose;
    __PACKAGE__->meta->make_immutable;
 }
 
-lives_ok {
+is(exception {
    Bar->new(frooh => 1, frew => 1);
-} 'creation of valid Bar';
+}, undef, 'creation of valid Bar');
 
-dies_ok {
+ok exception {
    Bar->new(frooh => 'silly', frew => 1);
-} 'creation of invalid Bar validated by coderef';
+}, 'creation of invalid Bar validated by coderef';
 
-dies_ok {
+ok exception {
    Bar->new(frooh => 1, frew => 'goose');
-} 'creation of invalid Bar validated by quoted sub';
+}, 'creation of invalid Bar validated by quoted sub';
 
 sub test_off_by_one {
   my ($class, $type) = @_;