: ${C?}

case $# in
	1) prog=Sqpe;;
	2) prog=$2;;
	*) echo "Usage: $0 testname [program]"; exit 1;;
esac

echo "Running thorough test $1.test on $prog ..."
$C/$prog <<!
cat("Hit <ctl-D> to start\n");scan(file="/dev/tty")
options(check=T,warn=1,compact=0)
do.test <- function(file)
{
	E <- parse(file = file, n = -1)
	for(I in seq(along = E)) {
		val <- eval(E[[I]])
		if(mode(val)!="logical" ||
		  length(val)!=1 ||
		  is.na(val) ||
		  !val) {
			print(E[[I]])
			print(val)
		}
	}
	invisible(NULL)
}
do.test("$1.test")
!
