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.dominik", workdir => "", verbose => $ENV{TEST_VERBOSE} > 1);

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

     9 

    10 # $ENV{HARNESS_ACTIVE}

    11 

    12 my $rc;

    13 

    14 

    15 # create a fake df

    16 

    17  $test->run(args => "-i '/dev/mapper/ITADMIN-ITADMIN 103109920  0  0      0% /ITADMIN'");

    18  $rc = $? >> 8;

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

    20  subtest "run w/ -i" => sub {

    21      like($test->stdout, qr/^OK/, "OK");

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

    23  };

    24 

    25 

    26 $test->run(args => "-i '/dev/mapper/ITADMIN-ITADMIN 103109920  103109920  103109920      0% /ITADMIN'");

    27   $rc = $? >> 8;

    28   is($rc, 1, "exit 1");

    29   subtest "run w/ -i" => sub {

    30       like($test->stdout, qr/^Warning/, "Warning");

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

    32   };

    33 

    34 done_testing;

    35 

    36