builder inline accessor bug fix and new test
[gitmo/Moose.git] / t / 300_immutable / 001_immutable_moose.t
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 14;
7 use Test::Exception;
8
9 BEGIN {
10     use_ok('Moose');
11     use_ok('Moose::Meta::Role');
12 }
13
14 {
15   package FooRole;
16   our $VERSION = '0.01';
17   sub foo { 'FooRole::foo' }
18 }
19
20 {
21   package Foo;
22   use Moose;
23
24   #two checks because the inlined methods are different when
25   #there is a TC present.
26   has 'foos' => (is => 'ro', lazy_build => 1);
27   has 'bars' => (isa => 'Str', is => 'ro', lazy_build => 1);
28   sub _build_foos{ "many foos" }
29   sub _build_bars{ "many bars" }
30 }
31
32 {
33   my $foo_role = Moose::Meta::Role->initialize('FooRole');
34   my $meta = Foo->meta;
35
36   lives_ok{ Foo->new                    } "lazy_build works";
37   is(Foo->new->foos, 'many foos'        , "correct value for 'foos'");
38   is(Foo->new->bars, 'many bars'        , "correct value for 'bars'");
39   lives_ok{ $meta->make_immutable       } "Foo is imutable";
40   dies_ok{  $meta->add_role($foo_role)  } "Add Role is locked";
41   lives_ok{ Foo->new                    } "Inlined constructor works with lazy_build";
42   is(Foo->new->foos, 'many foos'        , "correct value for 'foos'");
43   is(Foo->new->bars, 'many bars'        , "correct value for 'bars'");
44   lives_ok{ $meta->make_mutable         } "Foo is mutable";
45   lives_ok{ $meta->add_role($foo_role)  } "Add Role is unlocked";
46
47
48
49 }
50
51 {
52   package Bar;
53
54   use Moose;
55
56   sub BUILD { 'bar' }
57 }
58
59 {
60   package Baz;
61
62   use Moose;
63
64   extends 'Bar';
65
66   sub BUILD { 'baz' }
67 }
68
69 lives_ok { Bar->meta->make_immutable }
70   'Immutable meta with single BUILD';
71
72 lives_ok { Baz->meta->make_immutable }
73   'Immutable meta with multiple BUILDs';
74
75 =pod
76
77 Nothing here yet, but soon :)
78
79 =cut