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

diff --git a/test/testtsa.com b/test/testtsa.com
index 846e8c162df5c5be6ccd76c706b84ef00ac44b9d..b6bd8c67b052faae8b4dd01270991947322c7dde 100644 (file)
--- a/test/testtsa.com
+++ b/test/testtsa.com
@@ -18,9 +18,12 @@ $
 $ setup_dir:
 $      subroutine
 $
-$              @[-.util]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]