use warnings;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
use Scalar::Util qw(refaddr);
BEGIN {
# subtype 'aliasing' ...
-ok ! exception {
+lives_ok {
subtype 'Numb3rs' => as 'Num';
-}, '... create bare subtype fine';
+} '... create bare subtype fine';
my $numb3rs = find_type_constraint('Numb3rs');
isa_ok($numb3rs, 'Moose::Meta::TypeConstraint');