blob: bc5315f3b472f47e20903895f0674806d5b861b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
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'
|
