plugins/t/check_udp.t

   1 #! /usr/bin/perl -w
   2
   3 #use strict;
   4 use Cache;
   5 use Helper;
   6 use Test;
   7 use vars qw($tests);
   8
   9 BEGIN {$tests = 3; plan tests => $tests}
  10
  11 my $null = '';
  12 my $str;
  13 my $t;
  14 my $hostname=get_option("udp_hostname","UDP host name");
  15
  16 $str = `./check_udp $hostname -p 37 -wt 300 -ct 600`;
  17 $t += ok $?>>8,0;
  18 $t += ok $str, '/^Connection accepted on port 37 - [0-9]+ second response time$/';
  19
  20 $str = `./check_udp $Cache::nullhost -p 80 -wt 0 -ct 0 -to 1`;
  21 $t += ok $?>>8,2;
  22
  23 exit(0) if defined($Test::Harness::VERSION);
  24 exit($tests - $t);