X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F006_new_and_clone_metaclasses.t;h=4b655ac1469f0041cac0d4a735e38ce77fa4af8b;hb=74fce89954832b1359ca1d55f21c7a8110e089a9;hp=086c6dbb83ba3e75fe77a9a6048c4b79a1948052;hpb=efd3d14c1cf03120dfd1ed7787f8050e55bb8319;p=gitmo%2FClass-MOP.git

diff --git a/t/006_new_and_clone_metaclasses.t b/t/006_new_and_clone_metaclasses.t
index 086c6db..4b655ac 100644
--- a/t/006_new_and_clone_metaclasses.t
+++ b/t/006_new_and_clone_metaclasses.t
@@ -1,13 +1,11 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
 use FindBin;
 use File::Spec::Functions;
 
-use Test::More tests => 35;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
 
 use Class::MOP;
 
@@ -102,9 +100,9 @@ isnt($cloned_foo, $foo, '... $cloned_foo is a new object different from $foo');
 
 # check some errors
 
-dies_ok {
+isnt( exception {
     $foo_meta->clone_object($meta);
-} '... this dies as expected';
+}, undef, '... this dies as expected' );
 
 # test stuff
 
@@ -126,3 +124,4 @@ is($attr->associated_class,
    $attr_clone->associated_class,
    '... we successfully did not clone our associated metaclass');
 
+done_testing;