1echo T.latin1: tests of 8-bit input
2
3awk=${awk-../a.out}
4
5$awk '
6{ print $0 }
7' latin1 >foo1
8
9diff latin1 foo1 || echo 'BAD: T.latin1 1'
10
11$awk '{ gsub(/\351/, "\370"); print }' latin1 >foo0
12$awk '{ gsub(/�/, "�"); print }' latin1 >foo1
13diff foo0 foo1 || echo 'BAD: T.latin1 3'
14
15$awk '{ gsub(/[^\300-\370]/, ""); print }' latin1 >foo0
16$awk '{ gsub(/[^�-�]/, ""); print } ' latin1 >foo1
17diff foo0 foo1 || echo 'BAD: T.latin1 4'
18
19echo  '/�/' >foo1
20$awk -f foo1 foo1 >foo2
21
22diff foo1 foo2 || echo 'BAD: T.latin1 5'
23
24
25echo /[��]/ >foo1
26$awk -f foo1 foo1 >foo2
27diff foo1 foo2 || echo 'BAD: T.latin1 6'
28
29
30echo 'This is a line.
31Patterns like /[��]/ do not work yet. Example, run awk /[��]/
32over a file containing just �.
33This is another line.' >foo0
34echo 'Patterns like /[��]/ do not work yet. Example, run awk /[��]/
35over a file containing just �.' >foo1
36$awk '/[��]/' foo0 >foo2
37diff foo1 foo2 || echo 'BAD: T.latin1 7'
38