diff options
| -rw-r--r-- | vms/ChangeLog | 6 | ||||
| -rw-r--r-- | vms/vmstest.com | 4 |
2 files changed, 7 insertions, 3 deletions
diff --git a/vms/ChangeLog b/vms/ChangeLog index f851c161..bc6ef03b 100644 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,4 +1,8 @@ -2020-02-11 John E. Malmberg <wb8tyw@wsl.net> +2020-02-11 John E. Malmberg <wb8tyw@qsl.net> + + * vmstest.com: Fix profile5 test. + +2020-02-11 John E. Malmberg <wb8tyw@qsl.net> * vmstest.com: Simplify test error handling. diff --git a/vms/vmstest.com b/vms/vmstest.com index 3f81175a..c74ea4b3 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -3800,7 +3800,7 @@ $ tmp_error = "_''test'.tmp2" $ define/user GAWK_NO_PP_RUN 1 $ define/user sys$error 'tmp_error' $ set noOn -$ gawk --pretty-print=_'test'.tmp1 -f 'test'.awk > _NL: +$ gawk --pretty-print=_'test'.tmp1 -f ./'test'.awk > _NL: $ gawk_status = $status $ set On $ if f$search("sys$disk:[]_''test'.tmp1;2") .nes. "" @@ -3820,7 +3820,7 @@ $ call exit_code 'gawk_status' _'test'.tmp $ endif $ cmp sys$disk:[]_'test'.ok sys$disk:[]_'test'.tmp $ cmp_status = $status -$ if .not. gawk_status then gawk_status = cmp_status +$ if gawk_status then gawk_status = cmp_status $ if gawk_status $ then $ rm _'test'.tmp;*,_'test'.ok;*,_'test'.tmp1;* |