New test for debugger and typed regexps.

6 files changed, 45 insertions, 2 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index 8d74c4ef..08661b3a 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -3,6 +3,11 @@
 	* Makefile.am (typeof3, typeof4): New tests.
 	* typeof2.awk, typeof2.ok, typeof3.awk, typeof3.ok: New files.
 
+	Unrelated:
+
+	* Makefile.am (dbugtypedre): New tests.
+	* dbugtypedre.awk, dbugtypedre.in, dbugtypedre.ok: New files.
+
 2015-06-21         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* Makefile.am (typeof2): New test.
diff --git a/test/Makefile.am b/test/Makefile.am
index 842f9bdb..cbec8a98 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -177,6 +177,9 @@ EXTRA_DIST = \
 	datanonl.ok \
 	dbugeval.in \
 	dbugeval.ok \
+	dbugtypedre.awk \
+	dbugtypedre.in \
+	dbugtypedre.ok \
 	defref.awk \
 	defref.ok \
 	delargv.awk \
@@ -1085,7 +1088,7 @@ UNIX_TESTS = \
 GAWK_EXT_TESTS = \
 	aadelete1 aadelete2 aarray1 aasort aasorti argtest arraysort \
 	backw badargs beginfile1 beginfile2 binmode1 charasbytes \
-	colonwarn clos1way crlf dbugeval delsub devfd devfd1 devfd2 dumpvars errno exit \
+	colonwarn clos1way crlf dbugeval dbugtypedre delsub devfd devfd1 devfd2 dumpvars errno exit \
 	fieldwdth fpat1 fpat2 fpat3 fpat4 fpatnull fsfwfs funlen \
 	functab1 functab2 functab3 fwtest fwtest2 fwtest3 \
 	genpot gensub gensub2 getlndir gnuops2 gnuops3 gnureops gsubind \
@@ -2132,6 +2135,11 @@ negtime::
 	@TZ=GMT AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
 	@AWKPATH="$(srcdir)" $(AWK) -f checknegtime.awk $@.ok _$@ && rm -f _$@
 
+dbugtypedre:
+	@echo $@
+	@AWKPATH="$(srcdir)" $(AWK) -D -f $@.awk < $@.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 efb0badc..196590d6 100644
--- a/test/Makefile.in
+++ b/test/Makefile.in
@@ -434,6 +434,9 @@ EXTRA_DIST = \
 	datanonl.ok \
 	dbugeval.in \
 	dbugeval.ok \
+	dbugtypedre.awk \
+	dbugtypedre.in \
+	dbugtypedre.ok \
 	defref.awk \
 	defref.ok \
 	delargv.awk \
@@ -1341,7 +1344,7 @@ UNIX_TESTS = \
 GAWK_EXT_TESTS = \
 	aadelete1 aadelete2 aarray1 aasort aasorti argtest arraysort \
 	backw badargs beginfile1 beginfile2 binmode1 charasbytes \
-	colonwarn clos1way crlf dbugeval delsub devfd devfd1 devfd2 dumpvars errno exit \
+	colonwarn clos1way crlf dbugeval dbugtypedre delsub devfd devfd1 devfd2 dumpvars errno exit \
 	fieldwdth fpat1 fpat2 fpat3 fpat4 fpatnull fsfwfs funlen \
 	functab1 functab2 functab3 fwtest fwtest2 fwtest3 \
 	genpot gensub gensub2 getlndir gnuops2 gnuops3 gnureops gsubind \
@@ -2567,6 +2570,11 @@ negtime::
 	@echo $@
 	@TZ=GMT AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
 	@AWKPATH="$(srcdir)" $(AWK) -f checknegtime.awk $@.ok _$@ && rm -f _$@
+
+dbugtypedre:
+	@echo $@
+	@AWKPATH="$(srcdir)" $(AWK) -D -f $@.awk < $@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
+	@-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
 Gt-dummy:
 # file Maketests, generated from Makefile.am by the Gentests program
 addcomma:
diff --git a/test/dbugtypedre.awk b/test/dbugtypedre.awk
new file mode 100644
index 00000000..b8c0b6d7
--- /dev/null
+++ b/test/dbugtypedre.awk
@@ -0,0 +1 @@
+@include "typeof1.awk"
diff --git a/test/dbugtypedre.in b/test/dbugtypedre.in
new file mode 100644
index 00000000..00158c65
--- /dev/null
+++ b/test/dbugtypedre.in
@@ -0,0 +1,4 @@
+watch e
+run
+next
+p e
diff --git a/test/dbugtypedre.ok b/test/dbugtypedre.ok
new file mode 100644
index 00000000..de3c8bcd
--- /dev/null
+++ b/test/dbugtypedre.ok
@@ -0,0 +1,17 @@
+Watchpoint 1: e
+Starting program: 
+scalar_n
+untyped
+regexp
+scalar_s
+array scalar_n
+Stopping in BEGIN ...
+Watchpoint 1: e
+  Old value: untyped variable
+  New value: @/foo/
+main() at `typeof1.awk':7
+7       	e = @/foo/ ; print typeof(e)
+regexp
+8       	print typeof(@/bar/)
+e = @/foo/
+EXIT CODE: 2