diff options
author | Arnold D. Robbins <arnold@skeeve.com> | 2023-01-31 20:46:24 +0200 |
---|---|---|
committer | Arnold D. Robbins <arnold@skeeve.com> | 2023-01-31 20:46:24 +0200 |
commit | 743c5f88b9cb030a53fe0c0aa0067507a9d50188 (patch) | |
tree | 8eac424cbd3379b1459e809aca65569d570c6a5d /test | |
parent | ac8094ab1fefaf43e35802531e290dc7df896a37 (diff) | |
download | gawk-743c5f88b9cb030a53fe0c0aa0067507a9d50188.tar.gz |
Fix field assignment bug.
Diffstat (limited to 'test')
-rw-r--r-- | test/ChangeLog | 3 | ||||
-rw-r--r-- | test/Makefile.am | 6 | ||||
-rw-r--r-- | test/Makefile.in | 11 | ||||
-rw-r--r-- | test/Maketests | 5 | ||||
-rw-r--r-- | test/fieldassign.awk | 1 | ||||
-rw-r--r-- | test/fieldassign.in | 2 | ||||
-rw-r--r-- | test/fieldassign.ok | 2 |
7 files changed, 28 insertions, 2 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 1da93514..97cfd1c6 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -4,6 +4,9 @@ * elemnew1.awk, elemnew1.ok: New files. Also, update the copyright year. + * Makefile.am (EXTRA_DIST): New test: fieldassign. + * fieldassign.awk, fieldassign.in, fieldassign.ok: New files. + 2023-01-22 Arnold D. Robbins <arnold@skeeve.com> * makepmafile.c (main): Make the file mode 0600. diff --git a/test/Makefile.am b/test/Makefile.am index 09e56e92..24ae6787 100644 --- a/test/Makefile.am +++ b/test/Makefile.am @@ -318,6 +318,9 @@ EXTRA_DIST = \ fcall_exit2.ok \ fflush.ok \ fflush.sh \ + fieldassign.awk \ + fieldassign.in \ + fieldassign.ok \ fieldwdth.awk \ fieldwdth.in \ fieldwdth.ok \ @@ -1459,7 +1462,8 @@ BASIC_TESTS = \ delarprm delfunc dfacheck2 dfamb1 dfastress divzero divzero2 \ dynlj eofsplit \ eofsrc1 escapebrace exit2 exitval1 exitval2 exitval3 fcall_exit \ - fcall_exit2 fldchg fldchgnf fldterm fnamedat fnarray fnarray2 \ + fcall_exit2 \ + fieldassign fldchg fldchgnf fldterm fnamedat fnarray fnarray2 \ fnaryscl fnasgnm fnmisc fordel forref forsimp fsbs fscaret fsnul1 \ fsrs fsspcoln fstabplus funsemnl funsmnam funstack getline \ getline2 getline3 getline4 getline5 getlnbuf getlnfa getnr2tb \ diff --git a/test/Makefile.in b/test/Makefile.in index b5d1d9e6..8feff4ee 100644 --- a/test/Makefile.in +++ b/test/Makefile.in @@ -586,6 +586,9 @@ EXTRA_DIST = \ fcall_exit2.ok \ fflush.ok \ fflush.sh \ + fieldassign.awk \ + fieldassign.in \ + fieldassign.ok \ fieldwdth.awk \ fieldwdth.in \ fieldwdth.ok \ @@ -1727,7 +1730,8 @@ BASIC_TESTS = \ delarprm delfunc dfacheck2 dfamb1 dfastress divzero divzero2 \ dynlj eofsplit \ eofsrc1 escapebrace exit2 exitval1 exitval2 exitval3 fcall_exit \ - fcall_exit2 fldchg fldchgnf fldterm fnamedat fnarray fnarray2 \ + fcall_exit2 \ + fieldassign fldchg fldchgnf fldterm fnamedat fnarray fnarray2 \ fnaryscl fnasgnm fnmisc fordel forref forsimp fsbs fscaret fsnul1 \ fsrs fsspcoln fstabplus funsemnl funsmnam funstack getline \ getline2 getline3 getline4 getline5 getlnbuf getlnfa getnr2tb \ @@ -3390,6 +3394,11 @@ fcall_exit2: @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ +fieldassign: + @echo $@ + @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + fldchg: @echo $@ @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ diff --git a/test/Maketests b/test/Maketests index 98245c37..5d7dcee3 100644 --- a/test/Maketests +++ b/test/Maketests @@ -327,6 +327,11 @@ fcall_exit2: @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ +fieldassign: + @echo $@ + @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + fldchg: @echo $@ @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ diff --git a/test/fieldassign.awk b/test/fieldassign.awk new file mode 100644 index 00000000..631775b1 --- /dev/null +++ b/test/fieldassign.awk @@ -0,0 +1 @@ +gsub(/./, "@") && $0 = $1 diff --git a/test/fieldassign.in b/test/fieldassign.in new file mode 100644 index 00000000..5f5521fa --- /dev/null +++ b/test/fieldassign.in @@ -0,0 +1,2 @@ +abc +def diff --git a/test/fieldassign.ok b/test/fieldassign.ok new file mode 100644 index 00000000..11e9cfd5 --- /dev/null +++ b/test/fieldassign.ok @@ -0,0 +1,2 @@ +@@@ +@@@ |