提交 cde245bd 编写于 作者: R Richard Levitte

Small bugs in the test scripts removed.

上级 1f515cfe
......@@ -28,9 +28,9 @@ $ backup/compare 'test' '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
$ 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
......
......@@ -19,12 +19,12 @@ $ cert=p2
$ endif
$ 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:
$ mcr 'exe_dir'openssl x509 -in 'cert' -text -noout
$ set noon
$ 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
$ then
$ dsa_cert := YES
......@@ -32,7 +32,7 @@ $ else
$ dsa_cert := NO
$ endif
$ set on
$ delete testssl-ssltest-output.;*
$ delete testssl-x509-output.;*
$
$ if p3 .eqs. ""
$ then
......@@ -186,5 +186,5 @@ $ goto exit
$ exit3:
$ RET = 3
$ exit:
$ delete certs.tmp;*
$ if p3 .eqs. "" then delete certs.tmp;*
$ exit 'RET'
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册