Correct error message to include 'Maybe' as implemented parametric type.
[gitmo/Mouse.git] / t / 101-meta-attribute.t
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4 use Test::More tests => 10;
5
6 do {
7     package Class;
8     use Mouse;
9
10     has pawn => (
11         is        => 'rw',
12         predicate => 'has_pawn',
13         clearer   => 'clear_pawn',
14         default   => sub { 10 },
15     );
16
17     no Mouse;
18 };
19
20 my $meta = Class->meta;
21 isa_ok($meta, 'Mouse::Meta::Class');
22
23 my $attr = $meta->get_attribute('pawn');
24 isa_ok($attr, 'Mouse::Meta::Attribute');
25
26 can_ok($attr, qw(name associated_class predicate clearer));
27 is($attr->name, 'pawn', 'attribute name');
28 is($attr->associated_class, Class->meta, 'associated_class');
29 is($attr->predicate, 'has_pawn', 'predicate');
30 is($attr->clearer, 'clear_pawn', 'clearer');
31 ok(!$attr->is_lazy_build, "not lazy_build");
32 is(ref($attr->default), 'CODE', 'default is a coderef');
33 ok($attr->verify_against_type_constraint(1), 'verify_against_type_constraint works even without isa');