t-failing/040_type_constraints/004_util_find_type_constraint.t

   1 #!/usr/bin/perl
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More;
  10 $TODO = q{Mouse is not yet completed};
  11 use Test::Exception;
  12
  13 BEGIN {
  14     use_ok('Mouse::Util::TypeConstraints');
  15 }
  16
  17 foreach my $type_name (qw(
  18     Any
  19     Item
  20         Bool
  21         Undef
  22         Defined
  23             Value
  24                 Num
  25                   Int
  26                 Str
  27             Ref
  28                 ScalarRef
  29                 ArrayRef
  30                 HashRef
  31                 CodeRef
  32                 RegexpRef
  33                 Object
  34                     Role
  35     )) {
  36     is(find_type_constraint($type_name)->name,
  37        $type_name,
  38        '... got the right name for ' . $type_name);
  39 }
  40
  41 # TODO:
  42 # add tests for is_subtype_of which confirm the hierarchy
  43
  44 done_testing;