echo T.delete: misc tests of array deletion

awk=${awk-../a.out}

echo '1 2 3 4
1 2 3
1
' >foo0
echo '4 3 0
3 2 0
1 0 0
0 0 0' >foo2
$awk '
{	n = split($0, x)
	delete x[1]
	n1 = 0;	for (i in x) n1++
	delete x; 
	n2 = 0; for (i in x) n2++
	print n, n1, n2
}' foo0 >foo1
diff foo1 foo2 || echo 'BAD: T.delete (1)'