xref: /netbsd-src/external/historical/nawk/dist/testdir/t.delete0 (revision 355482d41fd8ca96252d7ba0160296c8d2d6dc14)
1NF > 0 {
2  n = split($0, x)
3  if (n != NF)
4	printf("split screwed up %d %d\n", n, NF)
5  delete x[1]
6  k = 0
7  for (i in x)
8	k++
9  if (k != NF-1)
10	printf "delete miscount %d elems should be %d at line %d\n", k, NF-1, NR
11}
12