convert all uses of Test::Exception to Test::Fatal.

[gitmo/Class-MOP.git] / t / 100_BinaryTree_test.t

diff --git a/t/100_BinaryTree_test.t b/t/100_BinaryTree_test.t
index f665d4e..339397f 100644 (file)
--- a/t/100_BinaryTree_test.t
+++ b/t/100_BinaryTree_test.t
@@ -1,13 +1,11 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
 use FindBin;
 use File::Spec::Functions;
 
-use Test::More tests => 69;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
 
 use Class::MOP;
 
@@ -19,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');
 
@@ -331,3 +329,4 @@ sub inOrderTraverse {
         '... this should be the reverse of the original');
 }
 
+done_testing;