diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2012-08-12 21:02:48 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2012-08-12 21:02:48 +0300 |
| commit | 4f196c2431034aa4865fcd4e3bcc45a6e764266f (patch) | |
| tree | 454540708626c22efebf92cb5280ed0c3bd508a7 /test/regexprange.awk | |
| parent | 84d6acb5c16aa9aed908fde7cb0bc53c2ecbeede (diff) | |
| download | egawk-4f196c2431034aa4865fcd4e3bcc45a6e764266f.tar.gz egawk-4f196c2431034aa4865fcd4e3bcc45a6e764266f.tar.bz2 egawk-4f196c2431034aa4865fcd4e3bcc45a6e764266f.zip | |
Fix doc on ranges and locales again. Add test.
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") +} |