Test case to go with 30e682852bf42358156ed62e06e91f75e9f5b807.

We should be able to depend on SYS$SCRATCH being a non-rooted
logical name.

diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t
index 11b6698..5dd27c9 100644 (file)
--- a/vms/ext/filespec.t
+++ b/vms/ext/filespec.t
@@ -156,6 +156,7 @@ __down_:[__the_.__garden_.__path_...]  unixpath        /__down_/__the_/__garden_
 __down_/__the_/__garden_/__path_       vmspath [.__down_.__the_.__garden_.__path_] ^
 __path_        vmspath [.__path_] ^
 /      vmspath sys$disk:[000000] ^*
+/sys$scratch   vmspath sys$scratch: ^
 
 # Redundant characters in Unix paths
 //__some_/__where_//__over_/../__the_.__rainbow_       vmsify  __some_:[__where_]__the_.__rainbow_ __some_:[__where_.__over_.-]__the_.__rainbow_