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=fcf3c84dac4c284f8d4efd5b7869e99b02595c97;hb=cc0879792c33e271b206a8012112d9250ef04b96;hpb=b95fe8b9490eeda818c99bf35ed3377d75672409

diff --git a/t/import_into.t b/t/import_into.t
index fcf3c84..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;
@@ -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" );