xref: /netbsd-src/external/historical/nawk/dist/testdir/t.delete0 (revision 4d342c046e3288fb5a1edcd33cfec48c41c80664)
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