22 lines
327 B
Plaintext
22 lines
327 B
Plaintext
|
#!/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}
|
||
|
|
}
|
||
|
|
}
|