xref: /aosp_15_r20/external/one-true-awk/testdir/t.split9 (revision 9a7741de182b2776d7b30d6355f2585c0780a51b)
1*9a7741deSElliott Hughes{
2*9a7741deSElliott Hughes	n = split ($0, x, FS)
3*9a7741deSElliott Hughes	if (n != NF)
4*9a7741deSElliott Hughes		print "botch at ", NR, n, NF
5*9a7741deSElliott Hughes	for (i=1; i<=n; i++)
6*9a7741deSElliott Hughes		if ($i != x[i])
7*9a7741deSElliott Hughes			print "diff at ", i, x[i], $i
8*9a7741deSElliott Hughes}
9