aboutsummaryrefslogtreecommitdiffstats
path: root/test/dfamb1.awk
diff options
context:
space:
mode:
authorArnold D. Robbins <arnold@skeeve.com>2013-06-27 11:54:01 +0300
committerArnold D. Robbins <arnold@skeeve.com>2013-06-27 11:54:01 +0300
commit8e9e1dfbc6c34a6d502d9738b651ae4c70806b1b (patch)
tree5ed23a17305b92af5d2716154437051c779a65a5 /test/dfamb1.awk
parent70a3f6aad2edee778ce8bf1d8de0d19618af46bf (diff)
downloadegawk-8e9e1dfbc6c34a6d502d9738b651ae4c70806b1b.tar.gz
egawk-8e9e1dfbc6c34a6d502d9738b651ae4c70806b1b.tar.bz2
egawk-8e9e1dfbc6c34a6d502d9738b651ae4c70806b1b.zip
New test case for dfa problem fixed earlier.
Diffstat (limited to 'test/dfamb1.awk')
-rw-r--r--test/dfamb1.awk4
1 files changed, 4 insertions, 0 deletions
diff --git a/test/dfamb1.awk b/test/dfamb1.awk
new file mode 100644
index 00000000..7647adf5
--- /dev/null
+++ b/test/dfamb1.awk
@@ -0,0 +1,4 @@
+# The first of these used to core dump gawk. As of 7/2013 it's fixed.
+# This file is to make sure that remains true.
+{match($0, /(([^ \?.]*\?pos=ad |([^ \?.]*\?pos=(jj|va) )地\?pos=dev ){0,2})/ , arr)} { if(arr[0]) print arr[1], arr[4], $6}
+{match($0, /(([^ \?.]*\?pos=ad |([^ \?.]*\?pos=(jj|va) )[地]\?pos=dev ){0,2})/ , arr)} { if(arr[0]) print arr[1], arr[4], $6}