#!perl -T
# https://github.com/beyondgrep/ack2/issues/276
use strict;
use warnings;
use lib 't';
use Util;
use Test::More;
my @regexes = (
'((foo)bar)',
'((foo)(bar))',
);
plan tests => scalar @regexes;
prep_environment();
my $match_start = "\e[30;43m";
my $match_end = "\e[0m";
for my $regex ( @regexes ) {
subtest $regex => sub {
plan tests => 2;
my ( $stdout, $stderr ) = pipe_into_ack_with_stderr( \'foobar', '--color', $regex );
is_empty_array( $stderr, 'Verify that no lines are printed to standard error' );
is_deeply( $stdout, [ "${match_start}foobar${match_end}" ], 'Verify a single-line output, properly colored' );
};
}