38 lines
914 B
Plaintext
38 lines
914 B
Plaintext
|
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(/<2F>/, "<22>"); print }' latin1 >foo1
|
|||
|
|
diff foo0 foo1 || echo 'BAD: T.latin1 3'
|
|||
|
|
|
|||
|
|
$awk '{ gsub(/[^\300-\370]/, ""); print }' latin1 >foo0
|
|||
|
|
$awk '{ gsub(/[^<5E>-<2D>]/, ""); print } ' latin1 >foo1
|
|||
|
|
diff foo0 foo1 || echo 'BAD: T.latin1 4'
|
|||
|
|
|
|||
|
|
echo '/<2F>/' >foo1
|
|||
|
|
$awk -f foo1 foo1 >foo2
|
|||
|
|
|
|||
|
|
diff foo1 foo2 || echo 'BAD: T.latin1 5'
|
|||
|
|
|
|||
|
|
|
|||
|
|
echo /[<5B><>]/ >foo1
|
|||
|
|
$awk -f foo1 foo1 >foo2
|
|||
|
|
diff foo1 foo2 || echo 'BAD: T.latin1 6'
|
|||
|
|
|
|||
|
|
|
|||
|
|
echo 'This is a line.
|
|||
|
|
Patterns like /[<5B><>]/ do not work yet. Example, run awk /[<5B><>]/
|
|||
|
|
over a file containing just <20>.
|
|||
|
|
This is another line.' >foo0
|
|||
|
|
echo 'Patterns like /[<5B><>]/ do not work yet. Example, run awk /[<5B><>]/
|
|||
|
|
over a file containing just <20>.' >foo1
|
|||
|
|
$awk '/[<5B><>]/' foo0 >foo2
|
|||
|
|
diff foo1 foo2 || echo 'BAD: T.latin1 7'
|