use warnings;
use Test::More tests => 8;
-use Test::Exception;
+use Test::Fatal;
BEGIN {
use_ok('MooseX::Storage');
authority => 'cpan:JRANDOM',
);
-dies_ok {
+ok(exception {
Foo->unpack(
{
__CLASS__ => 'Foo-0.01-cpan:JRANDOM',
}
}
);
-} '... could not unpack, versions are different ' . $@;
+}, '... could not unpack, versions are different ' . $@);
Moose::Meta::Class->create('Bar',
version => '0.01',
authority => 'cpan:DSTATIC',
);
-dies_ok {
+ok(exception {
Foo->unpack(
{
__CLASS__ => 'Foo-0.01-cpan:JRANDOM',
}
}
);
-} '... could not unpack, authorities are different';
+}, '... could not unpack, authorities are different');