#!perl

use warnings;
use strict;

use Test::More;

use lib 't';
use Util;

plan skip_all => q{Can't be checked under Win32} if is_win32;
plan tests => 10;

prep_environment();

my $program = $0;

# change permissions of this file to unreadable
my $old_mode;
(undef, undef, $old_mode) = stat($program);
my $nchanged = chmod 0000, $program;
is( $nchanged, 1, sprintf( 'chmodded %s to 0000 from %o', $program, $old_mode ) );

# execute a search on this file
check_with( 'regex', $program );
#   --count takes a different execution path
check_with( 'regex', '--count', $program );

# change permissions back
chmod $old_mode, $program;
is( $nchanged, 1, sprintf( 'chmodded %s back to %o', $program, $old_mode ) );

sub check_with {
    local $Test::Builder::Level = $Test::Builder::Level + 1;

    my ($stdout, $stderr) = run_ack_with_stderr( @_ );
    is( $?,                0, 'Search normal: exit code zero' );
    is( scalar @{$stdout}, 0, 'Search normal: no normal output' );
    is( scalar @{$stderr}, 1, 'Search normal: one line of stderr output' );
    # don't check for exact text of warning, the message text depends on LC_MESSAGES
    like( $stderr->[0], qr/file-permission\.t:/, 'Search normal: warning message ok' );
}