plugins/t/check_http.t

   1 #! /usr/bin/perl -w
   2
   3 use strict;
   4 use Cache;
   5 use Test;
   6 use vars qw($tests);
   7
   8 BEGIN {$tests = 3; plan tests => $tests}
   9
  10 my $null = '';
  11 my $str;
  12 my $t;
  13
  14 $str = `./check_http $Cache::hostname -wt 300 -ct 600`;
  15 $t += ok $?>>8,0;
  16 $t += ok $str, '/HTTP\/1.1 [0-9]{3} (OK|Found) - [0-9]+ second response time/';
  17
  18 $str = `./check_http $Cache::nullhost -wt 1 -ct 2`;
  19 $t += ok $?>>8,2;
  20
  21 exit(0) if defined($Test::Harness::VERSION);
  22 exit($tests - $t);