#!/bin/rcrfork eif(~ $#awk 0) awk=awk fn check{ if(! cmp -s $1 $2){ echo BAD: $3 >[2=1] diff -b $1 $2 | sed 's/^/ /;10q' } if not rm $2 status=()} echo 'p.*: book tests' >[1=2]for(i in p.*){ $awk -f $i test.countries test.countries >foo.$i >[2=1] check expected.$i foo.$i $i if(~ $i p.47){ check expected.$i.tempsmall foo.tempsmall $i check expected.$i.tempbig foo.tempbig $i }} echo 't.*: general-purpose tests' >[1=2]for(i in t.*){ if(! ~ $i *.broken){ $awk -f $i test.data >foo.$i >[2=1] check expected.$i foo.$i $i } if not status=()} for(i in T.*){ if(! ~ $i *.broken) ./$i if not status=()}
#!/bin/rc
rfork e
if(~ $#awk 0)
awk=awk
fn check{
if(! cmp -s $1 $2){
echo BAD: $3 >[2=1]
diff -b $1 $2 | sed 's/^/ /;10q'
}
if not
rm $2
status=()
}
echo 'p.*: book tests' >[1=2]
for(i in p.*){
$awk -f $i test.countries test.countries >foo.$i >[2=1]
check expected.$i foo.$i $i
if(~ $i p.47){
check expected.$i.tempsmall foo.tempsmall $i
check expected.$i.tempbig foo.tempbig $i
}
}
echo 't.*: general-purpose tests' >[1=2]
for(i in t.*){
if(! ~ $i *.broken){
$awk -f $i test.data >foo.$i >[2=1]
check expected.$i foo.$i $i
}
if not
status=()
}
for(i in T.*){
if(! ~ $i *.broken)
./$i
if not
status=()
}