diff options
Diffstat (limited to 'plugins/tests/check_curl.t')
| -rwxr-xr-x | plugins/tests/check_curl.t | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/plugins/tests/check_curl.t b/plugins/tests/check_curl.t index 3c914830..eaa9f518 100755 --- a/plugins/tests/check_curl.t +++ b/plugins/tests/check_curl.t | |||
| @@ -21,7 +21,7 @@ use FindBin qw($Bin); | |||
| 21 | 21 | ||
| 22 | $ENV{'LC_TIME'} = "C"; | 22 | $ENV{'LC_TIME'} = "C"; |
| 23 | 23 | ||
| 24 | my $common_tests = 73; | 24 | my $common_tests = 75; |
| 25 | my $ssl_only_tests = 8; | 25 | my $ssl_only_tests = 8; |
| 26 | # Check that all dependent modules are available | 26 | # Check that all dependent modules are available |
| 27 | eval "use HTTP::Daemon 6.01;"; | 27 | eval "use HTTP::Daemon 6.01;"; |
| @@ -178,6 +178,11 @@ sub run_server { | |||
| 178 | $c->send_basic_header; | 178 | $c->send_basic_header; |
| 179 | $c->send_crlf; | 179 | $c->send_crlf; |
| 180 | $c->send_response(HTTP::Response->new( 200, 'OK', undef, 'redirected' )); | 180 | $c->send_response(HTTP::Response->new( 200, 'OK', undef, 'redirected' )); |
| 181 | } elsif ($r->url->path eq "/redirect_rel") { | ||
| 182 | $c->send_basic_header(302); | ||
| 183 | $c->send_header("Location", "/redirect2" ); | ||
| 184 | $c->send_crlf; | ||
| 185 | $c->send_response('moved to /redirect2'); | ||
| 181 | } elsif ($r->url->path eq "/redir_timeout") { | 186 | } elsif ($r->url->path eq "/redir_timeout") { |
| 182 | $c->send_redirect( "/timeout" ); | 187 | $c->send_redirect( "/timeout" ); |
| 183 | } elsif ($r->url->path eq "/timeout") { | 188 | } elsif ($r->url->path eq "/timeout") { |
| @@ -471,9 +476,12 @@ sub run_common_tests { | |||
| 471 | is( $result->return_code, 0, $cmd); | 476 | is( $result->return_code, 0, $cmd); |
| 472 | like( $result->output, '/^HTTP OK: HTTP/1.1 200 OK - \d+ bytes in [\d\.]+ second/', "Output correct: ".$result->output ); | 477 | like( $result->output, '/^HTTP OK: HTTP/1.1 200 OK - \d+ bytes in [\d\.]+ second/', "Output correct: ".$result->output ); |
| 473 | 478 | ||
| 474 | # These tests may block | 479 | $cmd = "$command -f follow -u /redirect_rel -s redirected"; |
| 475 | print "ALRM\n"; | 480 | $result = NPTest->testCmd( $cmd ); |
| 481 | is( $result->return_code, 0, $cmd); | ||
| 482 | like( $result->output, '/^HTTP OK: HTTP/1.1 200 OK - \d+ bytes in [\d\.]+ second/', "Output correct: ".$result->output ); | ||
| 476 | 483 | ||
| 484 | # These tests may block | ||
| 477 | # stickyport - on full urlS port is set back to 80 otherwise | 485 | # stickyport - on full urlS port is set back to 80 otherwise |
| 478 | $cmd = "$command -f stickyport -u /redir_external -t 5 -s redirected"; | 486 | $cmd = "$command -f stickyport -u /redir_external -t 5 -s redirected"; |
| 479 | eval { | 487 | eval { |
