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)' |