t/aggregate/live_engine_request_env.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/../lib";
   8
   9 use vars qw/
  10     $EXPECTED_ENV_VAR
  11     $EXPECTED_ENV_VAL
  12 /;
  13
  14 BEGIN {
  15     $EXPECTED_ENV_VAR = "CATALYSTTEST$$"; # has to be uppercase otherwise fails on Win32
  16     $EXPECTED_ENV_VAL = "Test env value " . rand(100000);
  17 }
  18
  19 use Test::More;
  20 use Catalyst::Test 'TestApp';
  21
  22 use Catalyst::Request;
  23 use HTTP::Headers;
  24 use HTTP::Request::Common;
  25
  26 foreach my $path (qw/ env env_on_engine /) {
  27     my $response = request("http://localhost/dump/${path}", {
  28         extra_env => { $EXPECTED_ENV_VAR => $EXPECTED_ENV_VAL },
  29     });
  30
  31     ok( $response, 'Request' );
  32     ok( $response->is_success, 'Response Successful 2xx' );
  33     is( $response->content_type, 'text/plain', 'Response Content-Type' );
  34
  35     my $env;
  36     ok( eval '$env = ' . $response->content, 'Unserialize Catalyst::Request' );
  37     is ref($env), 'HASH';
  38     ok exists($env->{PATH_INFO}), 'Have a PATH_INFO env var for ' . $path;
  39
  40     SKIP:
  41     {
  42         if ( $ENV{CATALYST_SERVER} ) {
  43             skip 'Using remote server', 1;
  44         }
  45         is $env->{$EXPECTED_ENV_VAR}, $EXPECTED_ENV_VAL,
  46             'Value we set as expected for ' . $path;
  47     }
  48 }
  49
  50 done_testing;
  51