use strict;
use warnings;
-use Test::More tests => 18;
-use Test::Exception;
+use Test::More;
BEGIN {
- use_ok('Moose::Util::TypeConstraints');
+ use_ok('Moose::Util::TypeConstraints');
}
foreach my $type_name (qw(
Any
- Item
+ Item
Bool
Undef
Defined
HashRef
CodeRef
RegexpRef
- Object
+ Object
Role
)) {
- is(find_type_constraint($type_name)->name,
- $type_name,
+ is(find_type_constraint($type_name)->name,
+ $type_name,
'... got the right name for ' . $type_name);
}
# TODO:
-# add tests for is_subtype_of which confirm the hierarchy
\ No newline at end of file
+# add tests for is_subtype_of which confirm the hierarchy
+
+done_testing;