← Back to branch summary

~vcs-imports/gawk/master

« back to all changes in this revision

Viewing changes to vms/vmstest.com

  • Committer: Arnold D. Robbins
  • Date: 2025-01-02 12:46:31 UTC
  • mfrom: (2057.3.19)
  • Revision ID: git-v1:c4961b812272a67c4eb10d2fe4ec3c4a68f1a6d1
Merge branch 'gawk-5.3-stable'

Show diffs side-by-side

added added

removed removed

Lines of Context:
vms/vmstest.com
753
753
$
754
754
$colonwarn:     echo "''test'"
755
755
$       test_class = "gawk_ext"
 
756
$   if f$search("sys$disk:[]_''test'*.tmp;*") .nes. ""
 
757
$   then
 
758
$       rm _'test'*.tmp;*
 
759
$   endif
 
760
$   if f$search("sys$disk:[]_''test'*.err;*") .nes. ""
 
761
$   then
 
762
$       rm _'test'*.err;*
 
763
$   endif
 
764
$   define/user sys$error _'test'.err
756
765
$       gawk -f 'test'.awk 1 < 'test'.in > _'test'.tmp
 
766
$   define/user sys$error _'test'_2.err
757
767
$       gawk -f 'test'.awk 2 < 'test'.in > _'test'_2.tmp
 
768
$   define/user sys$error _'test'_3.err
758
769
$       gawk -f 'test'.awk 3 < 'test'.in > _'test'_3.tmp
759
 
$       if f$search("sys$disk:[]_''test'_%.tmp;2") .nes. ""
 
770
$       if f$search("sys$disk:[]_''test'.tmp;2") .nes. ""
760
771
$       then
761
772
$           delete sys$disk:[]_'test'_%.tmp;2
762
773
$       endif
764
775
$       then
765
776
$           delete sys$disk:[]_'test'.tmp;2
766
777
$       endif
767
 
$       append _'test'_2.tmp,_'test'_3.tmp _'test'.tmp
768
 
$       cmp 'test'.ok sys$disk:[]_'test'.tmp;1
 
778
$       append -
 
779
       sys$disk:[]_'test'.tmp,sys$disk:[]_'test'.err,-
 
780
           sys$disk:[]_'test'_2.tmp,sys$disk:[]_'test'_2.err,-
 
781
           sys$disk:[]_'test'_3.tmp -
 
782
           _'test'_3.err
 
783
$       cmp 'test'.ok sys$disk:[]_'test'.err;1
769
784
$       if $status
770
785
$       then
771
786
$           rm _'test'*.tmp;*
 
787
$           rm _'test'*.err;*
772
788
$           gosub junit_report_pass
773
789
$       else
774
790
$           gosub junit_report_fail_diff
3770
3786
$       test_class = "gawk_ext"
3771
3787
$       gawk --profile -v "sortcmd=SORT sys$input: sys$output:" -
3772
3788
                        -f xref.awk dtdgport.awk > _NL:
 
3789
$!  Test passes, but verification failing.
 
3790
$   skip_reason = "Verification bug in VMS 9.2-2 edit/sum access violation
 
3791
$   gosub junit_report_skip
 
3792
$   return
3773
3793
$       ! sed <awkprof.out 1,2d >_profile2.tmp
3774
3794
$       sumslp awkprof.out /update=sys$input: /output=_'test'.tmp
3775
3795
-1,2