From d15dd388c1aac1d71a9fa75916b7efa3b7a75a86 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Mon, 25 Jan 2010 00:20:29 +0000 Subject: [PATCH] It seems like sslroot: needs to be defined for some tests to work. Submitted by Steven M. Schweda --- test/tests.com | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test/tests.com b/test/tests.com index 702d087107..7fd99937d8 100644 --- 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 $ on error then goto exit @@ -287,4 +290,5 @@ $ $ $ exit: $ set default '__save_default' +$ deassign sslroot $ exit -- 2.25.1