diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 10 | ||||
| -rw-r--r-- | test/rwarray.awk | 8 |
2 files changed, 17 insertions, 1 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 40988c56..a2dbdc5a 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,13 @@ +2016-11-30 Arnold D. Robbins <arnold@skeeve.com> + + * rwarray.awk: Use typeof() to verify that typed regex is + created correctly upon reading. + +2016-11-29 Arnold D. Robbins <arnold@skeeve.com> + + * rwarray.awk: Add a typed regex into the array before + writing it out and reading it back. + 2016-11-21 Arnold D. Robbins <arnold@skeeve.com> * Makefile.am (EXTRA_DIST): Add valgrind.awk to the list. diff --git a/test/rwarray.awk b/test/rwarray.awk index 0cb214ee..70809b64 100644 --- a/test/rwarray.awk +++ b/test/rwarray.awk @@ -4,6 +4,9 @@ BEGIN { while ((getline word) > 0) dict[word] = word word + re_sub = "/typed-regex/" + dict[re_sub] = @/search me/ + n = asorti(dict, dictindices) for (i = 1; i <= n; i++) printf("dict[%s] = %s\n", dictindices[i], dict[dictindices[i]]) > "orig.out" @@ -12,7 +15,6 @@ BEGIN { ret = writea("orig.bin", dict) printf "writea() returned %d, expecting 1\n", ret - ret = reada("orig.bin", dict) printf "reada() returned %d, expecting 1\n", ret @@ -37,4 +39,8 @@ BEGIN { if (ret == 0 && !("KEEPIT" in ENVIRON)) system("rm -f orig.bin orig.out new.out") } + + if (typeof(dict[re_sub]) != "regexp") + printf("dict[\"%s\"] should be regexp, is %s\n", + re_sub, typeof(dict[re_sub])); } |