use strict;
use warnings;
use Test::More 0.88;
my $command = 'bin/stats';
ok 1;
if ($ENV{STATS_ALL_TEST}) {
# version
system(
$^X, (map { "-I$_" } @INC),
$command,
'--version'
);
is $?, 256, '--version';
system(
$^X, (map { "-I$_" } @INC),
$command,
'-v'
);
is $?, 256, '-v';
# help
system(
$^X, (map { "-I$_" } @INC),
$command,
'--help'
);
is $?, 256, '--help';
system(
$^X, (map { "-I$_" } @INC),
$command,
'-h'
);
is $?, 256, '-h';
# invalid option
system(
$^X, (map { "-I$_" } @INC),
$command,
"--hoge"
);
is $?, 512, 'invalid option';
system(
$^X, (map { "-I$_" } @INC),
$command,
"-q 1"
);
is $?, 512, 'invalid option';
}
done_testing;