Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
48 lines (37 sloc) 1.07 KB
#!/usr/bin/perl
use strict;
use Perlbal::Test;
use Perlbal::Test::WebServer;
use Perlbal::Test::WebClient;
use Test::More 'no_plan';
my $port = new_port();
my $conf = qq{
LOAD Redirect
LOAD Vhosts
CREATE SERVICE ss
SET role = selector
SET listen = 127.0.0.1:$port
SET persist_client = 1
SET plugins = Vhosts
VHOST example.com = test
ENABLE ss
CREATE SERVICE test
SET role = web_server
SET persist_client = 1
SET plugins = Redirect
REDIRECT HOST example.com example.net
ENABLE test
};
my $msock = start_server($conf);
ok($msock, 'perlbal started');
# make first web client
my $wc = Perlbal::Test::WebClient->new;
$wc->server("127.0.0.1:$port");
$wc->keepalive(1);
$wc->http_version('1.0');
my $resp = $wc->request({ host => "example.com", }, "foo/bar.txt"); # Test lib prepends '/' for me.
ok($resp, "Got a response");
is($resp->code, 301, "Redirect has proper code");
like($resp->header("Location"), qr{^http://example.net/foo/bar.txt$}, "Correct redirect response");
like($resp->header("Connection"), qr/Keep-Alive/i, "... and keep-alives are on");
1;
Jump to Line
Something went wrong with that request. Please try again.