Only try to remove the tsa.dir subdirectory if it actually exists.

[openssl.git] / test / testtsa.com

diff --git a/test/testtsa.com b/test/testtsa.com
index dd9997a5c9b569b5c1dad179cf040dab35306029..b6bd8c67b052faae8b4dd01270991947322c7dde 100644 (file)
--- a/test/testtsa.com
+++ b/test/testtsa.com
@@ -18,9 +18,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 +33,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 +42,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 ""