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 => 10;
   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
  13 # so we can see the default test name
  14 action_ok('/');
  15
  16 contenttype_is('/action/local/one','text/plain','Contenttype check');
  17
  18 ### local_request() was not setting response base from base href
  19 {
  20     my $response = request('/base_href_test');
  21     is( $response->base, 'http://www.example.com/', 'response base set from base href');
  22 }
  23
  24 my $creq;
  25 my $req = '/dump/request';
  26
  27 {
  28     eval '$creq = ' . request($req)->content;
  29     is( $creq->uri->host, 'default.com', 'request targets default host set via import' );
  30 }
  31
  32 {
  33     local $Catalyst::Test::default_host = 'localized.com';
  34     eval '$creq = ' . request($req)->content;
  35     is( $creq->uri->host, 'localized.com', 'target host is mutable via package var' );
  36 }
  37
  38 {
  39     my %opts = ( host => 'opthash.com' );
  40     eval '$creq = ' . request($req, \%opts)->content;
  41     is( $creq->uri->host, $opts{host}, 'target host is mutable via options hashref' );
  42 }