Mercurial > hg > nginx-tests

comparison proxy_ssl_certificate.t @ 1220:0af58b78df35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: removed single quotes from system() calls. Single quotes were used to escape paths with spaces but are neither supported in the Windows CMD shell, nor sufficient without proper %%TESTDIR%% expansion.
author Sergey Kandaurov <pluknet@nginx.com>
date Wed, 20 Sep 2017 14:46:51 +0300
parents 778eae8230e4
children eadd24ccfda1
comparison
equal deleted inserted replaced
1219:f373a718f646 1220:0af58b78df35
108 108
109 my $d = $t->testdir(); 109 my $d = $t->testdir();
110 110
111 foreach my $name ('1.example.com', '2.example.com') { 111 foreach my $name ('1.example.com', '2.example.com') {
112 system('openssl req -x509 -new ' 112 system('openssl req -x509 -new '
113 . "-config '$d/openssl.conf' -subj '/CN=$name/' " 113 . "-config $d/openssl.conf -subj /CN=$name/ "
114 . "-out '$d/$name.crt' -keyout '$d/$name.key' " 114 . "-out $d/$name.crt -keyout $d/$name.key "
115 . ">>$d/openssl.out 2>&1") == 0 115 . ">>$d/openssl.out 2>&1") == 0
116 or die "Can't create certificate for $name: $!\n"; 116 or die "Can't create certificate for $name: $!\n";
117 } 117 }
118 118
119 foreach my $name ('3.example.com') { 119 foreach my $name ('3.example.com') {
120 system("openssl genrsa -out '$d/$name.key' -passout pass:$name " 120 system("openssl genrsa -out $d/$name.key -passout pass:$name "
121 . "-aes128 1024 >>$d/openssl.out 2>&1") == 0 121 . "-aes128 1024 >>$d/openssl.out 2>&1") == 0
122 or die "Can't create private key: $!\n"; 122 or die "Can't create private key: $!\n";
123 system('openssl req -x509 -new ' 123 system('openssl req -x509 -new '
124 . "-config '$d/openssl.conf' -subj '/CN=$name/' " 124 . "-config $d/openssl.conf -subj /CN=$name/ "
125 . "-out '$d/$name.crt' " 125 . "-out $d/$name.crt "
126 . "-key '$d/$name.key' -passin pass:$name" 126 . "-key $d/$name.key -passin pass:$name"
127 . ">>$d/openssl.out 2>&1") == 0 127 . ">>$d/openssl.out 2>&1") == 0
128 or die "Can't create certificate for $name: $!\n"; 128 or die "Can't create certificate for $name: $!\n";
129 } 129 }
130 130
131 $t->write_file('password', '3.example.com'); 131 $t->write_file('password', '3.example.com');