diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 5 | ||||
| -rw-r--r-- | test/Makefile.am | 4 | ||||
| -rw-r--r-- | test/delsub.awk | 2 | ||||
| -rw-r--r-- | test/delsub.ok | 1 |
4 files changed, 11 insertions, 1 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 3754c554..ffaf4629 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +Wed May 4 23:03:06 2011 Arnold D. Robbins <arnold@skeeve.com> + + * delsub.awk, delsub.ok: New files. + * Makefile.am (delsub): New test. + Fri Apr 22 16:07:01 2011 John Haque <j.eh@mchsi.com> * sortu.awk, sortu.ok: New files. diff --git a/test/Makefile.am b/test/Makefile.am index 8eeb80da..c4cfcebc 100644 --- a/test/Makefile.am +++ b/test/Makefile.am @@ -155,6 +155,8 @@ EXTRA_DIST = \ delarpm2.ok \ delfunc.awk \ delfunc.ok \ + delsub.awk \ + delsub.ok \ devfd.in1 \ devfd.in2 \ devfd.in4 \ @@ -775,7 +777,7 @@ GAWK_EXT_TESTS = \ aadelete1 aadelete2 aarray1 aasort aasorti \ arraysort \ argtest backw badargs beginfile1 binmode1 clos1way \ - devfd devfd1 devfd2 dumpvars \ + delsub devfd devfd1 devfd2 dumpvars \ fieldwdth fpat1 funlen fsfwfs fwtest fwtest2 gensub gensub2 getlndir \ gnuops2 gnuops3 gnureops \ icasefs icasers igncdym igncfs ignrcas2 ignrcase indirectcall lint \ diff --git a/test/delsub.awk b/test/delsub.awk new file mode 100644 index 00000000..0c3ffb0e --- /dev/null +++ b/test/delsub.awk @@ -0,0 +1,2 @@ +function f(c, d, x) { delete c; x = d[0] } +BEGIN { a[0][0] = 1; f(a, a[0]); print "still here" } diff --git a/test/delsub.ok b/test/delsub.ok new file mode 100644 index 00000000..ae3eb5bb --- /dev/null +++ b/test/delsub.ok @@ -0,0 +1 @@ +still here |