X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flive_catalyst_test.t;h=1adecbbfbbceee500347db14ba646f480e54bcb9;hp=f4f695ed4e7f08212668bfd78e3f8c4a1583e7db;hb=9c74923de2304b8c8f0a7a2faa0854ad9b4d3a92;hpb=fb34eb9c063c53abd061d260a30f0ca7c57a0833

diff --git a/t/live_catalyst_test.t b/t/live_catalyst_test.t
index f4f695e..1adecbb 100644
--- a/t/live_catalyst_test.t
+++ b/t/live_catalyst_test.t
@@ -3,7 +3,7 @@ use lib "$FindBin::Bin/lib";
 use Catalyst::Test 'TestApp', {default_host => 'default.com'};
 use Catalyst::Request;
 
-use Test::More tests => 8;
+use Test::More tests => 9;
 
 content_like('/',qr/root/,'content check');
 action_ok('/','Action ok ok','normal action ok');
@@ -11,6 +11,12 @@ action_redirect('/engine/response/redirect/one','redirect check');
 action_notfound('/engine/response/status/s404','notfound check');
 contenttype_is('/action/local/one','text/plain','Contenttype check');
 
+### local_request() was not setting response base from base href
+{
+    my $response = request('/base_href_test');
+    is( $response->base, 'http://www.example.com/', 'response base set from base href');
+}
+
 my $creq;
 my $req = '/dump/request';