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 = 10; 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 $mountpoint_invalid = getTestParameter( "mountpoint_invalid", "NP_MOUNTPOINT_INVALID", "/missing",
  22                                            "The path to a invalid (non-existent) mountpoint" );
  23
  24 my $t;
  25
  26 $t += checkCmd( "./check_disk 100 100       ${mountpoint_valid}",   0, $successOutput );
  27 $t += checkCmd( "./check_disk -w 0 -c 0     ${mountpoint_valid}",   0, $successOutput );
  28 $t += checkCmd( "./check_disk -w 1\% -c 1\% ${mountpoint_valid}",   0, $successOutput );
  29 $t += checkCmd( "./check_disk 0 0           ${mountpoint_valid}",   2, $failureOutput );
  30 $t += checkCmd( "./check_disk 100 100       ${mountpoint_invalid}", 2, '/not found/'  );
  31
  32 exit(0) if defined($Test::Harness::VERSION);
  33 exit($tests - $t);