| Index: openssl/test/testgen.com
|
| ===================================================================
|
| --- openssl/test/testgen.com (revision 105093)
|
| +++ openssl/test/testgen.com (working copy)
|
| @@ -1,14 +1,15 @@
|
| -$! TETSGEN.COM
|
| +$! TESTGEN.COM
|
| $
|
| -$ __arch := VAX
|
| +$ __arch = "VAX"
|
| $ if f$getsyi("cpu") .ge. 128 then -
|
| __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
|
| -$ if __arch .eqs. "" then __arch := UNK
|
| -$ exe_dir := sys$disk:[-.'__arch'.exe.apps]
|
| +$ if __arch .eqs. "" then __arch = "UNK"
|
| +$ if (p1 .eqs. 64) then __arch = __arch+ "_64"
|
| +$ exe_dir = "sys$disk:[-.''__arch'.exe.apps]"
|
| $
|
| -$ T := testcert
|
| +$ T = "testcert"
|
| $ KEY = 512
|
| -$ CA := [-.certs]testca.pem
|
| +$ CA = "[-.certs]testca.pem"
|
| $
|
| $ set noon
|
| $ if f$search(T+".1;*") .nes. "" then delete 'T'.1;*
|
| @@ -20,7 +21,8 @@
|
| $
|
| $ append/new nl: .rnd
|
| $ open/append random_file .rnd
|
| -$ write random_file "string to make the random number generator think it has entropy"
|
| +$ write random_file -
|
| + "string to make the random number generator think it has entropy"
|
| $ close random_file
|
| $
|
| $ set noon
|
| @@ -33,8 +35,10 @@
|
| $ req_new="-newkey dsa:[-.apps]dsa512.pem"
|
| $ else
|
| $ req_new="-new"
|
| -$ write sys$output "There should be a 2 sequences of .'s and some +'s."
|
| -$ write sys$output "There should not be more that at most 80 per line"
|
| +$ write sys$output -
|
| + "There should be a 2 sequences of .'s and some +'s."
|
| +$ write sys$output -
|
| + "There should not be more that at most 80 per line"
|
| $ endif
|
| $
|
| $ write sys$output "This could take some time."
|
|
|