use strict;
use warnings;
-use Test::More tests => 2;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
BEGIN {
use_ok('Moose::Util::TypeConstraints');
subtype 'MySubType' => as 'Int' => where { 1 };
}
-throws_ok {
+like( exception {
package Some::Other::Class;
use Moose::Util::TypeConstraints;
subtype 'MySubType' => as 'Int' => where { 1 };
-} qr/cannot be created again/, 'Trying to create same type twice throws';
+}, qr/cannot be created again/, 'Trying to create same type twice throws' );
+done_testing;