From a62ecbb9f3f17cc69a7a464954fa42b30c57aa47 Mon Sep 17 00:00:00 2001 From: John Malmberg Date: Sat, 25 Mar 2017 15:28:35 -0500 Subject: Fix argarray test on VMS --- vms/ChangeLog | 4 ++++ vms/vmstest.com | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/vms/ChangeLog b/vms/ChangeLog index 2b9deaa4..2268148c 100644 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,3 +1,7 @@ +2017-03-25 John E. Malmberg + + * vmstest.com: Fix argarray teset. + 2016-11-24 John E. Malmberg * gawk_verb.com: correct location for gawk executable. diff --git a/vms/vmstest.com b/vms/vmstest.com index aa96ceba..a10cd3f5 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -920,8 +920,10 @@ $ return $ $argarray: echo "argarray" $ test_class = "basic" +$ copy sys$disk:[]argarray.in sys$disk:[]argarray.input +$ purge sys$disk:[]argarray.input $ define/User TEST "test" !this is useless... -$ gawk -f argarray.awk ./argarray.in - >_argarray.tmp +$ gawk -f argarray.awk ./argarray.input - >_argarray.tmp just a test $ if f$search("sys$disk:[]_''test'.tmp;2") .nes. "" $ then -- cgit v1.2.1