freebsd-src/testdir/t.delete2
Warner Losh f9002b8561 awk: bring in vendor branch from upstream 20210727
Changes since the last import:

July 27, 2021:
	As per IEEE Std 1003.1-2008, -F "str" is now consistent with
	-v FS="str" when str is null. Thanks to Warner Losh.

July 24, 2021:
	Fix readrec's definition of a record. This fixes an issue
	with NetBSD's RS regular expression support that can cause
	an infinite read loop. Thanks to Miguel Pineiro Jr.

	Fix regular expression RS ^-anchoring. RS ^-anchoring needs to
	know if it is reading the first record of a file. This change
	restores a missing line that was overlooked when porting NetBSD's
	RS regex functionality. Thanks to Miguel Pineiro Jr.

	Fix size computation in replace_repeat() for special case
	REPEAT_WITH_Q. Thanks to Todd C. Miller.

Also, for the first time, import all the tests.

Sponsored by:		Netflix
2021-08-01 10:04:30 -06:00

13 lines
254 B
Plaintext

NR < 50 { n = split($0, x)
for (i = 1; i <= n; i++)
for (j = 1; j <= n; j++)
y[i,j] = n * i + j
for (i = 1; i <= n; i++)
delete y[i,i]
k = 0
for (i in y)
k++
if (k != int(n^2-n))
printf "delete2 miscount %d vs %d at %d\n", k, n^2-n, NR
}