Commit | Line | Data |
6217087a |
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; |