options(check=T,warn=1,error=dump.frames)
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)
}
tests <- unix("ls *.test")
for(i in tests) {
	cat("------- Test",i,"---------\n")
	do.test(i)
	}
