plugins/t/check_fping.t

   1 #! /usr/bin/perl -w
   2 # $Id$
   3
   4 use strict;
   5 use Cache;
   6 use Test;
   7 use vars qw($tests);
   8
   9 BEGIN {$tests = 3; plan tests => $tests}
  10
  11 exit(0) unless (-x "./check_fping");
  12
  13 #`fping 127.0.0.1 > /dev/null 2>&1` || exit(77);
  14
  15 my $null = '';
  16 my $cmd;
  17 my $str;
  18 my $t;
  19 my $stat;
  20
  21
  22 $cmd = "./check_fping 127.0.0.1";
  23 $str = `$cmd`;
  24 $t += ok $?>>8,0;
  25 print "Test was: $cmd\n" if ($?);
  26 $t += ok $str, '/^FPING OK - 127.0.0.1/';
  27
  28 $cmd = "./check_fping $Cache::nullhost";
  29 $str = `$cmd`;
  30 if ($?>>8 == 1 or $?>>8 == 2) {
  31         $stat = 2;
  32 }
  33 $t += ok $stat,2;
  34 print "Test was: $cmd\n" if (($?>>8) < 1);
  35
  36 exit(0) if defined($Test::Harness::VERSION);
  37 exit($tests - $t);