diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2019-10-13 14:29:16 -0400 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2019-10-13 14:29:16 -0400 |
| commit | 71f74c483838db2e18a7756469aa8c7edc76c33f (patch) | |
| tree | 018b7830dbed25bf7e1b8145df751cbdccdc4f63 /test | |
| parent | 8f330804cf3061aacf627ca63f6483207230d7b6 (diff) | |
| download | egawk-71f74c483838db2e18a7756469aa8c7edc76c33f.tar.gz egawk-71f74c483838db2e18a7756469aa8c7edc76c33f.tar.bz2 egawk-71f74c483838db2e18a7756469aa8c7edc76c33f.zip | |
Fix assigning typed regex to FS and RS.
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 7 | ||||
| -rw-r--r-- | test/Makefile.am | 7 | ||||
| -rw-r--r-- | test/Makefile.in | 17 | ||||
| -rw-r--r-- | test/Maketests | 10 | ||||
| -rw-r--r-- | test/typedregex5.awk | 2 | ||||
| -rw-r--r-- | test/typedregex5.in | 1 | ||||
| -rw-r--r-- | test/typedregex5.ok | 1 | ||||
| -rw-r--r-- | test/typedregex6.awk | 2 | ||||
| -rw-r--r-- | test/typedregex6.in | 1 | ||||
| -rw-r--r-- | test/typedregex6.ok | 6 |
10 files changed, 54 insertions, 0 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 956a0ff8..0ec118e4 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,10 @@ +2019-10-13 Arnold D. Robbins <arnold@skeeve.com> + + * Makefile.am (EXTRA_DISTS): New tests, typedregex5 and + typedregex6. + * typedregex5.awk, typedregex5.ok, typedregex6.in, + typedregex5.in, typedregex6.awk, typedregex6.ok: New files. + 2019-09-24 Jürgen Kahrs Google <juergen.kahrs@googlemail.com> * Makefile.am (EXTRA_DISTS): New test, mpfranswer42. diff --git a/test/Makefile.am b/test/Makefile.am index 62767427..053ff545 100644 --- a/test/Makefile.am +++ b/test/Makefile.am @@ -1243,6 +1243,12 @@ EXTRA_DIST = \ typedregex3.ok \ typedregex4.awk \ typedregex4.ok \ + typedregex5.awk \ + typedregex5.in \ + typedregex5.ok \ + typedregex6.awk \ + typedregex6.in \ + typedregex6.ok \ typeof1.awk \ typeof1.ok \ typeof2.awk \ @@ -1384,6 +1390,7 @@ GAWK_EXT_TESTS = \ splitarg4 strftfld strftime strtonum strtonum1 switch2 symtab1 symtab2 \ symtab3 symtab4 symtab5 symtab6 symtab7 symtab8 symtab9 symtab10 \ timeout typedregex1 typedregex2 typedregex3 typedregex4 \ + typedregex5 typedregex6 \ typeof1 typeof2 typeof3 typeof4 typeof5 \ watchpoint1 diff --git a/test/Makefile.in b/test/Makefile.in index f5450ff3..357f3b16 100644 --- a/test/Makefile.in +++ b/test/Makefile.in @@ -1502,6 +1502,12 @@ EXTRA_DIST = \ typedregex3.ok \ typedregex4.awk \ typedregex4.ok \ + typedregex5.awk \ + typedregex5.in \ + typedregex5.ok \ + typedregex6.awk \ + typedregex6.in \ + typedregex6.ok \ typeof1.awk \ typeof1.ok \ typeof2.awk \ @@ -1643,6 +1649,7 @@ GAWK_EXT_TESTS = \ splitarg4 strftfld strftime strtonum strtonum1 switch2 symtab1 symtab2 \ symtab3 symtab4 symtab5 symtab6 symtab7 symtab8 symtab9 symtab10 \ timeout typedregex1 typedregex2 typedregex3 typedregex4 \ + typedregex5 typedregex6 \ typeof1 typeof2 typeof3 typeof4 typeof5 \ watchpoint1 @@ -4793,6 +4800,16 @@ typedregex3: @AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ +typedregex5: + @echo $@ + @AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + +typedregex6: + @echo $@ + @AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + typeof1: @echo $@ @AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ diff --git a/test/Maketests b/test/Maketests index a17bf90e..3e443f54 100644 --- a/test/Maketests +++ b/test/Maketests @@ -1966,6 +1966,16 @@ typedregex3: @AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ +typedregex5: + @echo $@ + @AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + +typedregex6: + @echo $@ + @AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + typeof1: @echo $@ @AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ diff --git a/test/typedregex5.awk b/test/typedregex5.awk new file mode 100644 index 00000000..f702543b --- /dev/null +++ b/test/typedregex5.awk @@ -0,0 +1,2 @@ +BEGIN { FS = @/./ } +{ print typeof(FS), $1, NF } diff --git a/test/typedregex5.in b/test/typedregex5.in new file mode 100644 index 00000000..7aff6580 --- /dev/null +++ b/test/typedregex5.in @@ -0,0 +1 @@ +ab.c diff --git a/test/typedregex5.ok b/test/typedregex5.ok new file mode 100644 index 00000000..b986ed9a --- /dev/null +++ b/test/typedregex5.ok @@ -0,0 +1 @@ +regexp 5 diff --git a/test/typedregex6.awk b/test/typedregex6.awk new file mode 100644 index 00000000..c2d04e6c --- /dev/null +++ b/test/typedregex6.awk @@ -0,0 +1,2 @@ +BEGIN { RS = @/./ } +{ printf("<%s> <<%s>>\n", $0, RT) } diff --git a/test/typedregex6.in b/test/typedregex6.in new file mode 100644 index 00000000..7aff6580 --- /dev/null +++ b/test/typedregex6.in @@ -0,0 +1 @@ +ab.c diff --git a/test/typedregex6.ok b/test/typedregex6.ok new file mode 100644 index 00000000..39550e8f --- /dev/null +++ b/test/typedregex6.ok @@ -0,0 +1,6 @@ +<> <<a>> +<> <<b>> +<> <<.>> +<> <<c>> +<> << +>> |