1 use strict;

     2 use warnings;

     3 

     4 use Test::More;

     5 use Test::Cmd;

     6 

     7 my $test = Test::Cmd->new(prog => "blib/script/checkfs", workdir => "", verbose => $ENV{TEST_VERBOSE} > 1);

     8 ok($test, "test environment");

     9 

    10 # $ENV{HARNESS_ACTIVE}

    11 

    12 my $rc;

    13 

    14 $test->run();

    15 $rc = $? >> 8;

    16 subtest "run w/o args" => sub {

    17     isnt($rc, 0, "exit !0");

    18     like($test->stderr, qr/^Usage:/, "Usage");

    19 };

    20 

    21 $test->run(args => "-h");

    22 $rc = $? >> 8;

    23 subtest "run w/ -h" => sub {

    24     is($rc, 0, "exit 0");

    25     like($test->stdout, qr/^Usage:.*^Options/ms, "Usage and Options");

    26     is($test->stderr, "", "stderr should be empty");

    27 };

    28 

    29 

    30 $test->run(args => "-m");

    31 $rc = $? >> 8;

    32 subtest "run w/ -m" => sub {

    33     is($rc, 0, "exit 0");

    34     like($test->stdout, qr/^N.*^S.*^O/msi, "looks like manpage");

    35     is($test->stderr, "", "stderr should be empty");

    36 };

    37 

    38 # create a fake df

    39 

    40 

    41 done_testing;