Commit | Line | Data |
e74b3d5c |
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 { |
d7eb055c |
15 | $EXPECTED_ENV_VAR = "CATALYSTTEST$$"; # has to be uppercase otherwise fails on Win32 |
e74b3d5c |
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' ); |
69cc9001 |
34 | ok( eval '$env = ' . $response->content, 'Unserialize Catalyst::Request' ); |
35 | is ref($env), 'HASH'; |
e74b3d5c |
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 | |