plugins-scripts/t/check_file_age.t

   1 #!/usr/bin/perl -w -I ..
   2 #
   3 # check_file_age tests
   4 #
   5 #
   6
   7 use strict;
   8 use Test::More tests => 15;
   9 use NPTest;
  10
  11 my $successOutput = '/^FILE_AGE OK: /';
  12 my $warningOutput = '/^FILE_AGE WARNING: /';
  13 my $criticalOutput = '/^FILE_AGE CRITICAL: /';
  14 my $unknownOutput = '/^FILE_AGE UNKNOWN: /';
  15
  16 my $result;
  17 my $temp_file = "/tmp/check_file_age.tmp";
  18 my $temp_link = "/tmp/check_file_age.link.tmp";
  19
  20 unlink $temp_file, $temp_link;
  21
  22 $result = NPTest->testCmd(
  23         "./check_file_age"
  24         );
  25 cmp_ok( $result->return_code, '==', 3, "Missing parameters" );
  26 like  ( $result->output, $unknownOutput, "Output for unknown correct" );
  27
  28 $result = NPTest->testCmd(
  29         "./check_file_age -f $temp_file"
  30         );
  31 cmp_ok( $result->return_code, '==', 2, "File not exists" );
  32 like  ( $result->output, $criticalOutput, "Output for file missing correct" );
  33
  34 write_chars(100);
  35 $result = NPTest->testCmd(
  36         "./check_file_age -f $temp_file"
  37         );
  38 cmp_ok( $result->return_code, '==', 0, "File is new enough" );
  39 like  ( $result->output, $successOutput, "Output for success correct" );
  40
  41 sleep 2;
  42
  43 $result = NPTest->testCmd(
  44         "./check_file_age -f $temp_file -w 1"
  45         );
  46 cmp_ok( $result->return_code, '==', 1, "Warning for file over 1 second old" );
  47 like  ( $result->output, $warningOutput, "Output for warning correct" );
  48
  49 $result = NPTest->testCmd(
  50         "./check_file_age -f $temp_file -c 1"
  51         );
  52 cmp_ok( $result->return_code, '==', 2, "Critical for file over 1 second old" );
  53 like  ( $result->output, $criticalOutput, "Output for critical correct" );
  54
  55 $result = NPTest->testCmd(
  56         "./check_file_age -f $temp_file -c 1000 -W 100"
  57         );
  58 cmp_ok( $result->return_code, '==', 0, "Checking file size" );
  59
  60 $result = NPTest->testCmd(
  61         "./check_file_age -f $temp_file -c 1000 -W 101"
  62         );
  63 cmp_ok( $result->return_code, '==', 1, "One byte too short" );
  64
  65 $result = NPTest->testCmd(
  66         "./check_file_age -f $temp_file -c 1000 -C 101"
  67         );
  68 cmp_ok( $result->return_code, '==', 2, "One byte too short - critical" );
  69
  70 symlink $temp_file, $temp_link or die "Cannot create symlink";
  71 $result = NPTest->testCmd("./check_file_age -f $temp_link -c 10");
  72 cmp_ok( $result->return_code, '==', 0, "Works for symlinks" );
  73 unlink $temp_link;
  74
  75 unlink $temp_file;
  76 mkdir $temp_file or die "Cannot create directory";
  77 $result = NPTest->testCmd("./check_file_age -f $temp_file -c 1");
  78 cmp_ok( $result->return_code, '==', 0, "Works for directories" );
  79 rmdir $temp_file;
  80
  81
  82 sub write_chars {
  83         my $size = shift;
  84         open F, "> $temp_file" or die "Cannot write to $temp_file";
  85         print F "A" x $size;
  86         close F;
  87 }