[gawk-diffs] [SCM] gawk branch, feature/improve-tests, updated. gawk-4.1.0-3072-gb7c669a

[Arnold Robbins]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "gawk".

The branch, feature/improve-tests has been updated
       via  b7c669ad18ada830cea83c8c57222e908bba1ab2 (commit)
      from  345b91888eb4c30da463d88a84b1e77659c426c8 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=b7c669ad18ada830cea83c8c57222e908bba1ab2

commit b7c669ad18ada830cea83c8c57222e908bba1ab2
Author: Arnold D. Robbins <address@hidden>
Date:   Mon Apr 16 16:07:13 2018 +0300

    Remove test/Gentest.vms and any references to it.

diff --git a/test/ChangeLog b/test/ChangeLog
index 3043a20..3943ff2 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,9 @@
+2018-04-16         Arnold D. Robbins     <address@hidden>
+
+       * Gentests: Remove VMS stuff. It hasn't been used in years.
+       * Gentests.vms: Removed.
+       * Makefile.am (EXTRA_DIST): Remove Gentests.vms.
+
 2018-04-12         Arnold D. Robbins     <address@hidden>
 
        * Gentests: Add support tests that need --re-interval.
diff --git a/test/Gentests b/test/Gentests
index d679817..d7feaef 100755
--- a/test/Gentests
+++ b/test/Gentests
@@ -3,8 +3,6 @@
 # This program should generate Maketests
 
 BEGIN {
-       if (VMSTESTS) vmsargvfixup()
-
        # read the list of files
        for (i = 2; i < ARGC; i++)
                files[ARGV[i]]
@@ -173,8 +171,6 @@ function generate(x,        s, i, locale_string)
        else
                delete files[x".awk"]
 
-       if (VMSTESTS) return vmsgenerate(x)
-
        print x ":"
 
        s = ""
@@ -287,6 +283,3 @@ END {
                    !(gensub(/\.(awk|in|sh)$/,"",1,x) in targets))
                        printf "WARNING: unused file `%s'.\n", x > "/dev/stderr"
 }
-
-# VMSTESTS: generate test template in vms format
-# gawk -v "VMSTESTS=1" -f Gentests -f Gentests.vms Makefile.am *.awk *.in 
>Maketests.vms
diff --git a/test/Gentests.vms b/test/Gentests.vms
deleted file mode 100644
index cac7abd..0000000
--- a/test/Gentests.vms
+++ /dev/null
@@ -1,102 +0,0 @@
-# Gentests.vms - supplements Gentests to generate tests in vms format
-# gawk -v "VMSTESTS=1" -f Gentests -f Gentests.vms Makefile.am *.awk *.in 
>Maketests.vms
-
-/^FAIL_CODE1 *=/,/[^\\]$/ {
-       gsub(/(^FAIL_CODE1 *=|\\$)/,"")
-       for (i = 1; i <= NF; i++)
-               fail_code1[$i]
-       next
-}
-
-END {
-       if (VMSTESTS) vmsepilog()
-}
-
-#      wildcard expansion done by gawk's vms_arg_fixup() to simulate shell
-#      globbing produces full filenames:  device:[directory]name.type;#
-#      and by default also forces the value into upper case
-function vmsargvfixup(         i, f)
-{
-       # we're forcing lowercase below; need to override for some files
-       vmscasefixup["makefile.in"] = "Makefile.in"
-
-       for (i = 2; i < ARGC; i++) {
-               f = ARGV[i]
-               sub(/^.+[]>]/, "", f)           # strip dev+dir prefix
-               sub(/\;[0-9]+$/, "", f)         # strip version suffix
-               f = tolower(f)
-               if (f in vmscasefixup) f = vmscasefixup[f]
-               ARGV[i] = f
-       }
-
-       vmsprolog()             # insert some stuff into the output file
-}
-
-#      output sufficient for the simplest tests in vms/vmstest.com
-function vmsgenerate(x,                s, o)
-{
-       # generate a gosub-style subroutine; start with its label
-       printf "$" x ":"
-
-       s = ""
-       if (x in lint) {
-               s = s " --lint"
-               delete lint[x]
-       }
-       if (x in lint_old) {
-               s = s " --lint-old"
-               delete lint_old[x]
-       }
-       if (x".in" in files) {
-               s = s " <" x ".in"
-               delete files[x".in"]
-       }
-
-       o = "_" x ".tmp"
-       print "\techo \"" x "\""
-       print "$\tAWKPATH_srcdir"
-       print "$\tgawk -f " x ".awk" s " >" o " 2>&1"
-       print "$\tif .not.$status then  call exit_code \"" o "\" " \
-               ((x in fail_code1) ? "1" : "2")
-       print "$\tcmp " x ".ok " o
-       print "$\tif $status"
-       print "$\tthen\trm " o ";"
-       print "$\telse\techo \"test \"\"" x "\"\" failed\""
-       print "$\tendif"
-       print "$\treturn"
-
-       return
-}
-
-#      prolog for Maketests.vms
-function vmsprolog()
-{
-       print "$"
-       print "$\techo\t= \"write sys$output\""
-       print "$\tcmp\t= \"diff/Output=_NL:/Maximum=1\""
-       print "$\trm\t= \"delete/noConfirm/noLog\""
-       print "$\tgawk\t= \"$sys$disk:[-]gawk.exe\""
-       print "$\tAWKPATH_srcdir = \"define/User AWKPATH sys$disk:[]\""
-       print "$"
-
-       print "$\tset noOn"
-       print "$ gosub 'p1'"
-       print "$\tset On"
-       print "$ exit"
-       print "$"
-}
-
-#      epilog for Maketests.vms
-function vmsepilog()
-{
-       print "$"
-       print "$! add a fake \"EXIT CODE\" record to the end of temporary 
output file"
-       print "$! to simulate the ``|| echo EXIT CODE $$? >>_$@'' shell script 
usage"
-       print "$exit_code: subroutine"
-       print "$\tif f$trnlnm(\"FTMP\").nes.\"\" then  close/noLog ftmp"
-       print "$\topen/Append ftmp 'p1'"
-       print "$\twrite ftmp \"EXIT CODE: \",p2"
-       print "$\tclose ftmp"
-       print "$ endsubroutine !exit_code"
-       print "$"
-}
diff --git a/test/Makefile.am b/test/Makefile.am
index a8197c0..87eaff9 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -28,7 +28,6 @@ EXTRA_DIST = \
        lib \
        ChangeLog.0 \
        Gentests \
-       Gentests.vms \
        Maketests \
        README \
        aadelete1.awk \
diff --git a/test/Makefile.in b/test/Makefile.in
index 9a5c11b..1b76f3d 100644
--- a/test/Makefile.in
+++ b/test/Makefile.in
@@ -286,7 +286,6 @@ EXTRA_DIST = \
        lib \
        ChangeLog.0 \
        Gentests \
-       Gentests.vms \
        Maketests \
        README \
        aadelete1.awk \

-----------------------------------------------------------------------

Summary of changes:
 test/ChangeLog    |   6 ++++
 test/Gentests     |   7 ----
 test/Gentests.vms | 102 ------------------------------------------------------
 test/Makefile.am  |   1 -
 test/Makefile.in  |   1 -
 5 files changed, 6 insertions(+), 111 deletions(-)
 delete mode 100644 test/Gentests.vms


hooks/post-receive
-- 
gawk