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

[stas]

stas        2002/06/02 06:28:18

  Modified:    t/response/TestModperl subenv.pm
  Log:
  no logic change, just re-grouping the code so it's easier to read what's
  being tested
  
  Revision  Changes    Path
  1.2       +3 -14     modperl-2.0/t/response/TestModperl/subenv.pm
  
  Index: subenv.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/subenv.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- subenv.pm 21 May 2002 02:50:39 -0000      1.1
  +++ subenv.pm 2 Jun 2002 13:28:18 -0000       1.2
  @@ -16,27 +16,22 @@
       plan $r, tests => 16;
   
       my $env = $r->subprocess_env;
  -
       ok $env;
   
  +    # subprocess_env in void context populates the same as +SetEnv
       ok_false($r, 'REMOTE_ADDR');
  -
  -    $r->subprocess_env; #void context populates
  +    $r->subprocess_env; 
  +    ok_true($r, 'REMOTE_ADDR');
   
       $env = $r->subprocess_env; #table may have been overlayed
   
  -    ok_true($r, 'REMOTE_ADDR');
  -
       $env->set(FOO => 1);
  -
       ok_true($r, 'FOO');
   
       $r->subprocess_env(FOO => undef);
  -
       ok_false($r, 'FOO');
   
       $r->subprocess_env(FOO => 1);
  -
       ok_true($r, 'FOO');
   
       Apache::OK;
  @@ -46,11 +41,8 @@
       my($r, $key) = @_;
   
       my $env = $r->subprocess_env;
  -
       ok $env->get($key);
  -
       ok $env->{$key};
  -
       ok $r->subprocess_env($key);
   }
   
  @@ -58,11 +50,8 @@
       my($r, $key) = @_;
   
       my $env = $r->subprocess_env;
  -
       ok ! $env->get($key);
  -
       ok ! $env->{$key};
  -
       ok ! $r->subprocess_env($key);
   }