projects
/
gitmo/MooseX-UndefTolerant.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
generate the README from pod
[gitmo/MooseX-UndefTolerant.git]
/
t
/
basic.t
1
use Test::More;
2
use Test::Moose;
3
4
{
5
package Foo;
6
use Moose;
7
use MooseX::UndefTolerant;
8
9
has 'bar' => (
10
is => 'ro',
11
isa => 'Num',
12
predicate => 'has_bar'
13
);
14
15
__PACKAGE__->meta->make_immutable;
16
}
17
18
package main;
19
20
with_immutable {
21
{
22
my $foo = Foo->new;
23
ok(!$foo->has_bar);
24
}
25
26
{
27
my $foo = Foo->new(bar => undef);
28
ok(!$foo->has_bar);
29
}
30
31
{
32
my $foo = Foo->new(bar => 1234);
33
cmp_ok($foo->bar, 'eq', 1234);
34
ok($foo->has_bar);
35
}
36
} 'Foo';
37
38
done_testing;