This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make cpan/CGI/t/http.t (hopefully) compatible with VMS
[perl5.git] / cpan / CGI / t / http.t
index c46c8ff..2ed3863 100644 (file)
@@ -7,8 +7,6 @@ use lib qw(t/lib);
 use Test::More tests => 7;
 use CGI;
 
-%ENV=();
-
 my $cgi = CGI->new();
 
 {
@@ -36,8 +34,11 @@ my $cgi = CGI->new();
     # https()
     # The same as http(), but operates on the HTTPS environment variables present when the SSL protocol is in
     # effect.  Can be used to determine whether SSL is turned on.
+    my @expect = grep /^HTTPS/, keys %ENV;
+    push @expect, 'HTTPS'         if not exists $ENV{HTTPS};
+    push @expect, 'HTTPS_KEYSIZE' if not exists $ENV{HTTPS_KEYSIZE};
     local $ENV{'HTTPS'} = 'ON';
     local $ENV{'HTTPS_KEYSIZE'} = 512;
     is $cgi->https(), 'ON', 'scalar context to check SSL is on';
-    ok eq_set( [$cgi->https()], [qw(HTTPS HTTPS_KEYSIZE)]), 'list context returns https keys';
+    ok eq_set( [$cgi->https()], \@expect), 'list context returns https keys';
 }