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'