text: #!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' );
      };
  }
  