← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy

« back to all changes in this revision

Viewing changes to t/response/TestDirective/env.pm

  • Committer: Bazaar Package Importer
  • Author(s): Andres Salomon
  • Date: 2005-08-12 01:40:38 UTC
  • mfrom: (1.1.2 upstream) (2.1.1 sarge)
  • Revision ID: james.westby@ubuntu.com-20050812014038-gjigefs55pqx4qc8
Tags: 2.0.1-3
Grr.  Really include perl.conf file; it got lost due to diff not
wanting to add an empty file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/response/TestDirective/env.pm
6
6
use Apache::Test;
7
7
use Apache::TestUtil;
8
8
 
9
 
use Apache::RequestRec ();
 
9
use Apache2::RequestRec ();
10
10
use APR::Table ();
11
11
 
12
 
use Apache::Const -compile => 'OK';
 
12
use Apache2::Const -compile => 'OK';
13
13
 
14
14
sub handler {
15
15
    my $r = shift;
17
17
    plan $r, tests => 8;
18
18
 
19
19
    # %ENV
20
 
    ok t_cmp('env_dir1', 
21
 
             env_get('srv1'),
 
20
    ok t_cmp(env_get('srv1'),
 
21
             'env_dir1', 
22
22
             '%ENV per-dir override per-srv');
23
23
 
24
 
    ok t_cmp('env_srv2', 
25
 
             env_get('srv2'),
 
24
    ok t_cmp(env_get('srv2'),
 
25
             'env_srv2',
26
26
             '%ENV per-srv');
27
27
 
28
 
    ok t_cmp('env_dir2', 
29
 
             env_get('dir2'),
 
28
    ok t_cmp(env_get('dir2'),
 
29
             'env_dir2',
30
30
             '%ENV per-dir');
31
31
 
32
32
    # setup by Apache::TestRun
33
 
    ok t_cmp('test.host.name',
34
 
             $ENV{APACHE_TEST_HOSTNAME},
 
33
    ok t_cmp($ENV{APACHE_TEST_HOSTNAME},
 
34
             'test.host.name',
35
35
             '%ENV PerlPassEnv');
36
36
 
37
37
    # $r->subprocess_env
38
 
    ok t_cmp('env_dir1', 
39
 
             env_get('srv1', $r),
 
38
    ok t_cmp(env_get('srv1', $r),
 
39
             'env_dir1',
40
40
             '$r->subprocess_env per-dir override per-srv');
41
41
 
42
 
    ok t_cmp('env_srv2', 
43
 
             env_get('srv2', $r),
 
42
    ok t_cmp(env_get('srv2', $r),
 
43
             'env_srv2',
44
44
             '$r->subprocess_env per-srv');
45
45
 
46
 
    ok t_cmp('env_dir2', 
47
 
             env_get('dir2', $r),
 
46
    ok t_cmp(env_get('dir2', $r),
 
47
             'env_dir2',
48
48
             '$r->subprocess_env per-dir');
49
49
 
50
50
    # setup by Apache::TestRun
51
 
    ok t_cmp('test.host.name',
52
 
             $r->subprocess_env->get('APACHE_TEST_HOSTNAME'),
 
51
    ok t_cmp($r->subprocess_env->get('APACHE_TEST_HOSTNAME'),
 
52
             'test.host.name',
53
53
             '$r->subprocess_env PerlPassEnv');
54
54
 
55
 
    Apache::OK;
 
55
    Apache2::Const::OK;
56
56
}
57
57
 
58
58
sub env_get {