shithub: kwa

ref: 3cd994e757586d7a6f54c2e6987065a958bf455e
dir: /test/Compare.p/

View raw version 
#!/bin/rc
rfork e
if(~ $#oldawk 0)
	oldawk=trueawk
if(~ $#awk 0)
	awk=kwa

for(i in p.*){
	echo -n $i:
	$oldawk -f $i test.countries test.countries >foo1.$i
	$awk -f $i test.countries test.countries >foo2.$i
	if(cmp -s foo1.$i foo2.$i)
		echo
	if not
		echo BAD
	diff -b foo1.$i foo2.$i | sed 's/^/	/;10q'
}