plugins/t/check_swap.t

   1 #! /usr/bin/perl -w -I ..
   2 #
   3 # Swap Space Tests via check_swap
   4 #
   5 # $Id$
   6 #
   7
   8 use strict;
   9 use Test::More tests => 8;
  10 use NPTest;
  11
  12 my $successOutput = '/^SWAP OK - [0-9]+\% free \([0-9]+ MB out of [0-9]+ MB\)/';
  13 my $failureOutput = '/^SWAP CRITICAL - [0-9]+\% free \([0-9]+ MB out of [0-9]+ MB\)/';
  14 my $warnOutput    = '/^SWAP WARNING - [0-9]+\% free \([0-9]+ MB out of [0-9]+ MB\)/';
  15
  16 my $result;
  17
  18 $result = NPTest->testCmd( "./check_swap -w 1048576 -c 1048576" );              # 1 MB free
  19 cmp_ok( $result->return_code, "==", 0, "At least 1MB free" );
  20 like( $result->output, $successOutput, "Right output" );
  21
  22 $result = NPTest->testCmd( "./check_swap -w 1% -c 1%" );                        # 1% free
  23 cmp_ok( $result->return_code, "==", 0, 'At least 1% free' );
  24 like( $result->output, $successOutput, "Right output" );
  25
  26 $result = NPTest->testCmd( "./check_swap -w 100% -c 100%" );                    # 100% (always critical)
  27 cmp_ok( $result->return_code, "==", 2, 'Get critical because not 100% free' );
  28 like( $result->output, $failureOutput, "Right output" );
  29
  30 $result = NPTest->testCmd( "./check_swap -w 100% -c 1%" );                      # 100% (always warn)
  31 cmp_ok( $result->return_code, "==", 1, 'Get warning because not 100% free' );
  32 like( $result->output, $warnOutput, "Right output" );