projects
/
gitmo/MooseX-UndefTolerant.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
ensure strict and warnings is always in effect
[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
__PACKAGE__->meta->make_immutable;
19
}
20
21
package main;
22
23
with_immutable {
24
{
25
my $foo = Foo->new;
26
ok(!$foo->has_bar);
27
}
28
29
{
30
my $foo = Foo->new(bar => undef);
31
ok(!$foo->has_bar);
32
}
33
34
{
35
my $foo = Foo->new(bar => 1234);
36
cmp_ok($foo->bar, 'eq', 1234);
37
ok($foo->has_bar);
38
}
39
} 'Foo';
40
41
done_testing;