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