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

[stas]

stas        2004/08/01 21:24:56

  Modified:    t/response/TestModperl env.pm
  Log:
  polish
  
  Revision  Changes    Path
  1.6       +19 -18    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.5
  retrieving revision 1.6
  diff -u -u -r1.5 -r1.6
  --- env.pm    2 Aug 2004 04:21:41 -0000       1.5
  +++ env.pm    2 Aug 2004 04:24:56 -0000       1.6
  @@ -21,26 +21,28 @@
       ok $ENV{MODPERL_EXTRA_PL}; #set in t/conf/modperl_extra.pl
       ok $ENV{MOD_PERL};
   
  -    $ENV{FOO} = 2;
  -    ok $ENV{FOO} == 2;
  -    ok $env->get('FOO') == 2;
  -
  -    $ENV{FOO}++;
  -    ok $ENV{FOO} == 3;
  -    ok $env->get('FOO') == 3;
  -
  -    $ENV{FOO} .= 6;
  -    ok $ENV{FOO} == 36;
  -    ok $env->get('FOO') == 36;
  -
  -    delete $ENV{FOO};
  -    ok ! $ENV{FOO};
  -    ok ! $env->get('FOO');
  -
       ok $ENV{SERVER_SOFTWARE};
       ok $env->get('SERVER_SOFTWARE');
   
       {
  +        $ENV{FOO} = 2;
  +        ok $ENV{FOO} == 2;
  +        ok $env->get('FOO') == 2;
  +
  +        $ENV{FOO}++;
  +        ok $ENV{FOO} == 3;
  +        ok $env->get('FOO') == 3;
  +
  +        $ENV{FOO} .= 6;
  +        ok $ENV{FOO} == 36;
  +        ok $env->get('FOO') == 36;
  +
  +        delete $ENV{FOO};
  +        ok ! $ENV{FOO};
  +        ok ! $env->get('FOO');
  +    }
  +
  +    {
           local %ENV = (FOO => 1, BAR => 2);
   
           ok $ENV{FOO} == 1;
  @@ -71,8 +73,7 @@
               '$r->subprocess_env($key => $val)';
       }
   
  -    #Make sure each key can be deleted
  -
  +    # make sure each key can be deleted
       for my $key (sort keys %ENV) {
           eval { delete $ENV{$key}; };
           ok t_cmp($@, '', $key);