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 => 8;
   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 my $creq;
  15 my $req = '/dump/request';
  16
  17 {
  18     eval '$creq = ' . request($req)->content;
  19     is( $creq->uri->host, 'default.com', 'request targets default host set via import' );
  20 }
  21
  22 {
  23     local $Catalyst::Test::default_host = 'localized.com';
  24     eval '$creq = ' . request($req)->content;
  25     is( $creq->uri->host, 'localized.com', 'target host is mutable via package var' );
  26 }
  27
  28 {
  29     my %opts = ( host => 'opthash.com' );
  30     eval '$creq = ' . request($req, \%opts)->content;
  31     is( $creq->uri->host, $opts{host}, 'target host is mutable via options hashref' );
  32 }