X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F011_create_class.t;h=63a31d4b3445c2c4ebe778449932ec8b72a06aa3;hb=939ec2879f2eef695c063d980c47ecf5c6437481;hp=2267b5e119dab0630d7027df88e93c96dcc96a12;hpb=86a4d8730cfe673db674c692f7703632b700c7c9;p=gitmo%2FClass-MOP.git

diff --git a/t/011_create_class.t b/t/011_create_class.t
index 2267b5e..63a31d4 100644
--- a/t/011_create_class.t
+++ b/t/011_create_class.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 use Class::MOP;
 
@@ -73,9 +73,9 @@ is($point->y, 42, '... the y attribute was set properly with the accessor');
 
 is($point->x, 2, '... the x attribute was initialized correctly through the metaobject');
 
-dies_ok {
+isnt( exception {
     $point->x(42);
-} '... cannot write to a read-only accessor';
+}, undef, '... cannot write to a read-only accessor' );
 is($point->x, 2, '... the x attribute was not altered');
 
 $point->clear();