Mercurial > hg > nginx-tests

comparison ssl_certificate_chain.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 8ef51dbb5d69
children 8c764fd93b5e
comparison
equal deleted inserted replaced
1219:f373a718f646 1220:0af58b78df35
99 basicConstraints = critical,CA:TRUE 99 basicConstraints = critical,CA:TRUE
100 EOF 100 EOF
101 101
102 foreach my $name ('root') { 102 foreach my $name ('root') {
103 system('openssl req -x509 -new ' 103 system('openssl req -x509 -new '
104 . "-config '$d/openssl.conf' -subj '/CN=$name/' " 104 . "-config $d/openssl.conf -subj /CN=$name/ "
105 . "-out '$d/$name.crt' -keyout '$d/$name.key' " 105 . "-out $d/$name.crt -keyout $d/$name.key "
106 . ">>$d/openssl.out 2>&1") == 0 106 . ">>$d/openssl.out 2>&1") == 0
107 or die "Can't create certificate for $name: $!\n"; 107 or die "Can't create certificate for $name: $!\n";
108 } 108 }
109 109
110 foreach my $name ('int', 'end') { 110 foreach my $name ('int', 'end') {
111 system("openssl req -new " 111 system("openssl req -new "
112 . "-config '$d/openssl.conf' -subj '/CN=$name/' " 112 . "-config $d/openssl.conf -subj /CN=$name/ "
113 . "-out '$d/$name.csr' -keyout '$d/$name.key' " 113 . "-out $d/$name.csr -keyout $d/$name.key "
114 . ">>$d/openssl.out 2>&1") == 0 114 . ">>$d/openssl.out 2>&1") == 0
115 or die "Can't create certificate for $name: $!\n"; 115 or die "Can't create certificate for $name: $!\n";
116 } 116 }
117 117
118 $t->write_file('certserial', '1000'); 118 $t->write_file('certserial', '1000');
119 $t->write_file('certindex', ''); 119 $t->write_file('certindex', '');
120 120
121 system("openssl ca -batch -config '$d/ca.conf' " 121 system("openssl ca -batch -config $d/ca.conf "
122 . "-keyfile '$d/root.key' -cert '$d/root.crt' " 122 . "-keyfile $d/root.key -cert $d/root.crt "
123 . "-subj '/CN=int/' -in '$d/int.csr' -out '$d/int.crt' " 123 . "-subj /CN=int/ -in $d/int.csr -out $d/int.crt "
124 . ">>$d/openssl.out 2>&1") == 0 124 . ">>$d/openssl.out 2>&1") == 0
125 or die "Can't sign certificate for int: $!\n"; 125 or die "Can't sign certificate for int: $!\n";
126 126
127 system("openssl ca -batch -config '$d/ca.conf' " 127 system("openssl ca -batch -config $d/ca.conf "
128 . "-keyfile '$d/int.key' -cert '$d/int.crt' " 128 . "-keyfile $d/int.key -cert $d/int.crt "
129 . "-subj '/CN=end/' -in '$d/end.csr' -out '$d/end.crt' " 129 . "-subj /CN=end/ -in $d/end.csr -out $d/end.crt "
130 . ">>$d/openssl.out 2>&1") == 0 130 . ">>$d/openssl.out 2>&1") == 0
131 or die "Can't sign certificate for end: $!\n"; 131 or die "Can't sign certificate for end: $!\n";
132 132
133 $t->write_file('end-int.crt', 133 $t->write_file('end-int.crt',
134 $t->read_file('end.crt') . $t->read_file('int.crt')); 134 $t->read_file('end.crt') . $t->read_file('int.crt'));