Small bugs in the test scripts removed.

$	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

$	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

$	    dsa_cert := NO

$	endif

$	set on

$	delete testssl-ssltest-output.;*

$	delete testssl-x509-output.;*

$

$	if p3 .eqs. ""

$	then

$ exit3:

$	RET = 3

$ exit:

$	delete certs.tmp;*

$	if p3 .eqs. "" then delete certs.tmp;*

$	exit 'RET'