X-Git-Url: https://git.openssl.org/?p=openssl.git;a=blobdiff_plain;f=test%2Ftesttsa.com;h=5676d70e774243a8390993697b0eac8a6e328316;hp=dd9997a5c9b569b5c1dad179cf040dab35306029;hb=b31db9ee96c76c964085c09768b3c10cca0c807f;hpb=8937a13e0cab65fbe74d19217d3a46074e1a98f3

diff --git a/test/testtsa.com b/test/testtsa.com
index dd9997a5c9..5676d70e77 100644
--- a/test/testtsa.com
+++ b/test/testtsa.com
@@ -6,8 +6,10 @@ $	__arch := VAX
 $	if f$getsyi("cpu") .ge. 128 then __arch := AXP
 $	exe_dir := sys$disk:[-.'__arch'.exe.apps]
 $
-$	openssl := mcr 'exe_dir'openssl
+$	openssl := mcr 'f$parse(exe_dir+"openssl.exe")'
 $	OPENSSL_CONF := [-]CAtsa.cnf
+$	! Because that's what ../apps/CA.sh really looks at
+$	SSLEAY_CONFIG = "-config " + OPENSSL_CONF
 $
 $ error:
 $	subroutine
@@ -18,9 +20,12 @@ $
 $ setup_dir:
 $	subroutine
 $
-$		@[-.utils]deltree [.tsa]*.*
-$ 		set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) tsa.dir;*
-$ 		delete tsa.dir;*
+$		if f$search("tsa.dir") .nes ""
+$		then
+$			@[-.util]deltree [.tsa]*.*
+$ 			set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) tsa.dir;*
+$ 			delete tsa.dir;*
+$		endif
 $
 $		create/dir [.tsa]
 $		set default [.tsa]
@@ -30,7 +35,7 @@ $ clean_up_dir:
 $	subroutine
 $
 $		set default [-]
-$		@[-.utils]deltree [.tsa]*.*
+$		@[-.util]deltree [.tsa]*.*
 $ 		set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) tsa.dir;*
 $ 		delete tsa.dir;*
 $	endsubroutine
@@ -39,7 +44,7 @@ $ create_ca:
 $	subroutine
 $
 $		write sys$output "Creating a new CA for the TSA tests..."
-$		@[--.utils]deltree [.demoCA]*.*
+$		@[--.util]deltree [.demoCA]*.*
 $
 $		open/write file VMStsa-response.create_ca
 $		write file ""