From 07edf5e4760c25baedc1e911221802918744d8f1 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 30 Aug 2016 01:39:07 -0400 Subject: use a consistent implementation of output_like not all of them were passing along @INC --- t/detect.t | 17 ++--------------- 1 file changed, 2 insertions(+), 15 deletions(-) (limited to 't/detect.t') diff --git a/t/detect.t b/t/detect.t index ad03dcc..feaea1c 100644 --- a/t/detect.t +++ b/t/detect.t @@ -2,21 +2,8 @@ use strict; use warnings; use Test::More; -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); -} +use lib 't/lib'; +use TestHelpers 'output_like'; output_like(<