X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F990_deprecated%2F001-export_to_level.t;fp=t%2F990_deprecated%2F001-export_to_level.t;h=e14ab1080193f29d59d6f724a7629de998676f86;hp=0000000000000000000000000000000000000000;hb=4e24a2c7c1a939c30462a9a301147fe59dca9cd6;hpb=d794b33466a638e2b8d1dbc1b184773380c14b3c

diff --git a/t/990_deprecated/001-export_to_level.t b/t/990_deprecated/001-export_to_level.t
new file mode 100644
index 0000000..e14ab10
--- /dev/null
+++ b/t/990_deprecated/001-export_to_level.t
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+BEGIN{
+    package Foo;
+    use Mouse;
+
+    sub import{
+        shift;
+        Mouse->export_to_level(1, @_);
+    }
+    $INC{'Foo.pm'}++;
+}
+
+package A;
+use Test::More;
+
+use Foo qw(has);
+
+ok defined(&has), "export_to_level (DEPRECATED)";
+
+
+ok!defined(&Bar::has), "export (DEPRECATED)";
+Mouse->export('Bar', 'has');
+ok defined(&Bar::has), "export (DEPRECATED)";