t/053_util_find_type_constraint.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 15;
   7 use Test::Exception;
   8
   9 BEGIN {
  10         use_ok('Moose::Util::TypeConstraints');
  11 }
  12
  13 foreach my $type_name (qw(
  14     Any
  15         Bool
  16         Value
  17             Int
  18             Str
  19         Ref
  20             ScalarRef
  21             CollectionRef
  22                 ArrayRef
  23                 HashRef
  24             CodeRef
  25             RegexpRef
  26             Object
  27                 Role
  28     )) {
  29     is(find_type_constraint($type_name)->name,
  30        $type_name,
  31        '... got the right name for ' . $type_name);
  32 }