projects
/
oweals
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
PR: 2506
[oweals/openssl.git]
/
test
/
testenc.com
diff --git
a/test/testenc.com
b/test/testenc.com
index 829b8da512327a2d8e261e211b45f1f4d762b883..621d9a21264288af4a8183609d8c6f7619ea52a7 100644
(file)
--- a/
test/testenc.com
+++ b/
test/testenc.com
@@
-1,15
+1,18
@@
$! TESTENC.COM -- Test encoding and decoding
$
$ __arch := VAX
$! TESTENC.COM -- Test encoding and decoding
$
$ __arch := VAX
-$ if f$getsyi("cpu") .ge. 128 then __arch := AXP
-$ exe_dir := sys$disk:[-.'__arch'.exe.apps]
+$ if f$getsyi("cpu") .ge. 128 then -
+ __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
+$ if __arch .eqs. "" then __arch := UNK
$
$
-$ testsrc := makefile.
ssl
+$ testsrc := makefile.
$ test := p.txt
$ cmd := mcr 'exe_dir'openssl
$
$ if f$search(test) .nes. "" then delete 'test';*
$ test := p.txt
$ cmd := mcr 'exe_dir'openssl
$
$ if f$search(test) .nes. "" then delete 'test';*
-$ copy 'testsrc' 'test'
+$ convert/fdl=sys$input: 'testsrc' 'test'
+RECORD
+ FORMAT STREAM_LF
$
$ if f$search(test+"-cipher") .nes. "" then delete 'test'-cipher;*
$ if f$search(test+"-clear") .nes. "" then delete 'test'-clear;*
$
$ if f$search(test+"-cipher") .nes. "" then delete 'test'-cipher;*
$ if f$search(test+"-clear") .nes. "" then delete 'test'-clear;*
@@
-28,9
+31,9
@@
$ backup/compare 'test' 'test'-clear
$ if $severity .ne. 1 then exit 3
$ delete 'test'-cipher;*,'test'-clear;*
$
$ if $severity .ne. 1 then exit 3
$ delete 'test'-cipher;*,'test'-clear;*
$
-$ define/user sys$output 'test'-cipher-commands
.
+$ define/user sys$output 'test'-cipher-commands
$ 'cmd' list-cipher-commands
$ 'cmd' list-cipher-commands
-$ open/read f 'test'-cipher-commands
.
+$ open/read f 'test'-cipher-commands
$ loop_cipher_commands:
$ read/end=loop_cipher_commands_end f i
$ write sys$output i
$ loop_cipher_commands:
$ read/end=loop_cipher_commands_end f i
$ write sys$output i