diff options
| author | John Malmberg <wb8tyw@qsl.net> | 2020-02-11 21:26:15 -0600 |
|---|---|---|
| committer | John Malmberg <wb8tyw@qsl.net> | 2020-02-11 21:26:15 -0600 |
| commit | 9ce4f70b852959e8a6c244f5cff96d7f50b5594f (patch) | |
| tree | f60d7a9155753caac4f6399ef7cda7aece265229 | |
| parent | abb73745d2f45437fc98d271d1db089fafc0b6a7 (diff) | |
| download | egawk-9ce4f70b852959e8a6c244f5cff96d7f50b5594f.tar.gz egawk-9ce4f70b852959e8a6c244f5cff96d7f50b5594f.tar.bz2 egawk-9ce4f70b852959e8a6c244f5cff96d7f50b5594f.zip | |
Fix profile5 test in vms/vmstest.com
| -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;* |