diff options
Diffstat (limited to 't')
-rw-r--r-- | t/detect.t | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -6,11 +6,14 @@ BEGIN { eval "use IO::Pty::Easy;"; plan skip_all => "IO::Pty::Easy is required for this test" if $@; } +use B; sub output_like { local $Test::Builder::Level = $Test::Builder::Level + 1; my ($script, $expected, $desc) = @_; my $pty = IO::Pty::Easy->new; + my $inc = '(' . join(',', map { B::perlstring($_) } @INC) . ')'; + $script = "BEGIN { \@INC = $inc }$script"; $pty->spawn("$^X", "-e", $script); like($pty->read, $expected, $desc); } |