Make sure that all test files are gone before starting the tests, or
backup will complain about some version not existing. Perhaps.
diff --git a/test/tcrl.com b/test/tcrl.com
index f25975f..2e6ab28 100644
--- a/test/tcrl.com
+++ b/test/tcrl.com
@@ -10,6 +10,9 @@
$ 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"
diff --git a/test/testca.com b/test/testca.com
index ea75479..c670f2b 100644
--- a/test/testca.com
+++ b/test/testca.com
@@ -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
$
diff --git a/test/testenc.com b/test/testenc.com
index 5a1fc47..3b66f2e 100644
--- a/test/testenc.com
+++ b/test/testenc.com
@@ -8,8 +8,12 @@
$ 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 @@
$ 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
diff --git a/test/tpkcs7.com b/test/tpkcs7.com
index 997b870..9e34593 100644
--- a/test/tpkcs7.com
+++ b/test/tpkcs7.com
@@ -10,6 +10,9 @@
$ 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"
diff --git a/test/tpkcs7d.com b/test/tpkcs7d.com
index 1f76adc..7d4f879 100644
--- a/test/tpkcs7d.com
+++ b/test/tpkcs7d.com
@@ -10,6 +10,9 @@
$ 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"
diff --git a/test/treq.com b/test/treq.com
index 81f5e3b..22c22c3 100644
--- a/test/treq.com
+++ b/test/treq.com
@@ -10,6 +10,9 @@
$ if p1 .nes. "" then t = p1
$
$ write sys$output "testing req 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"
diff --git a/test/trsa.com b/test/trsa.com
index c7d1ec4..28add5e 100644
--- a/test/trsa.com
+++ b/test/trsa.com
@@ -10,6 +10,9 @@
$ if p1 .nes. "" then t = p1
$
$ write sys$output "testing RSA 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"
diff --git a/test/tsid.com b/test/tsid.com
index a9ad696..bde23f9 100644
--- a/test/tsid.com
+++ b/test/tsid.com
@@ -10,6 +10,9 @@
$ if p1 .nes. "" then t = p1
$
$ write sys$output "testing session-id 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"
diff --git a/test/tx509.com b/test/tx509.com
index 8b6adc1..985969c 100644
--- a/test/tx509.com
+++ b/test/tx509.com
@@ -10,6 +10,9 @@
$ if p1 .nes. "" then t = p1
$
$ write sys$output "testing X509 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"
