From: Graham Knop <haarg@haarg.org>
Date: Sat, 7 Sep 2013 21:30:14 +0000 (-0400)
Subject: test import by level
X-Git-Tag: v1.002000~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e5f9555dcd1499015a2ab8fa2623fca86d526405;p=p5sagit%2FImport-Into.git

test import by level
---

diff --git a/t/import_into.t b/t/import_into.t
index bc323fb..6bb30ad 100644
--- a/t/import_into.t
+++ b/t/import_into.t
@@ -20,17 +20,31 @@ BEGIN {
     my $target = caller;
     warnings->import::into($target);
     MyExporter->import::into($target, 'thing');
+    CheckFile->import::into(1);
   }
 
   $INC{"MultiExporter.pm"} = 1;
 }
 
+my @checkcaller;
+BEGIN {
+
+  package CheckFile;
+
+  sub import {
+    @checkcaller = caller;
+  }
+
+  $INC{"CheckFile.pm"} = 1;
+}
+
 BEGIN {
 
   package TestPackage;
 
   no warnings;
 
+#line 1
   use MultiExporter;
 
   sub test {
@@ -48,3 +62,7 @@ is(do {
 is(scalar @w, 1, 'Only one entry in @w');
 
 like($w[0], qr/uninitialized/, 'Correct warning');
+
+is $checkcaller[0], 'TestPackage', 'import by level has correct package';
+is $checkcaller[1], __FILE__, 'import by level has correct file';
+is $checkcaller[2], 1, 'import by level has correct line';