X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t-failing%2F030_roles%2F007_roles_and_req_method_edge_cases.t;fp=t%2F030_roles%2Ffailing%2F007_roles_and_req_method_edge_cases.t;h=b9fbeb63c21ab25ec7c2c2645cc74fee73e2b105;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=5e45d892df05a55179b47e94d47153a619617901;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;p=gitmo%2FMouse.git diff --git a/t/030_roles/failing/007_roles_and_req_method_edge_cases.t b/t-failing/030_roles/007_roles_and_req_method_edge_cases.t similarity index 95% rename from t/030_roles/failing/007_roles_and_req_method_edge_cases.t rename to t-failing/030_roles/007_roles_and_req_method_edge_cases.t index 5e45d89..b9fbeb6 100644 --- a/t/030_roles/failing/007_roles_and_req_method_edge_cases.t +++ b/t-failing/030_roles/007_roles_and_req_method_edge_cases.t @@ -1,9 +1,13 @@ #!/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 => 15; +use Test::More; +$TODO = q{Mouse is not yet completed}; use Test::Exception; =pod @@ -136,7 +140,7 @@ method modifier. sub foo { 'Class::ProvideFoo::foo' } before 'foo' => sub { 'Class::ProvideFoo::foo:before' }; - ::isa_ok(__PACKAGE__->meta->get_method('foo'), 'Class::MOP::Method::Wrapped'); + ::isa_ok(__PACKAGE__->meta->get_method('foo'), 'Mouse::Meta::Method'); ::is(__PACKAGE__->meta->get_method('foo')->get_original_method->package_name, __PACKAGE__, '... but the original method is from our package'); @@ -275,3 +279,5 @@ method modifier. with 'Bar2::Role'; } 'required method exists in superclass as non-modifier, so we live'; } + +done_testing;