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

diff --git a/t/080_meta_package.t b/t/080_meta_package.t
index a06bb27..a5d55fa 100644
--- a/t/080_meta_package.t
+++ b/t/080_meta_package.t
@@ -2,14 +2,14 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 
 use Class::MOP;
 use Class::MOP::Package;
 
 
-ok exception { Class::MOP::Package->get_all_package_symbols }, q{... can't call get_all_package_symbols() as a class method};
-ok exception { Class::MOP::Package->name }, q{... can't call name() as a class method};
+dies_ok { Class::MOP::Package->get_all_package_symbols } q{... can't call get_all_package_symbols() as a class method};
+dies_ok { Class::MOP::Package->name } q{... can't call name() as a class method};
 
 {
     package Foo;
@@ -26,9 +26,9 @@ ok(!defined($Foo::{foo}), '... the %foo slot has not been created yet');
 ok(!Foo->meta->has_package_symbol('%foo'), '... the meta agrees');
 ok(!defined($Foo::{foo}), '... checking doesn\' vivify');
 
-ok ! exception {
+lives_ok {
     Foo->meta->add_package_symbol('%foo' => { one => 1 });
-}, '... created %Foo::foo successfully';
+} '... created %Foo::foo successfully';
 
 # ... scalar should NOT be created here
 
@@ -67,9 +67,9 @@ $foo->{two} = 2;
 
 ok(!defined($Foo::{bar}), '... the @bar slot has not been created yet');
 
-ok ! exception {
+lives_ok {
     Foo->meta->add_package_symbol('@bar' => [ 1, 2, 3 ]);
-}, '... created @Foo::bar successfully';
+} '... created @Foo::bar successfully';
 
 ok(defined($Foo::{bar}), '... the @bar slot was created successfully');
 ok(Foo->meta->has_package_symbol('@bar'), '... the meta agrees');
@@ -93,9 +93,9 @@ ok(!Foo->meta->has_package_symbol('&bar'), '... CODE shouldnt have been created
 
 ok(!defined($Foo::{baz}), '... the $baz slot has not been created yet');
 
-ok ! exception {
+lives_ok {
     Foo->meta->add_package_symbol('$baz' => 10);
-}, '... created $Foo::baz successfully';
+} '... created $Foo::baz successfully';
 
 ok(defined($Foo::{baz}), '... the $baz slot was created successfully');
 ok(Foo->meta->has_package_symbol('$baz'), '... the meta agrees');
@@ -119,9 +119,9 @@ is(${Foo->meta->get_package_symbol('$baz')}, 10, '... got the right value back')
 
 ok(!defined($Foo::{funk}), '... the &funk slot has not been created yet');
 
-ok ! exception {
+lives_ok {
     Foo->meta->add_package_symbol('&funk' => sub { "Foo::funk" });
-}, '... created &Foo::funk successfully';
+} '... created &Foo::funk successfully';
 
 ok(defined($Foo::{funk}), '... the &funk slot was created successfully');
 ok(Foo->meta->has_package_symbol('&funk'), '... the meta agrees');
@@ -143,23 +143,23 @@ is(Foo->funk(), 'Foo::funk', '... got the right value from the function');
 my $ARRAY = [ 1, 2, 3 ];
 my $CODE = sub { "Foo::foo" };
 
-ok ! exception {
+lives_ok {
     Foo->meta->add_package_symbol('@foo' => $ARRAY);
-}, '... created @Foo::foo successfully';
+} '... created @Foo::foo successfully';
 
 ok(Foo->meta->has_package_symbol('@foo'), '... the @foo slot was added successfully');
 is(Foo->meta->get_package_symbol('@foo'), $ARRAY, '... got the right values for @Foo::foo');
 
-ok ! exception {
+lives_ok {
     Foo->meta->add_package_symbol('&foo' => $CODE);
-}, '... created &Foo::foo successfully';
+} '... created &Foo::foo successfully';
 
 ok(Foo->meta->has_package_symbol('&foo'), '... the meta agrees');
 is(Foo->meta->get_package_symbol('&foo'), $CODE, '... got the right value for &Foo::foo');
 
-ok ! exception {
+lives_ok {
     Foo->meta->add_package_symbol('$foo' => 'Foo::foo');
-}, '... created $Foo::foo successfully';
+} '... created $Foo::foo successfully';
 
 ok(Foo->meta->has_package_symbol('$foo'), '... the meta agrees');
 my $SCALAR = Foo->meta->get_package_symbol('$foo');
@@ -170,9 +170,9 @@ is($$SCALAR, 'Foo::foo', '... got the right scalar value back');
     is(${'Foo::foo'}, 'Foo::foo', '... got the right value from the scalar');
 }
 
-ok ! exception {
+lives_ok {
     Foo->meta->remove_package_symbol('%foo');
-}, '... removed %Foo::foo successfully';
+} '... removed %Foo::foo successfully';
 
 ok(!Foo->meta->has_package_symbol('%foo'), '... the %foo slot was removed successfully');
 ok(Foo->meta->has_package_symbol('@foo'), '... the @foo slot still exists');
@@ -191,9 +191,9 @@ is(Foo->meta->get_package_symbol('$foo'), $SCALAR, '... got the right value for
     ok(defined(${"Foo::foo"}), '... the $foo slot has NOT been removed');
 }
 
-ok ! exception {
+lives_ok {
     Foo->meta->remove_package_symbol('&foo');
-}, '... removed &Foo::foo successfully';
+} '... removed &Foo::foo successfully';
 
 ok(!Foo->meta->has_package_symbol('&foo'), '... the &foo slot no longer exists');
 
@@ -211,9 +211,9 @@ is(Foo->meta->get_package_symbol('$foo'), $SCALAR, '... got the right value for
     ok(defined(${"Foo::foo"}), '... the $foo slot has NOT been removed');
 }
 
-ok ! exception {
+lives_ok {
     Foo->meta->remove_package_symbol('$foo');
-}, '... removed $Foo::foo successfully';
+} '... removed $Foo::foo successfully';
 
 ok(!Foo->meta->has_package_symbol('$foo'), '... the $foo slot no longer exists');