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$$";
  16     $EXPECTED_ENV_VAL = $ENV{$EXPECTED_ENV_VAR}
  17          = "Test env value " . rand(100000);
  18 }
  19
  20 use Test::More tests => 7;
  21 use Catalyst::Test 'TestApp';
  22
  23 use Catalyst::Request;
  24 use HTTP::Headers;
  25 use HTTP::Request::Common;
  26
  27 {
  28     my $env;
  29
  30     ok( my $response = request("http://localhost/dump/env"),
  31         'Request' );
  32     ok( $response->is_success, 'Response Successful 2xx' );
  33     is( $response->content_type, 'text/plain', 'Response Content-Type' );
  34     ok( eval '$env = ' . $response->content, 'Unserialize Catalyst::Request' );
  35     is ref($env), 'HASH';
  36     ok exists($env->{PATH}), 'Have a PATH env var';
  37
  38     SKIP:
  39     {
  40         if ( $ENV{CATALYST_SERVER} ) {
  41             skip 'Using remote server', 1;
  42         }
  43         is $env->{$EXPECTED_ENV_VAR}, $EXPECTED_ENV_VAL,
  44             'Value we set as expected';
  45     }
  46 }
  47