Files
rk35xx-android14/external/one-true-awk/testdir/T.delete
T
hmz007 36ed224bac Rockchip Anroid14_SDK 20240628-rkr5 (2556df1a)
Signed-off-by: hmz007 <hmz007@gmail.com>
Change-Id: Ib87fdbe7a0be7dc961af3500fe9ea4589a127f9f
2024-10-29 18:12:02 +08:00

22 lines
312 B
Plaintext
Executable File

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