diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2023-02-24 10:36:30 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2023-02-24 10:36:30 +0200 |
| commit | 267725099deada5982cf99dc544b590c418732d1 (patch) | |
| tree | 2f6b6d08c617f96fff576d7d272b80db8bf2dd41 /test | |
| parent | 0a6ab36fe60438a4c98eb6f216efc3a6a9cf52d2 (diff) | |
| parent | a908e81a6b4a41116e3268a915449881c9982209 (diff) | |
| download | gawk-267725099deada5982cf99dc544b590c418732d1.tar.gz | |
Merge branch 'gawk-5.2-stable'
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 7 | ||||
| -rw-r--r-- | test/Makefile.am | 6 | ||||
| -rw-r--r-- | test/Makefile.in | 16 | ||||
| -rw-r--r-- | test/Maketests | 10 | ||||
| -rw-r--r-- | test/elemnew2.awk | 15 | ||||
| -rw-r--r-- | test/elemnew2.ok | 3 | ||||
| -rw-r--r-- | test/elemnew3.awk | 9 | ||||
| -rw-r--r-- | test/elemnew3.ok | 1 |
8 files changed, 65 insertions, 2 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index b2e58d36..cad00a01 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,10 @@ +2023-02-24 Arnold D. Robbins <arnold@skeeve.com> + + * Makefile.am (EXTRA_DIST): New test: elemnew2. + * elemnew2.awk, elemnew2.ok: New files. + * Makefile.am (EXTRA_DIST): New test: elemnew3. + * elemnew3.awk, elemnew3.ok: New files. + 2023-02-09 Arnold D. Robbins <arnold@skeeve.com> * badargs.ok: Update after code changes. diff --git a/test/Makefile.am b/test/Makefile.am index 4c98b10f..6d000178 100644 --- a/test/Makefile.am +++ b/test/Makefile.am @@ -292,6 +292,10 @@ EXTRA_DIST = \ dynlj.ok \ elemnew1.awk \ elemnew1.ok \ + elemnew2.awk \ + elemnew2.ok \ + elemnew3.awk \ + elemnew3.ok \ escapebrace.awk \ escapebrace.in \ escapebrace.ok \ @@ -1505,7 +1509,7 @@ GAWK_EXT_TESTS = \ clos1way5 clos1way6 colonwarn commas crlf csv1 dbugeval dbugeval2 \ dbugeval3 dbugeval4 dbugtypedre1 dbugtypedre2 delsub \ devfd devfd1 devfd2 dfacheck1 dumpvars \ - elemnew1 errno exit fieldwdth forcenum fpat1 fpat2 \ + elemnew1 elemnew2 elemnew3 errno exit fieldwdth forcenum fpat1 fpat2 \ fpat3 fpat4 fpat5 fpat6 fpat7 fpat8 fpat9 fpatnull fsfwfs functab1 \ functab2 functab3 functab6 funlen fwtest fwtest2 fwtest3 fwtest4 \ fwtest5 fwtest6 fwtest7 fwtest8 genpot gensub gensub2 gensub3 \ diff --git a/test/Makefile.in b/test/Makefile.in index bea9c6d3..1cd775d1 100644 --- a/test/Makefile.in +++ b/test/Makefile.in @@ -556,6 +556,10 @@ EXTRA_DIST = \ dynlj.ok \ elemnew1.awk \ elemnew1.ok \ + elemnew2.awk \ + elemnew2.ok \ + elemnew3.awk \ + elemnew3.ok \ escapebrace.awk \ escapebrace.in \ escapebrace.ok \ @@ -1769,7 +1773,7 @@ GAWK_EXT_TESTS = \ clos1way5 clos1way6 colonwarn commas crlf csv1 dbugeval dbugeval2 \ dbugeval3 dbugeval4 dbugtypedre1 dbugtypedre2 delsub \ devfd devfd1 devfd2 dfacheck1 dumpvars \ - elemnew1 errno exit fieldwdth forcenum fpat1 fpat2 \ + elemnew1 elemnew2 elemnew3 errno exit fieldwdth forcenum fpat1 fpat2 \ fpat3 fpat4 fpat5 fpat6 fpat7 fpat8 fpat9 fpatnull fsfwfs functab1 \ functab2 functab3 functab6 funlen fwtest fwtest2 fwtest3 fwtest4 \ fwtest5 fwtest6 fwtest7 fwtest8 genpot gensub gensub2 gensub3 \ @@ -4523,6 +4527,16 @@ elemnew1: @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ +elemnew2: + @echo $@ + @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + +elemnew3: + @echo $@ + @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + exit: @echo $@ @-$(LOCALES) AWK="$(AWKPROG)" "$(srcdir)"/$@.sh > _$@ 2>&1 || echo EXIT CODE: $$? >>_$@ diff --git a/test/Maketests b/test/Maketests index 31d5f1a0..628ff3fa 100644 --- a/test/Maketests +++ b/test/Maketests @@ -1457,6 +1457,16 @@ elemnew1: @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ +elemnew2: + @echo $@ + @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + +elemnew3: + @echo $@ + @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + exit: @echo $@ @-$(LOCALES) AWK="$(AWKPROG)" "$(srcdir)"/$@.sh > _$@ 2>&1 || echo EXIT CODE: $$? >>_$@ diff --git a/test/elemnew2.awk b/test/elemnew2.awk new file mode 100644 index 00000000..4f765032 --- /dev/null +++ b/test/elemnew2.awk @@ -0,0 +1,15 @@ +#!/usr/bin/gawk -f + +function f(x) { + return x; +} + +BEGIN { + print "a[b] is " (a["b"] ? "true" : "false"); + + f(a["b"]); + + print "a[b] is " (a["b"] ? "true" : "false"); + + print a["b"]; +} diff --git a/test/elemnew2.ok b/test/elemnew2.ok new file mode 100644 index 00000000..0de7b2d6 --- /dev/null +++ b/test/elemnew2.ok @@ -0,0 +1,3 @@ +a[b] is false +a[b] is false + diff --git a/test/elemnew3.awk b/test/elemnew3.awk new file mode 100644 index 00000000..4bb0d5d4 --- /dev/null +++ b/test/elemnew3.awk @@ -0,0 +1,9 @@ +BEGIN { + f(a["b"]) + print typeof(a["b"]) +} + +function f(x) +{ + return x +} diff --git a/test/elemnew3.ok b/test/elemnew3.ok new file mode 100644 index 00000000..3d17e76e --- /dev/null +++ b/test/elemnew3.ok @@ -0,0 +1 @@ +unassigned |