The nginx bullshit can just die

[catagits/Catalyst-Runtime.git] / t / live_catalyst_test.t

diff --git a/t/live_catalyst_test.t b/t/live_catalyst_test.t
index f4f695e..9fb299f 100644 (file)
--- a/t/live_catalyst_test.t
+++ b/t/live_catalyst_test.t
@@ -1,16 +1,29 @@
+use strict;
+use warnings;
+
 use FindBin;
 use lib "$FindBin::Bin/lib";
 use Catalyst::Test 'TestApp', {default_host => 'default.com'};
 use Catalyst::Request;
 
-use Test::More tests => 8;
+use Test::More;
 
 content_like('/',qr/root/,'content check');
 action_ok('/','Action ok ok','normal action ok');
 action_redirect('/engine/response/redirect/one','redirect check');
 action_notfound('/engine/response/status/s404','notfound check');
+
+# so we can see the default test name
+action_ok('/');
+
 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';
 
@@ -30,3 +43,6 @@ my $req = '/dump/request';
     eval '$creq = ' . request($req, \%opts)->content;
     is( $creq->uri->host, $opts{host}, 'target host is mutable via options hashref' );
 }
+
+done_testing;
+