1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
use strict;
use warnings;
use lib 't/lib';
use Test::More;
use Test::Fatal;
use Class::Load 'is_class_loaded';
{
package MyClass;
use Moose;
use MooseX::Types::LoadableClass qw/LoadableClass LoadableRole/;
has foobar_class => (
is => 'ro',
isa => LoadableClass,
coerce => 1,
);
has foobar_role => (
is => 'ro',
isa => LoadableRole,
coerce => 1,
);
}
ok(!is_class_loaded('FooBarTestClass'), 'class is not loaded');
is(
exception { MyClass->new(foobar_class => 'FooBarTestClass') },
undef,
'LoadableClass validates',
);
ok(is_class_loaded('FooBarTestClass'), 'now class is loaded');
like(
exception { MyClass->new(foobar_class => 'FooBarTestClassDoesNotExist') },
qr/Validation failed/,
'LoadableClass does not validate with another class name',
);
ok(!is_class_loaded('FooBarTestRole'), 'role is not loaded');
is(
exception { MyClass->new(foobar_role => 'FooBarTestRole') },
undef,
'LoadableRole validates',
);
ok(is_class_loaded('FooBarTestRole'), 'now role is loaded');
like(
exception { MyClass->new(foobar_role => 'FooBarTestClass') },
qr/Validation failed/,
'LoadableRole does not validate with another role name',
);
like(
exception { MyClass->new(foobar_role => 'FooBarTestRoleDoesNotExist') },
qr/Validation failed/,
'and again',
);
use MooseX::Types::LoadableClass qw/LoadableClass LoadableRole/;
for my $name (qw(Non::Existent::Module ::Syntactically::Invalid::Name)) {
for my $tc (LoadableClass, LoadableRole) {
for (0..1)
{
is(
exception { ok(! $tc->check($name), $tc->name . ", $name: validation failed") },
undef,
$tc->name . ", $name: does not die"
);
}
}
}
done_testing;
|
