xref: /freebsd/contrib/one-true-awk/testdir/t.delete0 (revision 18054d0220cfc8df9c9568c437bd6fbb59d53c3c)
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