| echo T.latin1: tests of 8-bit input |
| |
| awk=${awk-../a.out} |
| |
| $awk ' |
| { print $0 } |
| ' latin1 >foo1 |
| |
| diff latin1 foo1 || echo 'BAD: T.latin1 1' |
| |
| $awk '{ gsub(/\351/, "\370"); print }' latin1 >foo0 |
| $awk '{ gsub(/é/, "ø"); print }' latin1 >foo1 |
| diff foo0 foo1 || echo 'BAD: T.latin1 3' |
| |
| $awk '{ gsub(/[^\300-\370]/, ""); print }' latin1 >foo0 |
| $awk '{ gsub(/[^À-ø]/, ""); print } ' latin1 >foo1 |
| diff foo0 foo1 || echo 'BAD: T.latin1 4' |
| |
| echo '/á/' >foo1 |
| $awk -f foo1 foo1 >foo2 |
| |
| diff foo1 foo2 || echo 'BAD: T.latin1 5' |
| |
| |
| echo /[áé]/ >foo1 |
| $awk -f foo1 foo1 >foo2 |
| diff foo1 foo2 || echo 'BAD: T.latin1 6' |
| |
| |
| echo 'This is a line. |
| Patterns like /[áé]/ do not work yet. Example, run awk /[áé]/ |
| over a file containing just á. |
| This is another line.' >foo0 |
| echo 'Patterns like /[áé]/ do not work yet. Example, run awk /[áé]/ |
| over a file containing just á.' >foo1 |
| $awk '/[áé]/' foo0 >foo2 |
| diff foo1 foo2 || echo 'BAD: T.latin1 7' |