xref: /freebsd/contrib/one-true-awk/testdir/t.split8 (revision 23f24377b1a9ab6677f00f2302484d6658d94cab)
1*23f24377SWarner Losh{
2*23f24377SWarner Losh	n = split ($0, x, /[ 	]+/)
3*23f24377SWarner Losh	print n
4*23f24377SWarner Losh	if (n != NF)
5*23f24377SWarner Losh		print "split botch at ", NR, n, NF
6*23f24377SWarner Losh	for (i=1; i<=n; i++)
7*23f24377SWarner Losh		if ($i != x[i])
8*23f24377SWarner Losh			print "different element at ", i, x[i], $i
9*23f24377SWarner Losh}
10