Commit 1472f142 authored by Richard Levitte's avatar Richard Levitte
Browse files

In some environments, we need to defined sslroot locally.

parent 00d1ecb1

test/tests.com

+4 −0
Original line number Diff line number Diff line
@@ -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