diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2012-11-25 21:54:48 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2012-11-25 21:54:48 +0200 |
| commit | 9a9ff61bbd952c1263b55f82a269da5b09289a6b (patch) | |
| tree | 4bc31b31d0bec6d27f77e55f1a88f50534fa6ed4 /test/regexprange.awk | |
| parent | dbabe5a569ad82a9faeb2f121e387ec6399f9dcb (diff) | |
| parent | 7af1da783175273a26609911c3a95975ed0f5c13 (diff) | |
| download | egawk-9a9ff61bbd952c1263b55f82a269da5b09289a6b.tar.gz egawk-9a9ff61bbd952c1263b55f82a269da5b09289a6b.tar.bz2 egawk-9a9ff61bbd952c1263b55f82a269da5b09289a6b.zip | |
Merge branch 'master' into array-iface
Diffstat (limited to 'test/regexprange.awk')
| -rw-r--r-- | test/regexprange.awk | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/regexprange.awk b/test/regexprange.awk new file mode 100644 index 00000000..861e5ee5 --- /dev/null +++ b/test/regexprange.awk @@ -0,0 +1,14 @@ +BEGIN { + range = "[a-dx-z]" + + split("ABCDEFGHIJKLMNOPQRSTUVWXYZ", upper, "") + split("abcdefghijklmnopqrstuvwxyz", lower, "") + + for (i = 1; i in upper; i++) + printf("%s ~ %s ---> %s\n", + upper[i], range, (upper[i] ~ range) ? "true" : "false") + + for (i = 1; i in lower; i++) + printf("%s ~ %s ---> %s\n", + lower[i], range, (lower[i] ~ range) ? "true" : "false") +} |