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