plugins/t/check_disk.t

   1 #! /usr/bin/perl -w -I ..
   2 #
   3 # Disk Space Tests via check_disk
   4 #
   5 # $Id$
   6 #
   7
   8 use strict;
   9 use Test;
  10 use NPTest;
  11
  12 use vars qw($tests);
  13 BEGIN {$tests = 8; plan tests => $tests}
  14
  15 my $successOutput = '/^DISK OK - /';
  16 my $failureOutput = '/^DISK CRITICAL - /';
  17
  18 my $mountpoint_valid   = getTestParameter( "mountpoint_valid",   "NP_MOUNTPOINT_VALID",   "/",
  19                                            "The path to a valid mountpoint" );
  20
  21 my $t;
  22
  23 $t += checkCmd( "./check_disk 100 100       ${mountpoint_valid}",   0, $successOutput );
  24 $t += checkCmd( "./check_disk -w 0 -c 0     ${mountpoint_valid}",   0, $successOutput );
  25 $t += checkCmd( "./check_disk -w 1\% -c 1\% ${mountpoint_valid}",   0, $successOutput );
  26 $t += checkCmd( "./check_disk 0 0           ${mountpoint_valid}",   2, $failureOutput );
  27
  28 exit(0) if defined($Test::Harness::VERSION);
  29 exit($tests - $t);