diff options
| author | John Malmberg <wb8tyw@qsl.net> | 2019-02-13 08:18:56 -0600 |
|---|---|---|
| committer | John Malmberg <wb8tyw@qsl.net> | 2019-02-13 08:18:56 -0600 |
| commit | 268904b0b389cb3fe47c9a3fe7e1e81ef6566e84 (patch) | |
| tree | 1de3915fd991f57df7f269330487b49a358936d9 | |
| parent | db439eb8acf47c3b28d15ce239477315b8157c05 (diff) | |
| download | egawk-268904b0b389cb3fe47c9a3fe7e1e81ef6566e84.tar.gz egawk-268904b0b389cb3fe47c9a3fe7e1e81ef6566e84.tar.bz2 egawk-268904b0b389cb3fe47c9a3fe7e1e81ef6566e84.zip | |
Fix symtab6 test in vms/vmstest.com
| -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 |