X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FImport-Into.git;a=blobdiff_plain;f=t%2Fimport_into.t;h=066e1722fb05197fbeeb67ff5fe4a6fdb2ddb84a;hp=e9ebb9c1efb4b06238f6457ee013400a9c746881;hb=cc0879792c33e271b206a8012112d9250ef04b96;hpb=8afc1658ff5a85afc7418d2779a4b4113feb4466

diff --git a/t/import_into.t b/t/import_into.t
index e9ebb9c..066e172 100644
--- a/t/import_into.t
+++ b/t/import_into.t
@@ -12,6 +12,8 @@ BEGIN {
 
   sub thing { 'thing' }
 
+  $INC{"MyExporter.pm"} = 1;
+
   package MultiExporter;
 
   use Import::Into;
@@ -47,7 +49,7 @@ eval q{
 
   package TestPackage;
 
-  no warnings;
+  no warnings FATAL => 'all';
 
 #line 1 "import_into_inline.pl"
   use MultiExporter;
@@ -84,3 +86,7 @@ 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';
+
+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" );