X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F070_immutable_metaclass.t;h=74d470a36e90cfeb2f94fa22f216d4252635d449;hb=8371f3de4e9525ab751008dca4a89e6df65345a6;hp=f926ad3ef494dd393c34d68125bb79cda2067e74;hpb=d65739b4429cbd77a5400b2ac8273af504fcf3da;p=gitmo%2FClass-MOP.git

diff --git a/t/070_immutable_metaclass.t b/t/070_immutable_metaclass.t
index f926ad3..74d470a 100644
--- a/t/070_immutable_metaclass.t
+++ b/t/070_immutable_metaclass.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 
 use Class::MOP;
 
@@ -83,43 +83,43 @@ use Class::MOP;
 
     isa_ok( $meta, 'Class::MOP::Class' );
 
-    ok exception { $meta->add_method() }, '... exception thrown as expected';
-    ok exception { $meta->alias_method() }, '... exception thrown as expected';
-    ok exception { $meta->remove_method() }, '... exception thrown as expected';
+    dies_ok { $meta->add_method() } '... exception thrown as expected';
+    dies_ok { $meta->alias_method() } '... exception thrown as expected';
+    dies_ok { $meta->remove_method() } '... exception thrown as expected';
 
-    ok exception { $meta->add_attribute() }, '... exception thrown as expected';
-    ok exception { $meta->remove_attribute() }, '... exception thrown as expected';
+    dies_ok { $meta->add_attribute() } '... exception thrown as expected';
+    dies_ok { $meta->remove_attribute() } '... exception thrown as expected';
 
-    ok exception { $meta->add_package_symbol() },
+    dies_ok { $meta->add_package_symbol() }
     '... exception thrown as expected';
-    ok exception { $meta->remove_package_symbol() },
+    dies_ok { $meta->remove_package_symbol() }
     '... exception thrown as expected';
 
-    ok ! exception { $meta->identifier() },
+    lives_ok { $meta->identifier() }
     '... no exception for get_package_symbol special case';
 
     my @supers;
-    ok ! exception {
+    lives_ok {
         @supers = $meta->superclasses;
-    },
+    }
     '... got the superclasses okay';
 
-    ok exception { $meta->superclasses( ['UNIVERSAL'] ) },
+    dies_ok { $meta->superclasses( ['UNIVERSAL'] ) }
     '... but could not set the superclasses okay';
 
     my $meta_instance;
-    ok ! exception {
+    lives_ok {
         $meta_instance = $meta->get_meta_instance;
-    },
+    }
     '... got the meta instance okay';
     isa_ok( $meta_instance, 'Class::MOP::Instance' );
     is( $meta_instance, $meta->get_meta_instance,
         '... and we know it is cached' );
 
     my @cpl;
-    ok ! exception {
+    lives_ok {
         @cpl = $meta->class_precedence_list;
-    },
+    }
     '... got the class precedence list okay';
     is_deeply(
         \@cpl,
@@ -128,9 +128,9 @@ use Class::MOP;
     );
 
     my @attributes;
