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 $TODO = q{Mouse is not yet completed};
  10 use Test::Exception;
  11
  12 lives_and {
  13     with_prototype {
  14         my $caller = caller(0);
  15         is($caller, 'MyExporter', "With_caller prototype code gets called from MyMooseX");
  16     };
  17 } "check function with prototype";
  18
  19 lives_and {
  20     as_is_prototype {
  21         my $caller = caller(0);
  22         is($caller, 'MyExporter', "As-is prototype code gets called from MyMooseX");
  23     };
  24 } "check function with prototype";
  25
  26 done_testing;