xref: /freebsd/contrib/one-true-awk/testdir/t.delete2 (revision a03411e84728e9b267056fd31c7d1d9d1dc1b01e)
1NR < 50 { n = split($0, x)
2  for (i = 1; i <= n; i++)
3  for (j = 1; j <= n; j++)
4	y[i,j] = n * i + j
5  for (i = 1; i <= n; i++)
6	delete y[i,i]
7  k = 0
8  for (i in y)
9	k++
10  if (k != int(n^2-n))
11	printf "delete2 miscount %d vs %d at %d\n", k, n^2-n, NR
12}
13