awk/testdir/t.do
Arnold D. Robbins d6c466c367 Extract testdir.
2019-06-23 03:13:57 -06:00

15 lines
168 B
Plaintext

NF > 0 {
t = $0
gsub(/[ \t]+/, "", t)
n = split($0, y)
if (n > 0) {
i = 1
s = ""
do {
s = s $i
} while (i++ < NF)
}
if (s != t)
print "bad at", NR
}