+++ /dev/null
-#!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
-
-use strict;
-use warnings;
-
-use Test::More;
-$TODO = q{Mouse is not yet completed};
-use Test::Exception;
-
-BEGIN {
- use_ok('Mouse::Util::TypeConstraints');
-}
-
-foreach my $type_name (qw(
- Any
- Item
- Bool
- Undef
- Defined
- Value
- Num
- Int
- Str
- Ref
- ScalarRef
- ArrayRef
- HashRef
- CodeRef
- RegexpRef
- Object
- Role
- )) {
- 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
-
-done_testing;
#!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
use strict;
use warnings;
-use Test::More tests => 17;
+use Test::More;
use Test::Exception;
BEGIN {
# TODO:
# add tests for is_subtype_of which confirm the hierarchy
+
+done_testing;