diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2019-02-15 13:00:27 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2019-02-15 13:00:27 +0200 |
| commit | 028c972a224ea2d6e1e7ed61f12553e95e695e1d (patch) | |
| tree | 0cdaab2a3ae571f55248bc273ebcc11807e3cd1c | |
| parent | 3576fe40421775a3d8e20a0a7a3c751cc062d742 (diff) | |
| parent | 268904b0b389cb3fe47c9a3fe7e1e81ef6566e84 (diff) | |
| download | egawk-028c972a224ea2d6e1e7ed61f12553e95e695e1d.tar.gz egawk-028c972a224ea2d6e1e7ed61f12553e95e695e1d.tar.bz2 egawk-028c972a224ea2d6e1e7ed61f12553e95e695e1d.zip | |
Merge branch 'master' of ssh://git.sv.gnu.org/srv/git/gawk
| -rw-r--r-- | vms/ChangeLog | 4 | ||||
| -rw-r--r-- | vms/vmstest.com | 13 |
2 files changed, 16 insertions, 1 deletions
diff --git a/vms/ChangeLog b/vms/ChangeLog index 44f13a52..43e1af9f 100644 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,3 +1,7 @@ +2019-02-13 John E. Malmberg <wb8tyw@qsl.net> + + * vmstest.com: Fix for symtab6 error handlng. + 2019-01-09 John E. Malmberg <wb8tyw@qsl.net> * generate_config_h_vms_gawk.com: remove unused diff --git a/vms/vmstest.com b/vms/vmstest.com index fb943952..292c5f66 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -1675,13 +1675,24 @@ $ return $ $symtab6: echo "''test'" $ test_class = "gawk_ext" +$ tmp_error = "sys$disk:[]__''test'.tmp2" $ set noOn +$ if f$search(tmp_error) then delete 'tmp_error';* +$ define/user sys$error 'tmp_error' $ gawk -d__'test'.tmp -f 'test'.awk +$ gawk_status = $status +$ if f$search("sys$disk:[]__''test'.tmp") .eqs. "" +$ then +$ copy 'tmp_error' sys$disk:[]__'test.tmp' +$ else +$ append 'tmp_error' sys$disk:[]__'test.tmp' +$ endif +$ if .not. gawk_status then call exit_code 'gawk_status' __'test'.tmp $ pipe search __'test'.tmp "ENVIRON","PROCINFO" /match=nor > _'test'.tmp $ cmp 'test'.ok sys$disk:[]_'test'.tmp $ if $status $ then -$ rm _'test'.tmp;*,__'test'.tmp;* +$ rm _'test'.tmp;*,__'test'.tmp;*,'tmp_error';* $ gosub junit_report_pass $ else $ gosub junit_report_fail_diff |