-    ok ! exception {
+    lives_ok {
         @attributes = $meta->get_all_attributes;
-    },
+    }
     '... got the attribute list okay';
     is_deeply(
         \@attributes,
@@ -146,9 +146,9 @@ use Class::MOP;
     ok( $meta->is_mutable,    '... our class is mutable' );
     ok( !$meta->is_immutable, '... our class is not immutable' );
 
-    ok ! exception {
+    lives_ok {
         $meta->make_immutable();
-    },
+    }
     '... changed Bar to be immutable';
 
     ok( !$meta->make_immutable, '... make immutable now returns nothing' );
@@ -158,40 +158,40 @@ use Class::MOP;
 
     isa_ok( $meta, 'Class::MOP::Class' );
 
-    ok exception { $meta->add_method() }, '... exception thrown as expected';
-    ok exception { $meta->alias_method() }, '... exception thrown as expected';
-    ok exception { $meta->remove_method() }, '... exception thrown as expected';
+    dies_ok { $meta->add_method() } '... exception thrown as expected';
+    dies_ok { $meta->alias_method() } '... exception thrown as expected';
+    dies_ok { $meta->remove_method() } '... exception thrown as expected';
 
-    ok exception { $meta->add_attribute() }, '... exception thrown as expected';
-    ok exception { $meta->remove_attribute() }, '... exception thrown as expected';
+    dies_ok { $meta->add_attribute() } '... exception thrown as expected';
+    dies_ok { $meta->remove_attribute() } '... exception thrown as expected';
 
-    ok exception { $meta->add_package_symbol() },
+    dies_ok { $meta->add_package_symbol() }
     '... exception thrown as expected';
-    ok exception { $meta->remove_package_symbol() },
+    dies_ok { $meta->remove_package_symbol() }
     '... exception thrown as expected';
 
     my @supers;
-    ok ! exception {
+    lives_ok {
         @supers = $meta->superclasses;
-    },
+    }
     '... got the superclasses okay';
 
-    ok exception { $meta->superclasses( ['UNIVERSAL'] ) },
+    dies_ok { $meta->superclasses( ['UNIVERSAL'] ) }
     '... but could not set the superclasses okay';
 
     my $meta_instance;
-    ok ! exception {
+    lives_ok {
         $meta_instance = $meta->get_meta_instance;
-    },
+    }
     '... got the meta instance okay';
     isa_ok( $meta_instance, 'Class::MOP::Instance' );
     is( $meta_instance, $meta->get_meta_instance,
         '... and we know it is cached' );
 
     my @cpl;
-    ok ! exception {
+    lives_ok {
         @cpl = $meta->class_precedence_list;
-    },
+    }
     '... got the class precedence list okay';
     is_deeply(
         \@cpl,
@@ -200,9 +200,9 @@ use Class::MOP;
     );
 
     my @attributes;
-    ok ! exception {
+    lives_ok {
         @attributes = $meta->get_all_attributes;
-    },
+    }
     '... got the attribute list okay';
     is_deeply(
         [ sort { $a->name cmp $b->name } @attributes ],
@@ -218,9 +218,9 @@ use Class::MOP;
     ok( $meta->is_mutable,    '... our class is mutable' );
     ok( !$meta->is_immutable, '... our class is not immutable' );
 
-    ok ! exception {
+    lives_ok {
         $meta->make_immutable();
-    },
+    }
     '... changed Baz to be immutable';
 
     ok( !$meta->make_immutable, '... make immutable now returns nothing' );
@@ -230,40 +230,40 @@ use Class::MOP;
 
     isa_ok( $meta, 'Class::MOP::Class' );
 
-    ok exception { $meta->add_method() }, '... exception thrown as expected';
-    ok exception { $meta->alias_method() }, '... exception thrown as expected';
-    ok exception { $meta->remove_method() }, '... exception thrown as expected';
+    dies_ok { $meta->add_method() } '... exception thrown as expected';
+    dies_ok { $meta->alias_method() } '... exception thrown as expected';
+    dies_ok { $meta->remove_method() } '... exception thrown as expected';
 
-    ok exception { $meta->add_attribute() }, '... exception thrown as expected';
-    ok exception { $meta->remove_attribute() }, '... exception thrown as expected';
+    dies_ok { $meta->add_attribute() } '... exception thrown as expected';
+    dies_ok { $meta->remove_attribute() } '... exception thrown as expected';
 
-    ok exception { $meta->add_package_symbol() },
+    dies_ok { $meta->add_package_symbol() }
     '... exception thrown as expected';
-    ok exception { $meta->remove_package_symbol() },
+    dies_ok { $meta->remove_package_symbol() }
     '... exception thrown as expected';
 
     my @supers;
-    ok ! exception {
+    lives_ok {
         @supers = $meta->superclasses;
-    },
+    }
     '... got the superclasses okay';
 
-    ok exception { $meta->superclasses( ['UNIVERSAL'] ) },
+    dies_ok { $meta->superclasses( ['UNIVERSAL'] ) }
     '... but could not set the superclasses okay';
 
     my $meta_instance;
-    ok ! exception {
+    lives_ok {
         $meta_instance = $meta->get_meta_instance;
-    },
+    }
     '... got the meta instance okay';
     isa_ok( $meta_instance, 'Class::MOP::Instance' );
     is( $meta_instance, $meta->get_meta_instance,
         '... and we know it is cached' );
 
     my @cpl;
-    ok ! exception {
+    lives_ok {
         @cpl = $meta->class_precedence_list;
-    },
+    }
     '... got the class precedence list okay';
     is_deeply(
         \@cpl,
@@ -272,9 +272,9 @@ use Class::MOP;
     );
 
     my @attributes;
-    ok ! exception {
+    lives_ok {
         @attributes = $meta->get_all_attributes;
-    },
+    }
     '... got the attribute list okay';
     is_deeply(
         [ sort { $a->name cmp $b->name } @attributes ],