Use postamble() insteead of MY::postamble()
[gitmo/Mouse.git] / t / 010_basics / 013_create.t
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 7;
7 use Test::Exception;
8
9 {
10     package Class;
11     use Mouse;
12
13     package Foo;
14     use Mouse::Role;
15     sub foo_role_applied { 1 }
16
17     package Conflicts::With::Foo;
18     use Mouse::Role;
19     sub foo_role_applied { 0 }
20
21     package Not::A::Role;
22     sub lol_wut { 42 }
23 }
24
25 my $new_class;
26
27 lives_ok {
28     $new_class = Mouse::Meta::Class->create(
29         'Class::WithFoo',
30         superclasses => ['Class'],
31         roles        => ['Foo'],
32     );
33 } 'creating lives';
34 ok $new_class;
35
36 my $with_foo = Class::WithFoo->new;
37
38 ok $with_foo->foo_role_applied;
39 isa_ok $with_foo, 'Class', '$with_foo';
40
41 throws_ok {
42     Mouse::Meta::Class->create(
43         'Made::Of::Fail',
44         superclasses => ['Class'],
45         roles => 'Foo', # "oops"
46     );
47 } qr/You must pass an ARRAY ref of roles/;
48
49 ok !Mouse::Util::is_class_loaded('Made::Of::Fail'), "did not create Made::Of::Fail";
50
51 dies_ok {
52     Mouse::Meta::Class->create(
53         'Continuing::To::Fail',
54         superclasses => ['Class'],
55         roles        => ['Foo', 'Conflicts::With::Foo'],
56     );
57 } 'conflicting roles == death';
58
59 # XXX: Continuing::To::Fail gets created anyway
60