Skip to content

Commit 63044c3

Browse files
committed
Add the check for IO::Pty
1 parent 645ed87 commit 63044c3

File tree

2 files changed

+10
-5
lines changed

2 files changed

+10
-5
lines changed

t/Util.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -822,7 +822,7 @@ BEGIN {
822822
local $Test::Builder::Level = $Test::Builder::Level + 1;
823823
Test::More::fail(<<'HERE');
824824
Your system doesn't seem to have IO::Pty, and the developers
825-
forgot to check in this test file. Please file a bug report
825+
forgot to check for it in this test file. Please file an issue
826826
at https://github.com/beyondgrep/ack3/issues with the name of
827827
the file that generated this failure.
828828
HERE

t/ack-output-color.t

Lines changed: 9 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -9,12 +9,17 @@ use Term::ANSIColor qw(color);
99
use lib 't';
1010
use Util;
1111

12+
if ( not has_io_pty() ) {
13+
plan skip_all => q{You need to install IO::Pty to run this test};
14+
exit(0);
15+
}
16+
1217
prep_environment();
1318

14-
my $CFN = color 'bold green';
15-
my $CRESET = color 'reset';
16-
my $CLN = color 'bold yellow';
17-
my $CM = color 'black on_yellow';
19+
my $CFN = color( 'bold green' );
20+
my $CRESET = color( 'reset' );
21+
my $CLN = color( 'bold yellow' );
22+
my $CM = color( 'black on_yellow' );
1823
my $LINE_END = "\e[0m\e[K";
1924

2025
DOLLAR_1: {

0 commit comments

Comments
 (0)