cvs commit: httpd-test/perl-framework/t/ssl env.t

[dougm]

dougm       01/12/21 15:42:22

  Modified:    perl-framework/t/ssl env.t
  Log:
  get ssl/env test working on win32
  
  Revision  Changes    Path
  1.5       +10 -1     httpd-test/perl-framework/t/ssl/env.t
  
  Index: env.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/env.t,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- env.t     2001/12/14 08:55:38     1.4
  +++ env.t     2001/12/21 23:42:22     1.5
  @@ -36,6 +36,15 @@
       my($env, $expect, $ne) = @_;
   
       while (my($key, $val) = each %$expect) {
  +        if (Apache::TestConfig::WIN32) {
  +            #perl uppercases all %ENV keys
  +            #which causes SSL_*_DN_Email lookups to fail
  +            $key = uc $key;
  +        }
  +        unless ($ne || $env->{$key}) {
  +            print "#$key does not exist\n";
  +            $env->{$key} = ""; #prevent use of unitialized value
  +        }
           ok $ne ? not exists $env->{$key} : $env->{$key} eq $val;
       }
   }
  @@ -45,7 +54,7 @@
   
       my %env;
   
  -    for my $line (split /\n/, $str) {
  +    for my $line (split /[\r\n]+/, $str) {
           my($key, $val) = split /\s*=\s*/, $line, 2;
           next unless $key and $val;
           $env{$key} = $val;