t/live_catalyst_test.t

   1 use FindBin;
   2 use lib "$FindBin::Bin/lib";
   3 use Catalyst::Test 'TestApp', {default_host => 'default.com'};
   4 use Catalyst::Request;
   5
   6 use Test::More tests => 9;
   7
   8 content_like('/',qr/root/,'content check');
   9 action_ok('/','Action ok ok','normal action ok');
  10 action_redirect('/engine/response/redirect/one','redirect check');
  11 action_notfound('/engine/response/status/s404','notfound check');
  12 contenttype_is('/action/local/one','text/plain','Contenttype check');
  13
  14 ### local_request() was not setting response base from base href
  15 {
  16     my $response = request('/base_href_test');
  17     is( $response->base, 'http://www.example.com/', 'response base set from base href');
  18 }
  19
  20 my $creq;
  21 my $req = '/dump/request';
  22
  23 {
  24     eval '$creq = ' . request($req)->content;
  25     is( $creq->uri->host, 'default.com', 'request targets default host set via import' );
  26 }
  27
  28 {
  29     local $Catalyst::Test::default_host = 'localized.com';
  30     eval '$creq = ' . request($req)->content;
  31     is( $creq->uri->host, 'localized.com', 'target host is mutable via package var' );
  32 }
  33
  34 {
  35     my %opts = ( host => 'opthash.com' );
  36     eval '$creq = ' . request($req, \%opts)->content;
  37     is( $creq->uri->host, $opts{host}, 'target host is mutable via options hashref' );
  38 }