aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/ChangeLog7
-rw-r--r--test/Makefile.am14
-rw-r--r--test/Makefile.in19
-rw-r--r--test/Maketests5
-rw-r--r--test/dbugeval2.awk4
-rw-r--r--test/dbugeval2.in3
-rw-r--r--test/dbugeval2.ok7
-rw-r--r--test/typedregex3.awk11
-rw-r--r--test/typedregex3.ok4
9 files changed, 70 insertions, 4 deletions
diff --git a/test/ChangeLog b/test/ChangeLog
index f29dea72..8cc7915e 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,10 @@
+2015-06-29 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Makefile.am (dbugeval2, typedregex3): New tests.
+ * dbugeval2.awk, dbugeval2.in, dbugeval2.ok: New files.
+ * typedregex3.awk, typedregex3.ok: New files.
+ Thanks to Hermann Peifer for the reports.
+
2015-06-28 Arnold D. Robbins <arnold@skeeve.com>
* Makefile.am (typedregex2): New test.
diff --git a/test/Makefile.am b/test/Makefile.am
index df1f1e2c..b9e14468 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -177,6 +177,9 @@ EXTRA_DIST = \
datanonl.ok \
dbugeval.in \
dbugeval.ok \
+ dbugeval2.awk \
+ dbugeval2.in \
+ dbugeval2.ok \
dbugtypedre1.awk \
dbugtypedre1.in \
dbugtypedre1.ok \
@@ -991,6 +994,8 @@ EXTRA_DIST = \
typedregex1.ok \
typedregex2.awk \
typedregex2.ok \
+ typedregex3.awk \
+ typedregex3.ok \
typeof1.awk \
typeof1.ok \
typeof2.awk \
@@ -1093,7 +1098,7 @@ UNIX_TESTS = \
GAWK_EXT_TESTS = \
aadelete1 aadelete2 aarray1 aasort aasorti argtest arraysort \
backw badargs beginfile1 beginfile2 binmode1 charasbytes \
- colonwarn clos1way crlf dbugeval dbugtypedre1 dbugtypedre2 delsub \
+ colonwarn clos1way crlf dbugeval dbugeval2 dbugtypedre1 dbugtypedre2 delsub \
devfd devfd1 devfd2 dumpvars errno exit \
fieldwdth fpat1 fpat2 fpat3 fpat4 fpatnull fsfwfs funlen \
functab1 functab2 functab3 fwtest fwtest2 fwtest3 \
@@ -1114,7 +1119,7 @@ GAWK_EXT_TESTS = \
splitarg4 strftime \
strtonum switch2 symtab1 symtab2 symtab3 symtab4 symtab5 symtab6 \
symtab7 symtab8 symtab9 \
- typedregex1 typedregex2 typeof1 typeof2 typeof3 typeof4
+ typedregex1 typedregex2 typedregex3 typeof1 typeof2 typeof3 typeof4
timeout
EXTRA_TESTS = inftest regtest
@@ -2151,6 +2156,11 @@ dbugtypedre2:
@AWKPATH="$(srcdir)" $(AWK) -D -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
@-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
+dbugeval2:
+ @echo $@
+ @AWKPATH="$(srcdir)" $(AWK) -D -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
+ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
+
# Targets generated for other tests:
include Maketests
diff --git a/test/Makefile.in b/test/Makefile.in
index ec270c1b..0ae51917 100644
--- a/test/Makefile.in
+++ b/test/Makefile.in
@@ -434,6 +434,9 @@ EXTRA_DIST = \
datanonl.ok \
dbugeval.in \
dbugeval.ok \
+ dbugeval2.awk \
+ dbugeval2.in \
+ dbugeval2.ok \
dbugtypedre1.awk \
dbugtypedre1.in \
dbugtypedre1.ok \
@@ -1248,6 +1251,8 @@ EXTRA_DIST = \
typedregex1.ok \
typedregex2.awk \
typedregex2.ok \
+ typedregex3.awk \
+ typedregex3.ok \
typeof1.awk \
typeof1.ok \
typeof2.awk \
@@ -1349,7 +1354,7 @@ UNIX_TESTS = \
GAWK_EXT_TESTS = \
aadelete1 aadelete2 aarray1 aasort aasorti argtest arraysort \
backw badargs beginfile1 beginfile2 binmode1 charasbytes \
- colonwarn clos1way crlf dbugeval dbugtypedre1 dbugtypedre2 delsub \
+ colonwarn clos1way crlf dbugeval dbugeval2 dbugtypedre1 dbugtypedre2 delsub \
devfd devfd1 devfd2 dumpvars errno exit \
fieldwdth fpat1 fpat2 fpat3 fpat4 fpatnull fsfwfs funlen \
functab1 functab2 functab3 fwtest fwtest2 fwtest3 \
@@ -1370,7 +1375,7 @@ GAWK_EXT_TESTS = \
splitarg4 strftime \
strtonum switch2 symtab1 symtab2 symtab3 symtab4 symtab5 symtab6 \
symtab7 symtab8 symtab9 \
- typedregex1 typedregex2 typeof1 typeof2 typeof3 typeof4
+ typedregex1 typedregex2 typedregex3 typeof1 typeof2 typeof3 typeof4
EXTRA_TESTS = inftest regtest
INET_TESTS = inetdayu inetdayt inetechu inetecht
@@ -2586,6 +2591,11 @@ dbugtypedre2:
@echo $@
@AWKPATH="$(srcdir)" $(AWK) -D -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
@-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
+
+dbugeval2:
+ @echo $@
+ @AWKPATH="$(srcdir)" $(AWK) -D -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
+ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
Gt-dummy:
# file Maketests, generated from Makefile.am by the Gentests program
addcomma:
@@ -3930,6 +3940,11 @@ typedregex2:
@AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
@-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
+typedregex3:
+ @echo $@
+ @AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 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 462128ea..f9dee6d8 100644
--- a/test/Maketests
+++ b/test/Maketests
@@ -1342,6 +1342,11 @@ typedregex2:
@AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
@-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
+typedregex3:
+ @echo $@
+ @AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 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/dbugeval2.awk b/test/dbugeval2.awk
new file mode 100644
index 00000000..4997d1b4
--- /dev/null
+++ b/test/dbugeval2.awk
@@ -0,0 +1,4 @@
+BEGIN {
+ a = 2
+ b = 3
+}
diff --git a/test/dbugeval2.in b/test/dbugeval2.in
new file mode 100644
index 00000000..165f7147
--- /dev/null
+++ b/test/dbugeval2.in
@@ -0,0 +1,3 @@
+b 3
+r
+eval "print and(a, 3)"
diff --git a/test/dbugeval2.ok b/test/dbugeval2.ok
new file mode 100644
index 00000000..4d645269
--- /dev/null
+++ b/test/dbugeval2.ok
@@ -0,0 +1,7 @@
+Breakpoint 1 set at file `dbugeval2.awk', line 3
+Starting program:
+Stopping in BEGIN ...
+Breakpoint 1, main() at `dbugeval2.awk':3
+3 b = 3
+2
+EXIT CODE: 2
diff --git a/test/typedregex3.awk b/test/typedregex3.awk
new file mode 100644
index 00000000..ee6bcb69
--- /dev/null
+++ b/test/typedregex3.awk
@@ -0,0 +1,11 @@
+BEGIN {
+ a[1] = @/abc/
+ b[1][2][3] = @/xyz/
+ print typeof(a[1]), typeof(b[1][2][3])
+ print a[1], b[1][2][3]
+
+ a[1]++
+ b[1][2][3] ""
+ print typeof(a[1]), typeof(b[1][2][3])
+ print a[1], b[1][2][3]
+}
diff --git a/test/typedregex3.ok b/test/typedregex3.ok
new file mode 100644
index 00000000..9f8b881a
--- /dev/null
+++ b/test/typedregex3.ok
@@ -0,0 +1,4 @@
+regexp regexp
+abc xyz
+number regexp
+1 xyz