X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_BinaryTree_test.t;h=f6f1c37943e27e043b564e3ecefb5e8a28de21c8;hb=871e9eb5d05b8b9986b2de3f4095f65a31159c56;hp=285994ff32676d09e1ed834e7c670d021278f5a1;hpb=8371f3de4e9525ab751008dca4a89e6df65345a6;p=gitmo%2FClass-MOP.git

diff --git a/t/100_BinaryTree_test.t b/t/100_BinaryTree_test.t
index 285994f..f6f1c37 100644
--- a/t/100_BinaryTree_test.t
+++ b/t/100_BinaryTree_test.t
@@ -5,7 +5,7 @@ use FindBin;
 use File::Spec::Functions;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 use Class::MOP;
 
@@ -17,9 +17,9 @@ use lib catdir($FindBin::Bin, 'lib');
 
 ok(!Class::MOP::is_class_loaded('BinaryTree'), '... the binary tree class is not loaded');
 
-lives_ok {
+is( exception {
     Class::MOP::load_class('BinaryTree');
-} '... loaded the BinaryTree class without dying';
+}, undef, '... loaded the BinaryTree class without dying' );
 
 ok(Class::MOP::is_class_loaded('BinaryTree'), '... the binary tree class is now loaded');