t/050_metaclasses/021_export_with_prototype.t

   1 use lib "t/lib";
   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;
   5 package MyExporter::User;
   6 use MyExporter;
   7
   8 use Test::More;
   9 use Test::Exception;
  10 { local $TODO = q{Mouse does not support with_meta option in the exporter};
  11 lives_and {
  12     with_prototype {
  13         my $caller = caller(0);
  14         is($caller, 'MyExporter', "With_caller prototype code gets called from MyMouseX");
  15     };
  16 } "check function with prototype";
  17 } # end of TODO
  18 lives_and {
  19     as_is_prototype {
  20         my $caller = caller(0);
  21         is($caller, 'MyExporter', "As-is prototype code gets called from MyMouseX");
  22     };
  23 } "check function with prototype";
  24
  25 done_testing;