2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
10 $TODO = q{Mouse is not yet completed};
13 # Some packages out in the wild cooperate with Mouse by using goto
14 # &Mouse::import. we want to make sure it still works.
29 goto &Mouse::unimport;
36 MouseAlike1->import();
38 ::lives_ok( sub { has( 'size', is => 'bare' ) },
39 'has was exported via MouseAlike1' );
41 MouseAlike1->unimport();
44 ok( ! Foo->can('has'),
45 'No has sub in Foo after MouseAlike1 is unimported' );
47 'Foo has a meta method' );
48 isa_ok( Foo->meta(), 'Mouse::Meta::Class' );
59 my $import = \&Mouse::import;
64 my $unimport = \&Mouse::unimport;
73 MouseAlike2->import();
75 ::lives_ok( sub { has( 'size', is => 'bare' ) },
76 'has was exported via MouseAlike2' );
78 MouseAlike2->unimport();
82 ok( ! Bar->can('has'),
83 'No has sub in Bar after MouseAlike2 is unimported' );
85 'Bar has a meta method' );
86 isa_ok( Bar->meta(), 'Mouse::Meta::Class' );