version bump
[gitmo/Moose.git] / t / metaclasses / goto_moose_import.t
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use Test::More;
7 use Test::Fatal;
8
9 # Some packages out in the wild cooperate with Moose by using goto
10 # &Moose::import. we want to make sure it still works.
11
12 {
13     package MooseAlike1;
14
15     use strict;
16     use warnings;
17
18     use Moose ();
19
20     sub import {
21         goto &Moose::import;
22     }
23
24     sub unimport {
25         goto &Moose::unimport;
26     }
27 }
28
29 {
30     package Foo;
31
32     MooseAlike1->import();
33
34     ::is( ::exception { has( 'size', is => 'bare' ) }, undef, 'has was exported via MooseAlike1' );
35
36     MooseAlike1->unimport();
37 }
38
39 ok( ! Foo->can('has'),
40     'No has sub in Foo after MooseAlike1 is unimported' );
41 ok( Foo->can('meta'),
42     'Foo has a meta method' );
43 isa_ok( Foo->meta(), 'Moose::Meta::Class' );
44
45
46 {
47     package MooseAlike2;
48
49     use strict;
50     use warnings;
51
52     use Moose ();
53
54     my $import = \&Moose::import;
55     sub import {
56         goto $import;
57     }
58
59     my $unimport = \&Moose::unimport;
60     sub unimport {
61         goto $unimport;
62     }
63 }
64
65 {
66     package Bar;
67
68     MooseAlike2->import();
69
70     ::is( ::exception { has( 'size', is => 'bare' ) }, undef, 'has was exported via MooseAlike2' );
71
72     MooseAlike2->unimport();
73 }
74
75
76 ok( ! Bar->can('has'),
77           'No has sub in Bar after MooseAlike2 is unimported' );
78 ok( Bar->can('meta'),
79     'Bar has a meta method' );
80 isa_ok( Bar->meta(), 'Moose::Meta::Class' );
81
82 done_testing;