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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
=pod
=encoding utf-8
=head1 PURPOSE
Tests stolen from L<MooseX::Types::DateTime>, and slighty adapted to
L<Types::DateTime>.
=head1 AUTHOR
Yuval Kogman E<lt>nothingmuch@woobling.orgE<gt>
John Napiorkowski E<lt>jjn1056 at yahoo.comE<gt>
=head1 COPYRIGHT AND LICENCE
Copyright (c) 2008-2014 Yuval Kogman.
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
=cut
use Test::Modern -requires => { Moose => '2.0600' };
use Moose::Util::TypeConstraints;
{
{
package Foo;
use Moose;
use Types::DateTime qw(DateTime);
has date => (
isa => DateTime,
is => "rw",
coerce => 1,
);
}
my $epoch = time;
my $coerced = Foo->new( date => $epoch )->date;
isa_ok( $coerced, "DateTime", "coerced epoch into datetime" );
is( $coerced->epoch, $epoch, "epoch is correct" );
isa_ok( Foo->new( date => { year => 2000, month => 1, day => 1 } )->date, "DateTime" );
isa_ok( Foo->new( date => 'now' )->date, "DateTime" );
like(exception { Foo->new( date => "junk1!!" ) }, qr/DateTime/, "constraint");
}
{
{
package Quxx;
use Moose;
use Types::DateTime qw(Duration);
has duration => (
isa => Duration,
is => "rw",
coerce => 1,
);
}
my $coerced = Quxx->new( duration => 10 )->duration;
isa_ok( $coerced, "DateTime::Duration", "coerced from seconds" );
my $time = time;
my $now = DateTime->from_epoch( epoch => $time );
my $future = $now + $coerced;
is( $future->epoch, ( $time + 10 ), "coerced value" );
isa_ok( Quxx->new( duration => { minutes => 2 } )->duration, "DateTime::Duration", "coerced from hash" );
like(exception { Quxx->new( duration => "ahdstkljhat" ) }, qr/DateTime/, "constraint");
}
{
{
package Bar;
use Moose;
use Types::DateTime qw(TimeZone);
has time_zone => (
isa => TimeZone,
is => "rw",
coerce => 1,
);
}
my $tz = Bar->new( time_zone => "Africa/Timbuktu" )->time_zone;
isa_ok( $tz, "DateTime::TimeZone", "coerced string into time zone object" );
like( $tz->name, qr/^Africa/, "correct time zone" );
like(exception { Bar->new( time_zone => "Space/TheMoon" ) }, qr{The timezone 'Space/TheMoon' could not be loaded}, "bad time zone");
}
{
{
package Gorch;
use Moose;
use Types::DateTime qw(Locale);
has loc => (
isa => Locale,
is => "rw",
coerce => 1,
);
}
my $loc = Gorch->new( loc => "he_IL" )->loc;
like( $loc->id, qr/he[_\-]IL/, "coerced from string" );
like(exception { Gorch->new( loc => "not_a_place_or_a_locale" ) }, qr/Invalid locale/, "bad locale name");
SKIP: {
skip "No Locale::Maketext", 2 unless eval { require Locale::Maketext };
{
package Some::L10N;
our @ISA = qw(Locale::Maketext);
package Some::L10N::ja;
our @ISA = qw(Some::L10N);
our %Lexicon = (
goodbye => "sayonara",
);
}
my $handle = Some::L10N->get_handle("ja");
isa_ok( $handle, "Some::L10N", "maketext handle" );
is( Gorch->new( loc => $handle )->loc->id, "ja", "coerced from maketext" );;
}
}
{
{
package Gondor;
use Moose;
use Types::DateTime qw(DateTime Duration);
has 'date' => (is=>'rw', isa=>DateTime, coerce=>1);
has 'duration' => (is=>'rw', isa=>Duration, coerce=>1);
}
my $epoch = time;
ok my $gondor = Gondor->new(date=>$epoch, duration=>10)
=> 'Instantiated object using export types';
}
done_testing;
|
