X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fimport_into.t;h=fcf3c84dac4c284f8d4efd5b7869e99b02595c97;hb=9bf478b24577fed97fdf3db2d61c6fa11781ebd9;hp=504dcbe921e69d65868021c2444371d41566d8b3;hpb=2afb5246467e98519cbc8df4025dd6e4a929a85d;p=p5sagit%2FImport-Into.git

diff --git a/t/import_into.t b/t/import_into.t
index 504dcbe..fcf3c84 100644
--- a/t/import_into.t
+++ b/t/import_into.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings FATAL => 'all';
-use Test::More;
+use Test::More qw(no_plan);
 
 BEGIN {
 
@@ -20,33 +20,67 @@ BEGIN {
     my $target = caller;
     warnings->import::into($target);
     MyExporter->import::into($target, 'thing');
+    CheckFile->import::into(1);
+
   }
 
   $INC{"MultiExporter.pm"} = 1;
 }
 
+my @checkcaller;
+my $checkversion;
 BEGIN {
 
+  package CheckFile;
+
+  sub import {
+    @checkcaller = caller;
+  }
+  sub VERSION {
+    $checkversion = $_[1];
+  }
+
+  $INC{"CheckFile.pm"} = 1;
+}
+
+eval q{
+
   package TestPackage;
 
-  no warnings;
+  no warnings FATAL => 'all';
 
+#line 1 "import_into_inline.pl"
   use MultiExporter;
 
   sub test {
     thing . undef
   }
-}
+  1;
+} or die $@;
 
 my @w;
 
 is(do {
   local $SIG{__WARN__} = sub { push @w, @_; };
-  TestPackage::test;
+  TestPackage::test();
 }, 'thing', 'returned thing ok');
 
 is(scalar @w, 1, 'Only one entry in @w');
 
 like($w[0], qr/uninitialized/, 'Correct warning');
 
-done_testing;
+is $checkcaller[0], 'TestPackage', 'import by level has correct package';
+is $checkcaller[1], 'import_into_inline.pl', 'import by level has correct file';
+is $checkcaller[2], 1, 'import by level has correct line';
+
+CheckFile->import::into({
+  package  => 'ExplicitPackage',
+  filename => 'explicit-file.pl',
+  line     => 42,
+  version  => 219,
+});
+
+is $checkcaller[0], 'ExplicitPackage',  'import with hash has correct package';
+is $checkcaller[1], 'explicit-file.pl', 'import with hash has correct file';
+is $checkcaller[2], 42,                 'import with hash has correct line';
+is $checkversion, 219,                  'import with hash has correct version';