From: Graham Knop <haarg@haarg.org>
Date: Wed, 26 Aug 2015 09:50:09 +0000 (-0400)
Subject: test for level in hash param
X-Git-Tag: v1.002005~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=97e7f522c95bef94c21459ef74e181bfc1c63a63;p=p5sagit%2FImport-Into.git

test for level in hash param
---

diff --git a/t/import_into.t b/t/import_into.t
index 12b200b..7566438 100644
--- a/t/import_into.t
+++ b/t/import_into.t
@@ -103,6 +103,25 @@ BEGIN {
   }
 }
 
+@importcaller = ();
+$version = undef;
+eval q{
+  package ExplicitLevel;
+
+#line 42 "explicit-level.pl"
+  use LevelExporter;
+  1;
+} or die $@;
+
+is $importcaller[0], 'ExplicitLevel',
+  'import with level in hash has correct package';
+is $importcaller[1], 'explicit-level.pl',
+  'import with level in hash has correct file';
+is $importcaller[2], 42,
+  'import with level in hash has correct line';
+is $version, 219,
+  'import with level in hash has correct version';
+
 ok( !IPC::Open3->can("open3"), "IPC::Open3 is unloaded" );
 IPC::Open3->import::into("TestPackage");
 ok( TestPackage->can("open3"), "IPC::Open3 was use'd and import::into'd" );