Useless files deleted -- they were just copies of files of the same name
[openssl.git] / test / testgen.com
1 $! TETSGEN.COM
2 $
3 $       __arch := VAX
4 $       if f$getsyi("cpu") .ge. 128 then __arch := AXP
5 $       exe_dir := sys$disk:[-.'__arch'.exe.apps]
6 $
7 $       T := testcert
8 $       KEY = 512
9 $       CA := [-.certs]testca.pem
10 $
11 $       set noon
12 $       if f$search(T+".1;*") .nes. "" then delete 'T'.1;*
13 $       if f$search(T+".2;*") .nes. "" then delete 'T'.2;*
14 $       if f$search(T+".key;*") .nes. "" then delete 'T'.key;*
15 $       set on
16 $
17 $       write sys$output "generating certificate request"
18 $
19 $       write sys$output "There should be a 2 sequences of .'s and some +'s."
20 $       write sys$output "There should not be more that at most 80 per line"
21 $       write sys$output "This could take some time."
22 $
23 $       mcr 'exe_dir'openssl req -config test.cnf -new -out testreq.pem
24 $       if $severity .ne. 1
25 $       then
26 $           write sys$output "problems creating request"
27 $           exit 3
28 $       endif
29 $
30 $       mcr 'exe_dir'openssl req -verify -in testreq.pem -noout
31 $       if $severity .ne. 1
32 $       then
33 $           write sys$output "signature on req is wrong"
34 $           exit 3
35 $       endif