jehanne/qa/check

39 lines
681 B
Plaintext
Raw Normal View History

#!/cmd/rc
rfork
if( ! test -d /dev/posix ){
sys/posixly -d /tmp/qa-posixly.log -p $PID &
# sys/ctrace -o /tmp/posixly.trace $APID &
}
dir=$1
if(~ $dir '') dir=/qa
l = `{du -a /arch/$OBJTYPE/$dir|awk '{print $2}'|sort}
failed = ()
runner=.runner
for(t in $l){
if(test -x $t) {
if( test -x $t$runner ) { }
if not {
echo -n $t:
$t > /tmp/qa.log >[2=1]
st = $STATUS
switch( `{echo $st|field 3} ){
case PASS
rm /tmp/qa.log && echo PASS
case SKIP
echo -n ' SKIP: ' && cat /tmp/qa.log && rm /tmp/qa.log
case FAIL
echo $st && cat /tmp/qa.log; exit $st
case *
echo Unexpected test result: $st && cat /tmp/qa.log; exit $st
}
}
}
}