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;
16 use Mouse::Util::TypeConstraints;
19 can_ok('Foo', 'meta');
20 isa_ok(Foo->meta, 'Mouse::Meta::Class');
22 ok(Foo->meta->has_method('meta'), '... we got the &meta method');
23 ok(Foo->isa('Mouse::Object'), '... Foo is automagically a Mouse::Object');
26 Foo->meta->has_method()
27 } '... has_method requires an arg';
29 can_ok('Foo', 'does');
31 foreach my $function (qw(
40 ok(!Foo->meta->has_method($function), '... the meta does not treat "' . $function . '" as a method');
43 foreach my $import (qw(
49 ok(!Mouse::Object->can($import), "no namespace pollution in Mouse::Object ($import)" );
51 local $TODO = $import eq 'blessed' ? "no automatic namespace cleaning yet" : undef;
52 ok(!Foo->can($import), "no namespace pollution in Mouse::Object ($import)" );