OLD | NEW |
1 $! TESTS.COM -- Performs the necessary tests | 1 $! TESTS.COM -- Performs the necessary tests |
2 $! | 2 $! |
3 $! P1 tests to be performed. Empty means all. | 3 $! P1 tests to be performed. Empty means all. |
4 $ | 4 $! P2» Pointer size: "", "32", or "64". |
| 5 $! |
| 6 $! Announce/identify. |
| 7 $! |
| 8 $» proc = f$environment( "procedure") |
| 9 $» write sys$output "@@@ "+ - |
| 10 » f$parse( proc, , , "name")+ f$parse( proc, , , "type") |
| 11 $! |
5 $ __proc = f$element(0,";",f$environment("procedure")) | 12 $ __proc = f$element(0,";",f$environment("procedure")) |
6 $ __here = f$parse(f$parse("A.;",__proc) - "A.;","[]A.;") - "A.;" | 13 $ __here = f$parse(f$parse("A.;",__proc) - "A.;","[]A.;") - "A.;" |
7 $ __save_default = f$environment("default") | 14 $ __save_default = f$environment("default") |
8 $» __arch := VAX | 15 $» __arch = "VAX" |
9 $ if f$getsyi("cpu") .ge. 128 then - | 16 $ if f$getsyi("cpu") .ge. 128 then - |
10 __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") | 17 __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") |
11 $» if __arch .eqs. "" then __arch := UNK | 18 $» if __arch .eqs. "" then __arch = "UNK" |
12 $» texe_dir := sys$disk:[-.'__arch'.exe.test] | 19 $! |
13 $» exe_dir := sys$disk:[-.'__arch'.exe.apps] | 20 $» __archd = __arch |
14 $ | 21 $ pointer_size = "" |
15 $» sslroot = f$parse("sys$disk:[-.apps];",,,,"syntax_only") - "].;"+ ".]" | 22 $» if (p2 .eq. "64") |
16 $» define /translation_attributes = concealed sslroot 'sslroot' | 23 $» then |
| 24 $» pointer_size = "64" |
| 25 $» __archd = __arch+ "_64" |
| 26 $» endif |
| 27 $! |
| 28 $» texe_dir := sys$disk:[-.'__archd'.exe.test] |
| 29 $» exe_dir := sys$disk:[-.'__archd'.exe.apps] |
17 $ | 30 $ |
18 $ set default '__here' | 31 $ set default '__here' |
19 $ | 32 $ |
| 33 $ ROOT = F$PARSE("sys$disk:[-]A.;0",,,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0" |
| 34 $ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY") |
| 35 $ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") - |
| 36 - ".][000000" - "[000000." - "][" - "[" - "]" |
| 37 $ ROOT = ROOT_DEV + "[" + ROOT_DIR |
| 38 $ DEFINE/NOLOG SSLROOT 'ROOT'.APPS.] /TRANS=CONC |
| 39 $ openssl_conf := sslroot:[000000]openssl-vms.cnf |
| 40 $ |
20 $ on control_y then goto exit | 41 $ on control_y then goto exit |
21 $ on error then goto exit | 42 $ on error then goto exit |
22 $ | 43 $ |
23 $ if p1 .nes. "" | 44 $ if p1 .nes. "" |
24 $ then | 45 $ then |
25 $ tests = p1 | 46 $ tests = p1 |
26 $ else | 47 $ else |
27 $! NOTE: This list reflects the list of dependencies following the | 48 $! NOTE: This list reflects the list of dependencies following the |
28 $! "alltests" target in Makefile. This should make it easy to see | 49 $! "alltests" target in Makefile. This should make it easy to see |
29 $! if there's a difference that needs to be taken care of. | 50 $! if there's a difference that needs to be taken care of. |
30 $ tests := - | 51 $ tests := - |
31 test_des,test_idea,test_sha,test_md4,test_md5,test_hmac,- | 52 test_des,test_idea,test_sha,test_md4,test_md5,test_hmac,- |
32 » test_md2,test_mdc2,- | 53 » test_md2,test_mdc2,test_wp,- |
33 » test_rmd,test_rc2,test_rc4,test_rc5,test_bf,test_cast,test_rd,- | 54 » test_rmd,test_rc2,test_rc4,test_rc5,test_bf,test_cast,test_aes,- |
34 test_rand,test_bn,test_ec,test_ecdsa,test_ecdh,- | 55 test_rand,test_bn,test_ec,test_ecdsa,test_ecdh,- |
35 test_enc,test_x509,test_rsa,test_crl,test_sid,- | 56 test_enc,test_x509,test_rsa,test_crl,test_sid,- |
36 test_gen,test_req,test_pkcs7,test_verify,test_dh,test_dsa,- | 57 test_gen,test_req,test_pkcs7,test_verify,test_dh,test_dsa,- |
37 » test_ss,test_ca,test_engine,test_evp,test_ssl,test_ige,test_jpake | 58 » test_ss,test_ca,test_engine,test_evp,test_ssl,test_tsa,test_ige,- |
| 59 » test_jpake,test_cms |
38 $ endif | 60 $ endif |
39 $ tests = f$edit(tests,"COLLAPSE") | 61 $ tests = f$edit(tests,"COLLAPSE") |
40 $ | 62 $ |
41 $ BNTEST := bntest | 63 $ BNTEST := bntest |
42 $ ECTEST := ectest | 64 $ ECTEST := ectest |
43 $ ECDSATEST := ecdsatest | 65 $ ECDSATEST := ecdsatest |
44 $ ECDHTEST := ecdhtest | 66 $ ECDHTEST := ecdhtest |
45 $ EXPTEST := exptest | 67 $ EXPTEST := exptest |
46 $ IDEATEST := ideatest | 68 $ IDEATEST := ideatest |
47 $ SHATEST := shatest | 69 $ SHATEST := shatest |
48 $ SHA1TEST := sha1test | 70 $ SHA1TEST := sha1test |
49 $ MDC2TEST := mdc2test | 71 $ MDC2TEST := mdc2test |
50 $ RMDTEST := rmdtest | 72 $ RMDTEST := rmdtest |
51 $ MD2TEST := md2test | 73 $ MD2TEST := md2test |
52 $ MD4TEST := md4test | 74 $ MD4TEST := md4test |
53 $ MD5TEST := md5test | 75 $ MD5TEST := md5test |
54 $ HMACTEST := hmactest | 76 $ HMACTEST := hmactest |
| 77 $ WPTEST := wp_test |
55 $ RC2TEST := rc2test | 78 $ RC2TEST := rc2test |
56 $ RC4TEST := rc4test | 79 $ RC4TEST := rc4test |
57 $ RC5TEST := rc5test | 80 $ RC5TEST := rc5test |
58 $ BFTEST := bftest | 81 $ BFTEST := bftest |
59 $ CASTTEST := casttest | 82 $ CASTTEST := casttest |
60 $ DESTEST := destest | 83 $ DESTEST := destest |
61 $ RANDTEST := randtest | 84 $ RANDTEST := randtest |
62 $ DHTEST := dhtest | 85 $ DHTEST := dhtest |
63 $ DSATEST := dsatest | 86 $ DSATEST := dsatest |
64 $ METHTEST := methtest | 87 $ METHTEST := methtest |
65 $ SSLTEST := ssltest | 88 $ SSLTEST := ssltest |
66 $ RSATEST := rsa_test | 89 $ RSATEST := rsa_test |
67 $ ENGINETEST := enginetest | 90 $ ENGINETEST := enginetest |
68 $ EVPTEST := evp_test | 91 $ EVPTEST := evp_test |
69 $ IGETEST := igetest | 92 $ IGETEST := igetest |
70 $ JPAKETEST := jpaketest | 93 $ JPAKETEST := jpaketest |
71 $ | 94 $» ASN1TEST :=» asn1test |
| 95 $! |
72 $ tests_i = 0 | 96 $ tests_i = 0 |
73 $ loop_tests: | 97 $ loop_tests: |
74 $ tests_e = f$element(tests_i,",",tests) | 98 $ tests_e = f$element(tests_i,",",tests) |
75 $ tests_i = tests_i + 1 | 99 $ tests_i = tests_i + 1 |
76 $ if tests_e .eqs. "," then goto exit | 100 $ if tests_e .eqs. "," then goto exit |
| 101 $ write sys$output "---> ''tests_e'" |
77 $ gosub 'tests_e' | 102 $ gosub 'tests_e' |
78 $ goto loop_tests | 103 $ goto loop_tests |
79 $ | 104 $ |
80 $ test_evp: | 105 $ test_evp: |
81 $» mcr 'texe_dir''evptest' evptests.txt | 106 $» mcr 'texe_dir''evptest' 'ROOT'.CRYPTO.EVP]evptests.txt |
82 $ return | 107 $ return |
83 $ test_des: | 108 $ test_des: |
84 $ mcr 'texe_dir''destest' | 109 $ mcr 'texe_dir''destest' |
85 $ return | 110 $ return |
86 $ test_idea: | 111 $ test_idea: |
87 $ mcr 'texe_dir''ideatest' | 112 $ mcr 'texe_dir''ideatest' |
88 $ return | 113 $ return |
89 $ test_sha: | 114 $ test_sha: |
90 $ mcr 'texe_dir''shatest' | 115 $ mcr 'texe_dir''shatest' |
91 $ mcr 'texe_dir''sha1test' | 116 $ mcr 'texe_dir''sha1test' |
92 $ return | 117 $ return |
93 $ test_mdc2: | 118 $ test_mdc2: |
94 $ mcr 'texe_dir''mdc2test' | 119 $ mcr 'texe_dir''mdc2test' |
95 $ return | 120 $ return |
96 $ test_md5: | 121 $ test_md5: |
97 $ mcr 'texe_dir''md5test' | 122 $ mcr 'texe_dir''md5test' |
98 $ return | 123 $ return |
99 $ test_md4: | 124 $ test_md4: |
100 $ mcr 'texe_dir''md4test' | 125 $ mcr 'texe_dir''md4test' |
101 $ return | 126 $ return |
102 $ test_hmac: | 127 $ test_hmac: |
103 $ mcr 'texe_dir''hmactest' | 128 $ mcr 'texe_dir''hmactest' |
104 $ return | 129 $ return |
| 130 $ test_wp: |
| 131 $ mcr 'texe_dir''wptest' |
| 132 $ return |
105 $ test_md2: | 133 $ test_md2: |
106 $ mcr 'texe_dir''md2test' | 134 $ mcr 'texe_dir''md2test' |
107 $ return | 135 $ return |
108 $ test_rmd: | 136 $ test_rmd: |
109 $ mcr 'texe_dir''rmdtest' | 137 $ mcr 'texe_dir''rmdtest' |
110 $ return | 138 $ return |
111 $ test_bf: | 139 $ test_bf: |
112 $ mcr 'texe_dir''bftest' | 140 $ mcr 'texe_dir''bftest' |
113 $ return | 141 $ return |
114 $ test_cast: | 142 $ test_cast: |
115 $ mcr 'texe_dir''casttest' | 143 $ mcr 'texe_dir''casttest' |
116 $ return | 144 $ return |
117 $ test_rc2: | 145 $ test_rc2: |
118 $ mcr 'texe_dir''rc2test' | 146 $ mcr 'texe_dir''rc2test' |
119 $ return | 147 $ return |
120 $ test_rc4: | 148 $ test_rc4: |
121 $ mcr 'texe_dir''rc4test' | 149 $ mcr 'texe_dir''rc4test' |
122 $ return | 150 $ return |
123 $ test_rc5: | 151 $ test_rc5: |
124 $ mcr 'texe_dir''rc5test' | 152 $ mcr 'texe_dir''rc5test' |
125 $ return | 153 $ return |
126 $ test_rand: | 154 $ test_rand: |
127 $ mcr 'texe_dir''randtest' | 155 $ mcr 'texe_dir''randtest' |
128 $ return | 156 $ return |
129 $ test_enc: | 157 $ test_enc: |
130 $» @testenc.com | 158 $» @testenc.com 'pointer_size' |
131 $ return | 159 $ return |
132 $ test_x509: | 160 $ test_x509: |
133 $» define sys$error nla0: | 161 $» set noon |
| 162 $» define sys$error test_x509.err |
134 $ write sys$output "test normal x509v1 certificate" | 163 $ write sys$output "test normal x509v1 certificate" |
135 $» @tx509.com | 164 $» @tx509.com "" 'pointer_size' |
136 $ write sys$output "test first x509v3 certificate" | 165 $ write sys$output "test first x509v3 certificate" |
137 $» @tx509.com v3-cert1.pem | 166 $» @tx509.com v3-cert1.pem 'pointer_size' |
138 $ write sys$output "test second x509v3 certificate" | 167 $ write sys$output "test second x509v3 certificate" |
139 $» @tx509.com v3-cert2.pem | 168 $» @tx509.com v3-cert2.pem 'pointer_size' |
140 $ deassign sys$error | 169 $ deassign sys$error |
| 170 $ set on |
141 $ return | 171 $ return |
142 $ test_rsa: | 172 $ test_rsa: |
143 $» define sys$error nla0: | 173 $» set noon |
144 $» @trsa.com | 174 $» define sys$error test_rsa.err |
| 175 $» @trsa.com "" 'pointer_size' |
145 $ deassign sys$error | 176 $ deassign sys$error |
146 $ mcr 'texe_dir''rsatest' | 177 $ mcr 'texe_dir''rsatest' |
| 178 $ set on |
147 $ return | 179 $ return |
148 $ test_crl: | 180 $ test_crl: |
149 $» define sys$error nla0: | 181 $» set noon |
150 $» @tcrl.com | 182 $» define sys$error test_crl.err |
| 183 $» @tcrl.com "" 'pointer_size' |
151 $ deassign sys$error | 184 $ deassign sys$error |
| 185 $ set on |
152 $ return | 186 $ return |
153 $ test_sid: | 187 $ test_sid: |
154 $» define sys$error nla0: | 188 $» set noon |
155 $» @tsid.com | 189 $» define sys$error test_sid.err |
| 190 $» @tsid.com "" 'pointer_size' |
156 $ deassign sys$error | 191 $ deassign sys$error |
| 192 $ set on |
157 $ return | 193 $ return |
158 $ test_req: | 194 $ test_req: |
159 $» define sys$error nla0: | 195 $» set noon |
160 $» @treq.com | 196 $» define sys$error test_req.err |
161 $» @treq.com testreq2.pem | 197 $» @treq.com "" 'pointer_size' |
| 198 $» @treq.com testreq2.pem 'pointer_size' |
162 $ deassign sys$error | 199 $ deassign sys$error |
| 200 $ set on |
163 $ return | 201 $ return |
164 $ test_pkcs7: | 202 $ test_pkcs7: |
165 $» define sys$error nla0: | 203 $» set noon |
166 $» @tpkcs7.com | 204 $» define sys$error test_pkcs7.err |
167 $» @tpkcs7d.com | 205 $» @tpkcs7.com "" 'pointer_size' |
| 206 $» @tpkcs7d.com "" 'pointer_size' |
168 $ deassign sys$error | 207 $ deassign sys$error |
| 208 $ set on |
169 $ return | 209 $ return |
170 $ test_bn: | 210 $ test_bn: |
171 $» write sys$output "starting big number library test, could take a while..
." | 211 $» write sys$output - |
172 $» create bntest-vms.fdl | 212 » "starting big number library test, could take a while..." |
| 213 $» set noon |
| 214 $» define sys$error test_bn.err |
| 215 $» define sys$output test_bn.out |
| 216 $» @ bctest.com |
| 217 $» status = $status |
| 218 $» deassign sys$error |
| 219 $» deassign sys$output |
| 220 $» set on |
| 221 $» if (status) |
| 222 $» then |
| 223 $» create /fdl = sys$input bntest-vms.tmp |
173 FILE | 224 FILE |
174 ORGANIZATION sequential | 225 ORGANIZATION sequential |
175 RECORD | 226 RECORD |
176 FORMAT stream_lf | 227 FORMAT stream_lf |
177 $» create/fdl=bntest-vms.fdl bntest-vms.sh | 228 $» define /user_mode sys$output bntest-vms.tmp |
178 $» open/append foo bntest-vms.sh | 229 $» mcr 'texe_dir''bntest' |
179 $» type/output=foo: sys$input: | 230 $» define /user_mode sys$input bntest-vms.tmp |
| 231 $» define /user_mode sys$output bntest-vms.out |
| 232 $» bc |
| 233 $» @ bntest.com bntest-vms.out |
| 234 $» status = $status |
| 235 $» if (status) |
| 236 $» then |
| 237 $» » delete bntest-vms.out;* |
| 238 $» » delete bntest-vms.tmp;* |
| 239 $» endif |
| 240 $» else |
| 241 $» create /fdl = sys$input bntest-vms.sh |
| 242 FILE |
| 243 » ORGANIZATION» sequential |
| 244 RECORD |
| 245 » FORMAT» » stream_lf |
| 246 $» open /append bntest_file bntest-vms.sh |
| 247 $» type /output = bntest_file sys$input: |
180 << __FOO__ sh -c "`sh ./bctest`" | perl -e '$i=0; while (<STDIN>) {if (/^test (.
*)/) {print STDERR "\nverify $1";} elsif (!/^0$/) {die "\nFailed! bc: $_";} else
{print STDERR "."; $i++;}} print STDERR "\n$i tests passed\n"' | 248 << __FOO__ sh -c "`sh ./bctest`" | perl -e '$i=0; while (<STDIN>) {if (/^test (.
*)/) {print STDERR "\nverify $1";} elsif (!/^0$/) {die "\nFailed! bc: $_";} else
{print STDERR "."; $i++;}} print STDERR "\n$i tests passed\n"' |
181 $» define/user sys$output bntest-vms.tmp | 249 $» define /user_mode sys$output bntest-vms.tmp |
182 $» mcr 'texe_dir''bntest' | 250 $» mcr 'texe_dir''bntest' |
183 $» copy bntest-vms.tmp foo: | 251 $» copy bntest-vms.tmp bntest_file |
184 $» delete bntest-vms.tmp;* | 252 $» delete bntest-vms.tmp;* |
185 $» type/output=foo: sys$input: | 253 $» type /output = bntest_file sys$input: |
186 __FOO__ | 254 __FOO__ |
187 $» close foo | 255 $» close bntest_file |
188 $» write sys$output "-- copy the [.test]bntest-vms.sh and [.test]bctest fil
es to a Unix system and" | 256 $» write sys$output "-- copy the [.test]bntest-vms.sh and [.test]bctest
files to a Unix system and" |
189 $» write sys$output "-- run bntest-vms.sh through sh or bash to verify that
the bignum operations" | 257 $» write sys$output "-- run bntest-vms.sh through sh or bash to verify
that the bignum operations" |
190 $» write sys$output "-- went well." | 258 $» write sys$output "-- went well." |
191 $» write sys$output "" | 259 $» write sys$output "" |
| 260 $» endif |
192 $ write sys$output "test a^b%c implementations" | 261 $ write sys$output "test a^b%c implementations" |
193 $ mcr 'texe_dir''exptest' | 262 $ mcr 'texe_dir''exptest' |
194 $ return | 263 $ return |
195 $ test_ec: | 264 $ test_ec: |
196 $ write sys$output "test elliptic curves" | 265 $ write sys$output "test elliptic curves" |
197 $ mcr 'texe_dir''ectest' | 266 $ mcr 'texe_dir''ectest' |
198 $ return | 267 $ return |
199 $ test_ecdsa: | 268 $ test_ecdsa: |
200 $ write sys$output "test ecdsa" | 269 $ write sys$output "test ecdsa" |
201 $ mcr 'texe_dir''ecdsatest' | 270 $ mcr 'texe_dir''ecdsatest' |
202 $ return | 271 $ return |
203 $ test_ecdh: | 272 $ test_ecdh: |
204 $ write sys$output "test ecdh" | 273 $ write sys$output "test ecdh" |
205 $ mcr 'texe_dir''ecdhtest' | 274 $ mcr 'texe_dir''ecdhtest' |
206 $ return | 275 $ return |
207 $ test_verify: | 276 $ test_verify: |
208 $ write sys$output "The following command should have some OK's and some f
ailures" | 277 $ write sys$output "The following command should have some OK's and some f
ailures" |
209 $ write sys$output "There are definitly a few expired certificates" | 278 $ write sys$output "There are definitly a few expired certificates" |
210 $» @tverify.com | 279 $» @tverify.com 'pointer_size' |
211 $ return | 280 $ return |
212 $ test_dh: | 281 $ test_dh: |
213 $ write sys$output "Generate a set of DH parameters" | 282 $ write sys$output "Generate a set of DH parameters" |
214 $ mcr 'texe_dir''dhtest' | 283 $ mcr 'texe_dir''dhtest' |
215 $ return | 284 $ return |
216 $ test_dsa: | 285 $ test_dsa: |
217 $ write sys$output "Generate a set of DSA parameters" | 286 $ write sys$output "Generate a set of DSA parameters" |
218 $ mcr 'texe_dir''dsatest' | 287 $ mcr 'texe_dir''dsatest' |
219 $ return | 288 $ return |
220 $ test_gen: | 289 $ test_gen: |
221 $ write sys$output "Generate and verify a certificate request" | 290 $ write sys$output "Generate and verify a certificate request" |
222 $» @testgen.com | 291 $» @testgen.com 'pointer_size' |
223 $ return | 292 $ return |
224 $ maybe_test_ss: | 293 $ maybe_test_ss: |
225 $ testss_RDT = f$cvtime(f$file_attributes("testss.com","RDT")) | 294 $ testss_RDT = f$cvtime(f$file_attributes("testss.com","RDT")) |
226 $ if f$cvtime(f$file_attributes("keyU.ss","RDT")) .les. testss_RDT then - | 295 $ if f$cvtime(f$file_attributes("keyU.ss","RDT")) .les. testss_RDT then - |
227 goto test_ss | 296 goto test_ss |
228 $ if f$cvtime(f$file_attributes("certU.ss","RDT")) .les. testss_RDT then - | 297 $ if f$cvtime(f$file_attributes("certU.ss","RDT")) .les. testss_RDT then - |
229 goto test_ss | 298 goto test_ss |
230 $ if f$cvtime(f$file_attributes("certCA.ss","RDT")) .les. testss_RDT then
- | 299 $ if f$cvtime(f$file_attributes("certCA.ss","RDT")) .les. testss_RDT then
- |
231 goto test_ss | 300 goto test_ss |
232 $ return | 301 $ return |
233 $ test_ss: | 302 $ test_ss: |
234 $ write sys$output "Generate and certify a test certificate" | 303 $ write sys$output "Generate and certify a test certificate" |
235 $» @testss.com | 304 $» @testss.com 'pointer_size' |
236 $ return | 305 $ return |
237 $ test_engine: | 306 $ test_engine: |
238 $ write sys$output "Manipulate the ENGINE structures" | 307 $ write sys$output "Manipulate the ENGINE structures" |
239 $ mcr 'texe_dir''enginetest' | 308 $ mcr 'texe_dir''enginetest' |
240 $ return | 309 $ return |
241 $ test_ssl: | 310 $ test_ssl: |
242 $ write sys$output "test SSL protocol" | 311 $ write sys$output "test SSL protocol" |
243 $ gosub maybe_test_ss | 312 $ gosub maybe_test_ss |
244 $» @testssl.com keyU.ss certU.ss certCA.ss | 313 $» @testssl.com keyU.ss certU.ss certCA.ss 'pointer_size' |
245 $ return | 314 $ return |
246 $ test_ca: | 315 $ test_ca: |
247 $ set noon | 316 $ set noon |
248 $» define/user sys$output nla0: | 317 $» define /user_mode sys$output test_ca.out |
249 $ mcr 'exe_dir'openssl no-rsa | 318 $ mcr 'exe_dir'openssl no-rsa |
250 $ save_severity=$SEVERITY | 319 $ save_severity=$SEVERITY |
251 $ set on | 320 $ set on |
252 $ if save_severity | 321 $ if save_severity |
253 $ then | 322 $ then |
254 $ write sys$output "skipping CA.com test -- requires RSA" | 323 $ write sys$output "skipping CA.com test -- requires RSA" |
255 $ else | 324 $ else |
256 $ write sys$output "Generate and certify a test certificate via the 'c
a' program" | 325 $ write sys$output "Generate and certify a test certificate via the 'c
a' program" |
257 $» @testca.com | 326 $» @testca.com 'pointer_size' |
258 $ endif | 327 $ endif |
259 $ return | 328 $ return |
260 $ test_rd: | 329 $ test_aes: |
261 $» write sys$output "test Rijndael" | 330 $!» write sys$output "test AES" |
262 $» !mcr 'texe_dir''rdtest' | 331 $!» !mcr 'texe_dir''aestest' |
| 332 $» return |
| 333 $ test_tsa: |
| 334 $» set noon |
| 335 $» define /user_mode sys$output nla0: |
| 336 $» mcr 'exe_dir'openssl no-rsa |
| 337 $» save_severity=$SEVERITY |
| 338 $» set on |
| 339 $» if save_severity |
| 340 $» then |
| 341 $» write sys$output "skipping testtsa.com test -- requires RSA" |
| 342 $» else |
| 343 $» @testtsa.com "" "" "" 'pointer_size' |
| 344 $» endif |
263 $ return | 345 $ return |
264 $ test_ige: | 346 $ test_ige: |
265 $ write sys$output "Test IGE mode" | 347 $ write sys$output "Test IGE mode" |
266 $ mcr 'texe_dir''igetest' | 348 $ mcr 'texe_dir''igetest' |
267 $ return | 349 $ return |
268 $ test_jpake: | 350 $ test_jpake: |
269 $ write sys$output "Test JPAKE" | 351 $ write sys$output "Test JPAKE" |
270 $ mcr 'texe_dir''jpaketest' | 352 $ mcr 'texe_dir''jpaketest' |
271 $ return | 353 $ return |
| 354 $ test_cms: |
| 355 $ write sys$output "CMS consistency test" |
| 356 $ ! Define the logical name used to find openssl.exe in the perl script. |
| 357 $ define /user_mode osslx 'exe_dir' |
| 358 $ perl CMS-TEST.PL |
| 359 $ return |
272 $ | 360 $ |
273 $ | 361 $ |
274 $ exit: | 362 $ exit: |
| 363 $ mcr 'exe_dir'openssl version -a |
275 $ set default '__save_default' | 364 $ set default '__save_default' |
276 $ deassign sslroot | 365 $ deassign sslroot |
277 $ exit | 366 $ exit |
OLD | NEW |