# Copyright (c) 2011 bivio Software, Inc.  All Rights Reserved.
# $Id: client-redirect.btest,v 2.1 2011/02/02 16:44:01 nagler Exp $
test_setup('PetShop');
home_page();
my($resp) = user_agent_instance()->request(
    HTTP::Request->new(
	GET => absolute_uri('/permanent-redirect?p=BIRDS'),
	HTTP::Headers->new(),
	undef,
    ),
);
test_equals(301, $resp->code);
my($uri) = $resp->as_string =~ /(?:^|\n)Location: (\S*)/si;
visit_uri($uri);
verify_text('Amazon Parrot');