xref: /freebsd/contrib/one-true-awk/testdir/t.delete0 (revision 23f24377b1a9ab6677f00f2302484d6658d94cab)
1*23f24377SWarner LoshNF > 0 {
2*23f24377SWarner Losh  n = split($0, x)
3*23f24377SWarner Losh  if (n != NF)
4*23f24377SWarner Losh	printf("split screwed up %d %d\n", n, NF)
5*23f24377SWarner Losh  delete x[1]
6*23f24377SWarner Losh  k = 0
7*23f24377SWarner Losh  for (i in x)
8*23f24377SWarner Losh	k++
9*23f24377SWarner Losh  if (k != NF-1)
10*23f24377SWarner Losh	printf "delete miscount %d elems should be %d at line %d\n", k, NF-1, NR
11*23f24377SWarner Losh}
12