In some environments, we need to defined sslroot locally.

diff --git a/test/tests.com b/test/tests.com
index a5d5992d59b20410f51cbc8a3106f6daed98ac7f..cb74490b05e1c8cdeea2e7d87d68852c774cd35a 100644 (file)
--- a/test/tests.com
+++ b/test/tests.com
@@ -12,6 +12,9 @@ $     if __arch .eqs. "" then __arch := UNK
 $      texe_dir := sys$disk:[-.'__arch'.exe.test]
 $      exe_dir := sys$disk:[-.'__arch'.exe.apps]
 $
+$      sslroot = f$parse("sys$disk:[-.apps];",,,,"syntax_only") - "].;"+ ".]"
+$      define /translation_attributes = concealed sslroot 'sslroot'
+$
 $      set default '__here'
 $
 $      on control_y then goto exit
@@ -270,4 +273,5 @@ $
 $
 $ exit:
 $      set default '__save_default'
+$      deassign sslroot
 $      exit