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 Original line Diff line number Diff line
@@ -10,6 +10,9 @@ $ t := testcrl.pem 
$	if p1 .nes. "" then t = p1

$	if p1 .nes. "" then t = p1

$

$

$	write sys$output "testing CRL conversions"

$	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

$	copy 't' fff.p

$

$

$	write sys$output "p -> d"

$	write sys$output "p -> d"

test/testca.com

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

$	set noon

$	call deltree [.demoCA]*.*

$	call deltree [.demoCA]*.*

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

$	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

$	set on

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

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

$

$

test/testenc.com

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

$	test := p.txt

$	cmd := mcr 'exe_dir'openssl

$	cmd := mcr 'exe_dir'openssl

$

$

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

$	copy 'testsrc' '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"

$	write sys$output "cat"

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

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

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

$	'cmd' enc -in 'test'-cipher -out 'test'-clear
@@ -30,6 +34,12 @@ $ 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

$

$	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 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

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

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

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

test/tpkcs7.com

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

$	if p1 .nes. "" then t = p1

$

$

$	write sys$output "testing PKCS7 conversions"

$	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

$	copy 't' fff.p

$

$

$	write sys$output "p -> d"

$	write sys$output "p -> d"

test/tpkcs7d.com

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

$	if p1 .nes. "" then t = p1

$

$

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

$	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

$	copy 't' fff.p

$

$

$	write sys$output "p -> d"

$	write sys$output "p -> d"