protect @INC when re-invoking

[gitmo/MooseX-Runnable.git] / t / reverse-args.t

diff --git a/t/reverse-args.t b/t/reverse-args.t
index 4b0086e..16a2dfa 100644 (file)
--- a/t/reverse-args.t
+++ b/t/reverse-args.t
@@ -13,11 +13,12 @@ my $args = MooseX::Runnable::Util::ArgParser->new(
 local $^X = '/path/to/perl';
 local $FindBin::Bin = '/path/to';
 local $FindBin::Script = 'mx-run';
+local @INC = ('foobar');
 my @cmdline = $args->guess_cmdline(
     perl_flags => ['--X--'],
     without_plugins => ['Plugout'],
 );
 
 is join(' ', @cmdline),
-  "/path/to/perl --X-- /path/to/mx-run -Ilib -MFoo -MBar +Plugin --with-args -- MyApp --with args",
+  "/path/to/perl -Ifoobar --X-- /path/to/mx-run -Ilib -MFoo -MBar +Plugin --with-args -- MyApp --with args",
   'cmdline reverses reasonably';