[gitmo/Mouse.git] / t / 050_metaclasses / failing / 021_export_with_prototype.t

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";
Commit	Line	Data
41888e7d	1	use lib "t/lib";
	2	package MyExporter::User;
	3	use MyExporter;
	4
9864f0e4	5	use Test::More (tests => 4);
41888e7d	6	use Test::Exception;
	7
	8	lives_and {
	9	with_prototype {
	10	my $caller = caller(0);
9864f0e4	11	is($caller, 'MyExporter', "With_caller prototype code gets called from MyMouseX");
41888e7d	12	};
	13	} "check function with prototype";
	14
	15	lives_and {
	16	as_is_prototype {
	17	my $caller = caller(0);
9864f0e4	18	is($caller, 'MyExporter', "As-is prototype code gets called from MyMouseX");
41888e7d	19	};
41888e7d	20	} "check function with prototype";