Reorganize t/050_metaclasses/

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

diff --git a/t/050_metaclasses/021_export_with_prototype.t b/t/050_metaclasses/021_export_with_prototype.t
new file mode 100644 (file)
index 0000000..d288900
--- /dev/null
+++ b/t/050_metaclasses/021_export_with_prototype.t
@@ -0,0 +1,25 @@
+use lib "t/lib";
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
+package MyExporter::User;
+use MyExporter;
+
+use Test::More;
+use Test::Exception;
+{ local $TODO = q{Mouse does not support with_meta option in the exporter};
+lives_and {
+    with_prototype {
+        my $caller = caller(0);
+        is($caller, 'MyExporter', "With_caller prototype code gets called from MyMouseX");
+    };
+} "check function with prototype";
+} # end of TODO
+lives_and {
+    as_is_prototype {
+        my $caller = caller(0);
+        is($caller, 'MyExporter', "As-is prototype code gets called from MyMouseX");
+    };
+} "check function with prototype";
+
+done_testing;