#!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
use strict;
use warnings;
-use Test::More tests => 32;
+use Test::More;
use Test::Exception;
=pod
ok(Role::Derived3->meta->has_override_method_modifier('foo'), '... have the method foo as expected');
ok(Role::Derived4->meta->has_override_method_modifier('foo'), '... have the method foo as expected');
ok(My::Test::Class2->meta->has_method('foo'), '... have the method foo as expected');
-{
-local $TODO = 'Not a Mouse::Meta::Method::Overriden';
-isa_ok(My::Test::Class2->meta->get_method('foo'), 'Mouse::Meta::Method::Overridden');
-}
+isa_ok(My::Test::Class2->meta->get_method('foo'), 'Mouse::Meta::Method');
ok(My::Test::Class2::Base->meta->has_method('foo'), '... have the method foo as expected');
-{
-local $TODO = 'Not a Class::MOP::Method';
-isa_ok(My::Test::Class2::Base->meta->get_method('foo'), 'Class::MOP::Method');
-}
+isa_ok(My::Test::Class2::Base->meta->get_method('foo'), 'Mouse::Meta::Method');
+
is(My::Test::Class2::Base->foo, 'My::Test::Class2::Base', '... got the right value from method');
is(My::Test::Class2->foo, 'My::Test::Class2::Base -> Role::Base::foo', '... got the right value from method');
ok(Role::Derived5->meta->has_around_method_modifiers('foo'), '... have the method foo as expected');
ok(Role::Derived6->meta->has_around_method_modifiers('foo'), '... have the method foo as expected');
ok(My::Test::Class3->meta->has_method('foo'), '... have the method foo as expected');
-{
-local $TODO = 'Not a Class::MOP::Method::Wrapped';
-isa_ok(My::Test::Class3->meta->get_method('foo'), 'Class::MOP::Method::Wrapped');
-}
+isa_ok(My::Test::Class3->meta->get_method('foo'), 'Mouse::Meta::Method');
ok(My::Test::Class3::Base->meta->has_method('foo'), '... have the method foo as expected');
-{
-local $TODO = 'Not a Class::MOP::Method';
-isa_ok(My::Test::Class3::Base->meta->get_method('foo'), 'Class::MOP::Method');
-}
+isa_ok(My::Test::Class3::Base->meta->get_method('foo'), 'Mouse::Meta::Method');
+
is(My::Test::Class3::Base->foo, 'My::Test::Class3::Base', '... got the right value from method');
is(My::Test::Class3->foo, 'Role::Base::foo(My::Test::Class3::Base)', '... got the right value from method');
ok(My::Test::Class4->meta->has_attribute('foo'), '... have the attribute foo as expected');
is(My::Test::Class4->new->foo, 'Role::Base::foo', '... got the right value from method');
+
+done_testing;