generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Small bugs in the test scripts removed.

Browse Source
This commit is contained in:
Richard Levitte 2000-03-18 09:11:00 +00:00
parent 1f515cfe09
commit cde245bdcd
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/testenc.com
View File

@ -28,9 +28,9 @@ $ backup/compare 'test' 'test'-clear
$ if $severity .ne. 1 then exit 3 $ if $severity .ne. 1 then exit 3
$ delete 'test'-cipher;*,'test'-clear;* $ 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: $ loop_cipher_commands:
$ read/end=loop_cipher_commands_end f i $ read/end=loop_cipher_commands_end f i
$ write sys$output i $ write sys$output i

8
test/testssl.com
View File

@ -19,12 +19,12 @@ $ cert=p2
$ endif $ endif
$ ssltest := mcr 'texe_dir'ssltest -key 'key' -cert 'cert' -c_key 'key' -c_cert 'cert' $ ssltest := mcr 'texe_dir'ssltest -key 'key' -cert 'cert' -c_key 'key' -c_cert 'cert'
$ $
$ define/user sys$output test-ssltest-output. $ define/user sys$output testssl-x509-output.
$ define/user sys$error nla0: $ define/user sys$error nla0:
$ mcr 'exe_dir'openssl x509 -in 'cert' -text -noout $ mcr 'exe_dir'openssl x509 -in 'cert' -text -noout
$ set noon $ set noon
$ define/user sys$error nla0: $ define/user sys$error nla0:
$ search/output=nla0: testssl-ssltest-output. "DSA Public Key"/exact $ search/output=nla0: testssl-x509-output. "DSA Public Key"/exact
$ if $severity .eq. 1 $ if $severity .eq. 1
$ then $ then
$ dsa_cert := YES $ dsa_cert := YES
@ -32,7 +32,7 @@ $ else
$ dsa_cert := NO $ dsa_cert := NO
$ endif $ endif
$ set on $ set on
$ delete testssl-ssltest-output.;* $ delete testssl-x509-output.;*
$ $
$ if p3 .eqs. "" $ if p3 .eqs. ""
$ then $ then
@ -186,5 +186,5 @@ $ goto exit
$ exit3: $ exit3:
$ RET = 3 $ RET = 3
$ exit: $ exit:
$ delete certs.tmp;* $ if p3 .eqs. "" then delete certs.tmp;*
$ exit 'RET' $ exit 'RET'