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