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