use strict;
use warnings;
-use Test::More tests => 7;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
use Moose::Util::TypeConstraints;
my $bar = Bar->new;
isa_ok($bar, 'Bar');
-lives_ok {
+is( exception {
$bar->foo('Foo');
-} '... checked the type constraint correctly';
+}, undef, '... checked the type constraint correctly' );
-dies_ok {
+isnt( exception {
$bar->foo(Foo->new);
-} '... checked the type constraint correctly';
-
-
+}, undef, '... checked the type constraint correctly' );
+done_testing;