The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More 0.88;

use App::Rolling;

my $roll = 'bin/roll';

ok 1;

if ($ENV{APP_ROLLING_ALL_TEST}) {
    system(
        $^X, (map { "-I$_" } @INC),
        $roll,
        '--version'
    );
    is $?, 256, '--version';
    system(
        $^X, (map { "-I$_" } @INC),
        $roll,
        '-v'
    );
    is $?, 256, '-v';

    system(
        $^X, (map { "-I$_" } @INC),
        $roll,
        '--help'
    );
    is $?, 512, '--help';
    system(
        $^X, (map { "-I$_" } @INC),
        $roll,
        '-h'
    );
    is $?, 512, '-h';

    system(
        $^X, (map { "-I$_" } @INC),
        $roll,
    );
    is $?, 512, 'no args';
}

done_testing;