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