plugins/tests/check_http.t

   1 #! /usr/bin/perl -w -I ..
   2 #
   3 # Test check_http by having an actual HTTP server running
   4 #
   5
   6 use strict;
   7 use Test::More;
   8 use NPTest;
   9 use FindBin qw($Bin);
  10
  11 use HTTP::Daemon;
  12 use HTTP::Status;
  13 use HTTP::Response;
  14
  15 # set a fixed version, so the header size doesn't vary
  16 $HTTP::Daemon::VERSION = "1.00";
  17
  18 my $port = 50000 + int(rand(1000));
  19
  20 my $pid = fork();
  21 if ($pid) {
  22         # Parent
  23         #print "parent\n";
  24         # give our webserver some time to startup
  25         sleep(1);
  26 } else {
  27         # Child
  28         #print "child\n";
  29
  30         my $d = HTTP::Daemon->new(
  31                 LocalPort => $port,
  32                 LocalAddr => "127.0.0.1",
  33         ) || die;
  34         print "Please contact me at: <URL:", $d->url, ">\n";
  35         while (my $c = $d->accept ) {
  36                 while (my $r = $c->get_request) {
  37                         if ($r->method eq "GET" and $r->url->path =~ m^/statuscode/(\d+)^) {
  38                                 $c->send_basic_header($1);
  39                                 $c->send_crlf;
  40                         } elsif ($r->method eq "GET" and $r->url->path =~ m^/file/(.*)^) {
  41                                 $c->send_basic_header;
  42                                 $c->send_crlf;
  43                                 $c->send_file_response("$Bin/var/$1");
  44                         } elsif ($r->method eq "GET" and $r->url->path eq "/slow") {
  45                                 $c->send_basic_header;
  46                                 $c->send_crlf;
  47                                 sleep 1;
  48                                 $c->send_response("slow");
  49                         } elsif ($r->url->path eq "/method") {
  50                                 if ($r->method eq "DELETE") {
  51                                         $c->send_error(RC_METHOD_NOT_ALLOWED);
  52                                 } elsif ($r->method eq "foo") {
  53                                         $c->send_error(RC_NOT_IMPLEMENTED);
  54                                 } else {
  55                                         $c->send_status_line(200, $r->method);
  56                                 }
  57                         } elsif ($r->url->path eq "/postdata") {
  58                                 $c->send_basic_header;
  59                                 $c->send_crlf;
  60                                 $c->send_response($r->method.":".$r->content);
  61                         } elsif ($r->url->path eq "/redirect") {
  62                                 $c->send_redirect( "/redirect2" );
  63                         } elsif ($r->url->path eq "/redirect2") {
  64                                 $c->send_basic_header;
  65                                 $c->send_crlf;
  66                                 $c->send_response("redirected");
  67                         } else {
  68                                 $c->send_error(RC_FORBIDDEN);
  69                         }
  70                         $c->close;
  71                 }
  72         }
  73         exit;
  74 }
  75
  76 END { if ($pid) { print "Killing $pid\n"; kill "INT", $pid } };
  77
  78 if ($ARGV[0] && $ARGV[0] eq "-d") {
  79         sleep 1000;
  80 }
  81
  82 if (-x "./check_http") {
  83         plan tests => 47;
  84 } else {
  85         plan skip_all => "No check_http compiled";
  86 }
  87
  88 my $result;
  89 my $command = "./check_http -H 127.0.0.1 -p $port";
  90
  91 $result = NPTest->testCmd( "$command -u /file/root" );
  92 is( $result->return_code, 0, "/file/root");
  93 like( $result->output, '/^HTTP OK HTTP/1.1 200 OK - 274 bytes in [\d\.]+ seconds/', "Output correct" );
  94
  95 $result = NPTest->testCmd( "$command -u /file/root -s Root" );
  96 is( $result->return_code, 0, "/file/root search for string");
  97 TODO: {
  98 local $TODO = "Output is different if a string is requested - should this be right?";
  99 like( $result->output, '/^HTTP OK HTTP/1.1 200 OK - 274 bytes in [\d\.]+ seconds/', "Output correct" );
 100 }
 101
 102 $result = NPTest->testCmd( "$command -u /slow" );
 103 is( $result->return_code, 0, "/file/root");
 104 like( $result->output, '/^HTTP OK HTTP/1.1 200 OK - 177 bytes in ([\d\.]+) seconds/', "Output correct" );
 105 $result->output =~ /in ([\d\.]+) seconds/;
 106 cmp_ok( $1, ">", 1, "Time is > 1 second" );
 107
 108 my $cmd;
 109 $cmd = "$command -u /statuscode/200 -e 200";
 110 $result = NPTest->testCmd( $cmd );
 111 is( $result->return_code, 0, $cmd);
 112 like( $result->output, '/^HTTP OK HTTP/1.1 200 OK - 89 bytes in ([\d\.]+) seconds/', "Output correct: ".$result->output );
 113
 114 $cmd = "$command -u /statuscode/201 -e 201";
 115 $result = NPTest->testCmd( $cmd );
 116 is( $result->return_code, 0, $cmd);
 117 like( $result->output, '/^HTTP OK HTTP/1.1 201 Created - 94 bytes in ([\d\.]+) seconds /', "Output correct: ".$result->output );
 118
 119 $cmd = "$command -u /statuscode/201 -e 200";
 120 $result = NPTest->testCmd( $cmd );
 121 is( $result->return_code, 2, $cmd);
 122 like( $result->output, '/^HTTP CRITICAL - Invalid HTTP response received from host on port \d+: HTTP/1.1 201 Created/', "Output correct: ".$result->output );
 123
 124 $cmd = "$command -u /statuscode/200 -e 200,201,202";
 125 $result = NPTest->testCmd( $cmd );
 126 is( $result->return_code, 0, $cmd);
 127 like( $result->output, '/^HTTP OK HTTP/1.1 200 OK - 89 bytes in ([\d\.]+) seconds/', "Output correct: ".$result->output );
 128
 129 $cmd = "$command -u /statuscode/201 -e 200,201,202";
 130 $result = NPTest->testCmd( $cmd );
 131 is( $result->return_code, 0, $cmd);
 132 like( $result->output, '/^HTTP OK HTTP/1.1 201 Created - 94 bytes in ([\d\.]+) seconds/', "Output correct: ".$result->output );
 133
 134 $cmd = "$command -u /statuscode/203 -e 200,201,202";
 135 $result = NPTest->testCmd( $cmd );
 136 is( $result->return_code, 2, $cmd);
 137 like( $result->output, '/^HTTP CRITICAL - Invalid HTTP response received from host on port (\d+): HTTP/1.1 203 Non-Authoritative Information/', "Output correct: ".$result->output );
 138
 139 $cmd = "$command -j HEAD -u /method";
 140 $result = NPTest->testCmd( $cmd );
 141 is( $result->return_code, 0, $cmd);
 142 like( $result->output, '/^HTTP OK HTTP/1.1 200 HEAD - 19 bytes in ([\d\.]+) seconds/', "Output correct: ".$result->output );
 143
 144 $cmd = "$command -j POST -u /method";
 145 $result = NPTest->testCmd( $cmd );
 146 is( $result->return_code, 0, $cmd);
 147 like( $result->output, '/^HTTP OK HTTP/1.1 200 POST - 19 bytes in ([\d\.]+) seconds/', "Output correct: ".$result->output );
 148
 149 $cmd = "$command -j GET -u /method";
 150 $result = NPTest->testCmd( $cmd );
 151 is( $result->return_code, 0, $cmd);
 152 like( $result->output, '/^HTTP OK HTTP/1.1 200 GET - 18 bytes in ([\d\.]+) seconds/', "Output correct: ".$result->output );
 153
 154 $cmd = "$command -u /method";
 155 $result = NPTest->testCmd( $cmd );
 156 is( $result->return_code, 0, $cmd);
 157 like( $result->output, '/^HTTP OK HTTP/1.1 200 GET - 18 bytes in ([\d\.]+) seconds/', "Output correct: ".$result->output );
 158
 159 $cmd = "$command -P foo -u /method";
 160 $result = NPTest->testCmd( $cmd );
 161 is( $result->return_code, 0, $cmd);
 162 like( $result->output, '/^HTTP OK HTTP/1.1 200 POST - 19 bytes in ([\d\.]+) seconds/', "Output correct: ".$result->output );
 163
 164 $cmd = "$command -j DELETE -u /method";
 165 $result = NPTest->testCmd( $cmd );
 166 is( $result->return_code, 1, $cmd);
 167 like( $result->output, '/^HTTP WARNING: HTTP/1.1 405 Method Not Allowed/', "Output correct: ".$result->output );
 168
 169 $cmd = "$command -j foo -u /method";
 170 $result = NPTest->testCmd( $cmd );
 171 is( $result->return_code, 2, $cmd);
 172 like( $result->output, '/^HTTP CRITICAL: HTTP/1.1 501 Not Implemented/', "Output correct: ".$result->output );
 173
 174 $cmd = "$command -P stufftoinclude -u /postdata -s POST:stufftoinclude";
 175 $result = NPTest->testCmd( $cmd );
 176 is( $result->return_code, 0, $cmd);
 177 like( $result->output, '/^HTTP OK HTTP/1.1 200 OK - ([\d\.]+) second/', "Output correct: ".$result->output );
 178
 179 $cmd = "$command -j PUT -P stufftoinclude -u /postdata -s PUT:stufftoinclude";
 180 $result = NPTest->testCmd( $cmd );
 181 is( $result->return_code, 0, $cmd);
 182 like( $result->output, '/^HTTP OK HTTP/1.1 200 OK - ([\d\.]+) second/', "Output correct: ".$result->output );
 183
 184 # To confirm that the free doesn't segfault
 185 $cmd = "$command -P stufftoinclude -j PUT -u /postdata -s PUT:stufftoinclude";
 186 $result = NPTest->testCmd( $cmd );
 187 is( $result->return_code, 0, $cmd);
 188 like( $result->output, '/^HTTP OK HTTP/1.1 200 OK - ([\d\.]+) second/', "Output correct: ".$result->output );
 189
 190 $cmd = "$command -u /redirect";
 191 $result = NPTest->testCmd( $cmd );
 192 is( $result->return_code, 0, $cmd);
 193 like( $result->output, '/^HTTP OK - HTTP/1.1 301 Moved Permanently - [\d\.]+ second/', "Output correct: ".$result->output );
 194
 195 $cmd = "$command -f follow -u /redirect";
 196 $result = NPTest->testCmd( $cmd );
 197 is( $result->return_code, 0, $cmd);
 198 like( $result->output, '/^HTTP OK HTTP/1.1 200 OK - 183 bytes in [\d\.]+ second/', "Output correct: ".$result->output );
 199
 200 $cmd = "$command -u /redirect -k 'follow: me'";
 201 $result = NPTest->testCmd( $cmd );
 202 is( $result->return_code, 0, $cmd);
 203 like( $result->output, '/^HTTP OK - HTTP/1.1 301 Moved Permanently - [\d\.]+ second/', "Output correct: ".$result->output );
 204
 205 $cmd = "$command -f follow -u /redirect -k 'follow: me'";
 206 $result = NPTest->testCmd( $cmd );
 207 is( $result->return_code, 0, $cmd);
 208 like( $result->output, '/^HTTP OK HTTP/1.1 200 OK - 183 bytes in [\d\.]+ second/', "Output correct: ".$result->output );
 209