The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -T

use strict;
use warnings;

use lib 't';

use Test::More tests => 5;
use Util;
use App::Ack ();
use App::Ack::ConfigDefault ();

prep_environment();

my @commented   = App::Ack::ConfigDefault::options();
my @uncommented = App::Ack::ConfigDefault::options_clean();

cmp_ok( scalar @commented, '>', scalar @uncommented, 'There are fewer lines in the uncommented options.' );

my @output      = run_ack( 'ack', '--create-ackrc' );

ok(scalar(grep { $_ eq '--ignore-ack-defaults' } @output), '--ignore-ack-defaults should be present in output');
@output = grep { $_ ne '--ignore-ack-defaults' } @output;

lists_match(\@output, \@commented, 'lines in output should match the default options');

my @versions = grep { /\Qack version $App::Ack::VERSION/ } @commented;
is( scalar @versions, 1, 'Got exactly one version line' );