Commit d15dd388 authored by Richard Levitte's avatar Richard Levitte
Browse files

It seems like sslroot: needs to be defined for some tests to work. 

Submitted by Steven M. Schweda <sms@antinode.info>
parent c3502985

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

$	on error then goto exit
@@ -287,4 +290,5 @@ $ 
$

$ exit:

$	set default '__save_default'

$	deassign sslroot

$	exit