diff -r bdbd5e99f85a -r a29ba54493af t/666-dominik.t --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/t/666-dominik.t Fri Jan 20 14:17:34 2012 +0100 @@ -0,0 +1,36 @@ +use strict; +use warnings; + +use Test::More; +use Test::Cmd; + +my $test = Test::Cmd->new(prog => "blib/script/checkfs.dominik", workdir => "", verbose => $ENV{TEST_VERBOSE} > 1); +ok($test, "test environment"); + +# $ENV{HARNESS_ACTIVE} + +my $rc; + + +# create a fake df + + $test->run(args => "-i '/dev/mapper/ITADMIN-ITADMIN 103109920 0 0 0% /ITADMIN'"); + $rc = $? >> 8; + is($rc, 0, "exit 0"); + subtest "run w/ -i" => sub { + like($test->stdout, qr/^OK/, "OK"); + is($test->stderr, "", "stderr should be empty"); + }; + + +$test->run(args => "-i '/dev/mapper/ITADMIN-ITADMIN 103109920 103109920 103109920 0% /ITADMIN'"); + $rc = $? >> 8; + is($rc, 1, "exit 1"); + subtest "run w/ -i" => sub { + like($test->stdout, qr/^Warning/, "Warning"); + is($test->stderr, "", "stderr should be empty"); + }; + +done_testing; + +