split accessor generator from the Meta::Attribute.
[gitmo/Mouse.git] / t / 010-required.t
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4 use Test::More tests => 3;
5 use Test::Exception;
6
7 do {
8     package Class;
9     use Mouse;
10
11     has foo => (
12         required => 1,
13     );
14
15     has bar => (
16         required => 1,
17         default => 50,
18     );
19
20     has baz => (
21         required => 1,
22         default => sub { 10 },
23     );
24
25     has quux => (
26         is       => "rw",
27         required => 1,
28         lazy     => 1,
29         default  => sub { "yay" },
30     );
31 };
32
33 throws_ok { Class->new } qr/Attribute \(foo\) is required/, "required attribute is required";
34 lives_ok { Class->new(foo => 5) } "foo is the only required but unfulfilled attribute";
35 lives_ok { Class->new(foo => 1, bar => 1, baz => 1, quux => 1) } "all attributes specified";
36