projects
/
oweals
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
evp/e_[aes|camellia].c: fix typo in CBC subroutine.
[oweals/openssl.git]
/
test
/
tsid.com
diff --git
a/test/tsid.com
b/test/tsid.com
index 267ace11353ace622b33f6b9e614ad328a1f7434..b6c4e49473e9707ec60b653aa5c339cf5f5feae0 100644
(file)
--- a/
test/tsid.com
+++ b/
test/tsid.com
@@
-1,14
+1,17
@@
$! TSID.COM -- Tests sid keys
$
$! TSID.COM -- Tests sid keys
$
-$ __arch
:= VAX
+$ __arch
= "VAX"
$ if f$getsyi("cpu") .ge. 128 then -
__arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
$ 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 (p2 .eqs. "64") then __arch = __arch+ "_64"
+$!
+$ exe_dir = "sys$disk:[-.''__arch'.exe.apps]"
$
$
-$ cmd
:= mcr 'exe_dir'openssl sess_id
+$ cmd
= "mcr ''exe_dir'openssl sess_id"
$
$
-$ t
:= testsid.pem
+$ t
= "testsid.pem"
$ if p1 .nes. "" then t = p1
$
$ write sys$output "testing session-id conversions"
$ if p1 .nes. "" then t = p1
$
$ write sys$output "testing session-id conversions"