Commit | Line | Data |
41888e7d |
1 | use lib "t/lib"; |
fde8e43f |
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; |
41888e7d |
5 | package MyExporter::User; |
6 | use MyExporter; |
7 | |
fde8e43f |
8 | use Test::More; |
9 | $TODO = q{Mouse is not yet completed}; |
41888e7d |
10 | use Test::Exception; |
11 | |
12 | lives_and { |
13 | with_prototype { |
14 | my $caller = caller(0); |
fde8e43f |
15 | is($caller, 'MyExporter', "With_caller prototype code gets called from MyMooseX"); |
41888e7d |
16 | }; |
17 | } "check function with prototype"; |
18 | |
19 | lives_and { |
20 | as_is_prototype { |
21 | my $caller = caller(0); |
fde8e43f |
22 | is($caller, 'MyExporter', "As-is prototype code gets called from MyMooseX"); |
41888e7d |
23 | }; |
24 | } "check function with prototype"; |
fde8e43f |
25 | |
26 | done_testing; |