cvs commit: modperl-2.0/t/response/TestModperl env.pm

[stas]

stas        2004/08/01 21:21:41

  Modified:    t/response/TestModperl env.pm
  Log:
  test:
  $r->subprocess_env->set($key => $val);
  $r->subprocess_env->get($key);
  
  Revision  Changes    Path
  1.5       +13 -3     modperl-2.0/t/response/TestModperl/env.pm
  
  Index: env.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/env.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -u -r1.4 -r1.5
  --- env.pm    9 Jul 2004 18:53:01 -0000       1.4
  +++ env.pm    2 Aug 2004 04:21:41 -0000       1.5
  @@ -14,7 +14,7 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 20 + keys(%ENV);
  +    plan $r, tests => 22 + keys(%ENV);
   
       my $env = $r->subprocess_env;
   
  @@ -58,8 +58,18 @@
       #skip "r->subprocess_env + local() doesnt fully work yet", 1;
       ok 1; #the skip() message is just annoying
   
  -    ok $ENV{SERVER_SOFTWARE};
  -    ok $env->get('SERVER_SOFTWARE');
  +    {
  +        my $key = 'SERVER_SOFTWARE';
  +        my $val = $ENV{SERVER_SOFTWARE};
  +        ok $val;
  +        ok t_cmp $env->get($key), $val, '$r->subprocess_env->get($key)';
  +        ok t_cmp $r->subprocess_env($key), $val, '$r->subprocess_env($key)';
  +
  +        $val = 'BAR';
  +        $r->subprocess_env($key => $val);
  +        ok t_cmp $r->subprocess_env($key), $val,
  +            '$r->subprocess_env($key => $val)';
  +    }
   
       #Make sure each key can be deleted