Commit 921c9bd5 authored by Richard Levitte's avatar Richard Levitte
Browse files

Make sure that all test files are gone before starting the tests, or 

backup will complain about some version not existing.  Perhaps.
parent 8072c135

test/tcrl.com

+3 −0
Original line number Diff line number Diff line
@@ -10,6 +10,9 @@ $ t := testcrl.pem 
$	if p1 .nes. "" then t = p1

$

$	write sys$output "testing CRL conversions"

$	if f$search("fff.*") .nes "" then delete fff.*;*

$	if f$search("ff.*") .nes "" then delete ff.*;*

$	if f$search("f.*") .nes "" then delete f.*;*

$	copy 't' fff.p

$

$	write sys$output "p -> d"

test/testca.com

+3 −1
Original line number Diff line number Diff line
@@ -40,7 +40,9 @@ $ 
$	set noon

$	call deltree [.demoCA]*.*

$	set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) demoCA.dir;*

$	delete demoCA.dir;*,newcert.pem;*,newreq.pem;*

$	delete demoCA.dir;*

$	if f$search("newcert.pem") .nes. "" then delete newcert.pem;*

$	if f$search("newcert.pem") .nes. "" then delete newreq.pem;*

$	set on

$!	#usage: CA -newcert|-newreq|-newca|-sign|-verify

$

test/testenc.com

+10 −0
Original line number Diff line number Diff line
@@ -8,8 +8,12 @@ $ testsrc := makefile.ssl 
$	test := p.txt

$	cmd := mcr 'exe_dir'openssl

$

$	if f$search(test) .nes. "" then delete 'test';*

$	copy 'testsrc' 'test'

$

$	if f$search(test+"-cipher") .nes. "" then delete 'test'-cipher;*

$	if f$search(test+"-clear") .nes. "" then delete 'test'-clear;*

$

$	write sys$output "cat"

$	'cmd' enc -in 'test' -out 'test'-cipher

$	'cmd' enc -in 'test'-cipher -out 'test'-clear
@@ -30,6 +34,12 @@ $ open/read f 'test'-cipher-commands 
$ loop_cipher_commands:

$	read/end=loop_cipher_commands_end f i

$	write sys$output i

$

$	if f$search(test+"-"+i+"-cipher") .nes. "" then -

		delete 'test'-'i'-cipher;*

$	if f$search(test+"-"+i+"-clear") .nes. "" then -

		delete 'test'-'i'-clear;*

$

$	'cmd' 'i' -bufsize 113 -e -k test -in 'test' -out 'test'-'i'-cipher

$	'cmd' 'i' -bufsize 157 -d -k test -in 'test'-'i'-cipher -out 'test'-'i'-clear

$	backup/compare 'test' 'test'-'i'-clear

test/tpkcs7.com

+3 −0
Original line number Diff line number Diff line
@@ -10,6 +10,9 @@ $ t := testp7.pem 
$	if p1 .nes. "" then t = p1

$

$	write sys$output "testing PKCS7 conversions"

$	if f$search("fff.*") .nes "" then delete fff.*;*

$	if f$search("ff.*") .nes "" then delete ff.*;*

$	if f$search("f.*") .nes "" then delete f.*;*

$	copy 't' fff.p

$

$	write sys$output "p -> d"

test/tpkcs7d.com

+3 −0
Original line number Diff line number Diff line
@@ -10,6 +10,9 @@ $ t := pkcs7-1.pem 
$	if p1 .nes. "" then t = p1

$

$	write sys$output "testing PKCS7 conversions (2)"

$	if f$search("fff.*") .nes "" then delete fff.*;*

$	if f$search("ff.*") .nes "" then delete ff.*;*

$	if f$search("f.*") .nes "" then delete f.*;*

$	copy 't' fff.p

$

$	write sys$output "p -> d"