projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Inline the does method.
[gitmo/Moose.git]
/
t
/
040_type_constraints
/
004_util_find_type_constraint.t
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use Test::More;
7
use Test::Exception;
8
9
BEGIN {
10
use_ok('Moose::Util::TypeConstraints');
11
}
12
13
foreach my $type_name (qw(
14
Any
15
Item
16
Bool
17
Undef
18
Defined
19
Value
20
Num
21
Int
22
Str
23
Ref
24
ScalarRef
25
ArrayRef
26
HashRef
27
CodeRef
28
RegexpRef
29
Object
30
Role
31
)) {
32
is(find_type_constraint($type_name)->name,
33
$type_name,
34
'... got the right name for ' . $type_name);
35
}
36
37
# TODO:
38
# add tests for is_subtype_of which confirm the hierarchy
39
40
done_testing;