#!/bin/rc -e fn check{	if(! cmp $1 $2){		>[2=1] echo fail: $1 $2		>[2=1] diff -u $1 $2		exit mismatch	}	status=()} fn checkpatch{	rm -f $1.out	../../$O.patch $*(2-) $1.patch	check $1.out $1.expected} fn checkrej {	rm -f $1.rout	checkpatch $1 -r $1.rout	check $1.rout $1.rexpected} checkpatch basiccheckpatch headercheckpatch createcheckrej rej seq 12 > delete.out../../$O.patch delete.patchtest ! -f delete.out rm -f multifile^(1 2)^.out multifile^(1 2)^.in.tmpcp multifile1.in multifile1.in.tmpcp multifile2.in multifile2.in.tmpchmod 640 multifile1.in.tmpchmod 400 multifile2.in.tmp../../$O.patch multifile.patchcheck multifile1.out multifile1.expectedcheck multifile2.out multifile2.expected if(! ~ `{walk -ex multifile1.out} --rw-r-----)	exit misperm1if(! ~ `{walk -ex multifile2.out} --rw-------)	exit misperm2status=()