X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_BinaryTree_test.t;fp=t%2F100_BinaryTree_test.t;h=339397f68a0aab5a7884dd4a5590d2d0d6308c3a;hb=13b8971fa6cc4edf7d55a2e5482820d62ba38f16;hp=285994ff32676d09e1ed834e7c670d021278f5a1;hpb=7ac8038438a75837e0d4976dd45cb53f77124fb4;p=gitmo%2FClass-MOP.git diff --git a/t/100_BinaryTree_test.t b/t/100_BinaryTree_test.t index 285994f..339397f 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 { +ok ! exception { Class::MOP::load_class('BinaryTree'); -} '... loaded the BinaryTree class without dying'; +}, '... loaded the BinaryTree class without dying'; ok(Class::MOP::is_class_loaded('BinaryTree'), '... the binary tree class is now loaded');