X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2Ffailing%2F021_export_with_prototype.t;fp=t%2F050_metaclasses%2Ffailing%2F021_export_with_prototype.t;h=0000000000000000000000000000000000000000;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=469585cf10cc5b7e1f10e8405483a8fca73fe9b3;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;p=gitmo%2FMouse.git diff --git a/t/050_metaclasses/failing/021_export_with_prototype.t b/t/050_metaclasses/failing/021_export_with_prototype.t deleted file mode 100644 index 469585c..0000000 --- a/t/050_metaclasses/failing/021_export_with_prototype.t +++ /dev/null @@ -1,20 +0,0 @@ -use lib "t/lib"; -package MyExporter::User; -use MyExporter; - -use Test::More (tests => 4); -use Test::Exception; - -lives_and { - with_prototype { - my $caller = caller(0); - is($caller, 'MyExporter', "With_caller prototype code gets called from MyMouseX"); - }; -} "check function with prototype"; - -lives_and { - as_is_prototype { - my $caller = caller(0); - is($caller, 'MyExporter', "As-is prototype code gets called from MyMouseX"); - }; -} "check function with prototype";