projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
whoot
[gitmo/Moose.git]
/
t
/
053_util_find_type_constraint.t
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use Test::More tests => 12;
7
use Test::Exception;
8
9
BEGIN {
10
use_ok('Moose::Util::TypeConstraints');
11
}
12
13
foreach my $type_name (qw(
14
Any
15
Value
16
Int
17
Str
18
Ref
19
ScalarRef
20
ArrayRef
21
HashRef
22
CodeRef
23
RegexpRef
24
Object
25
)) {
26
is(find_type_constraint($type_name)->name,
27
$type_name,
28
'... got the right name for ' . $type_name);
29
}