l7directord/t/29_check_other.t

   1 use strict;
   2 use warnings;
   3 no warnings qw(redefine once);
   4 use lib qw(t/lib lib);
   5 use subs qw(print);
   6 use Cwd;
   7 use L7lib;
   8 use Test::More tests => 3;
   9 use IO::Socket::INET;
  10
  11 L7lib::chdir();
  12 L7lib::comment_out();
  13 require './l7directord';
  14 override();
  15
  16 #...............................................
  17 # test start
  18 #   - check_none
  19 {
  20     set_default();
  21     my $v = { checktimeout => 3 };
  22     my $r = { server => {ip => '127.0.0.1'} , fail_counts => 0 };
  23     my $got = check_none($v, $r);
  24     is $got, $main::SERVICE_UP, 'check_none - ok';
  25 }
  26 #   - check_off
  27 {
  28     set_default();
  29     my $v = { checktimeout => 3 };
  30     my $r = { server => {ip => '127.0.0.1'} , fail_counts => 0 };
  31     my $got = check_off($v, $r);
  32     is $got, $main::SERVICE_DOWN, 'check_off - ok';
  33 }
  34 #   - check_on
  35 {
  36     set_default();
  37     my $v = { checktimeout => 3 };
  38     my $r = { server => {ip => '127.0.0.1'} , fail_counts => 0 };
  39     my $got = check_on($v, $r);
  40     is $got, $main::SERVICE_UP, 'check_on - ok';
  41 }
  42 # test end
  43 #...............................................
  44
  45 L7lib::comment_in();
  46
  47 sub set_default {
  48 }
  49 sub override {
  50     *ld_log = \&__ld_log;
  51 }
  52 sub __ld_log {
  53 }