use warnings;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
use Class::MOP;
{
my $x = tie my $value, 'Tie::StdScalar', 'Class::MOP';
- ok ! exception { Class::MOP::load_class($value) }, 'load_class(tied scalar)';
+ lives_ok{ Class::MOP::load_class($value) } 'load_class(tied scalar)';
$value = undef;
$x->STORE('Class::MOP'); # reset
- ok ! exception {
+ lives_and{
ok Class::MOP::is_class_loaded($value);
- }, 'is_class_loaded(tied scalar)';
+ } 'is_class_loaded(tied scalar)';
$value = undef;
$x->STORE(\&Class::MOP::get_code_info); # reset
- ok ! exception {
+ lives_and{
is_deeply [Class::MOP::get_code_info($value)], [qw(Class::MOP get_code_info)], 'get_code_info(tied scalar)';
- };
+ }
}
done_testing;