jehanne/qa/check

22 lines
327 B
Bash
Executable File

#!/cmd/rc
rfork
dir=$1
if(~ $dir '') dir=/qa
l = `{du -a /arch/$objtype/$dir|awk '{print $2}'|sort}
failed = ()
for(t in $l){
if(test -x $t) {
echo -n $t:
$t > /tmp/qa.log >[2=1]
st = $status
if(~ `{echo $st|field 3} PASS) { rm /tmp/qa.log && echo PASS }
if not { echo $st && cat /tmp/qa.log; exit $st}
}
}