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 = $ENV{$EXPECTED_ENV_VAR}
  17          = "Test env value " . rand(100000);
  18 }
  19
  20 use Test::More;
  21 use Catalyst::Test 'TestApp';
  22
  23 use Catalyst::Request;
  24 use HTTP::Headers;
  25 use HTTP::Request::Common;
  26
  27 plan skip_all => 'Does not work in live tests' if ( $ENV{CATALYST_SERVER} );
  28
  29 {
  30     my $env;
  31
  32     ok( my $response = request("http://localhost/dump/env"),
  33         'Request' );
  34     ok( $response->is_success, 'Response Successful 2xx' );
  35     is( $response->content_type, 'text/plain', 'Response Content-Type' );
  36     ok( eval '$env = ' . $response->content, 'Unserialize Catalyst::Request' );
  37     is ref($env), 'HASH';
  38     ok exists($env->{PATH}), 'Have a PATH env var';
  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';
  47     }
  48 }
  49
  50 done_testing;
  51