xref: /freebsd/contrib/one-true-awk/testdir/t.do (revision 23f24377b1a9ab6677f00f2302484d6658d94cab)
1*23f24377SWarner LoshNF > 0 {
2*23f24377SWarner Losh	t = $0
3*23f24377SWarner Losh	gsub(/[ \t]+/, "", t)
4*23f24377SWarner Losh	n = split($0, y)
5*23f24377SWarner Losh	if (n > 0) {
6*23f24377SWarner Losh		i = 1
7*23f24377SWarner Losh		s = ""
8*23f24377SWarner Losh		do {
9*23f24377SWarner Losh			s = s $i
10*23f24377SWarner Losh		} while (i++ < NF)
11*23f24377SWarner Losh	}
12*23f24377SWarner Losh	if (s != t)
13*23f24377SWarner Losh		print "bad at", NR
14*23f24377SWarner Losh}
15