From 268904b0b389cb3fe47c9a3fe7e1e81ef6566e84 Mon Sep 17 00:00:00 2001
From: John Malmberg <wb8tyw@qsl.net>
Date: Wed, 13 Feb 2019 08:18:56 -0600
Subject: Fix symtab6 test in vms/vmstest.com

---
 vms/vmstest.com | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'vms/vmstest.com')

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
-- 
cgit v1.2.3