{
	if (platform() == "DOS386") {
		cat("You can ignore this file for DOS.\n")
		end.do.test()
	}
	T
}
{
	# check that bill's page() is installed [the one that can do files as
	# well].
	# sbug 1/28/91 bill

	# make page() think this is interactive, otherwise test fails:
	interactive <<- function() T

	temp1 <- tempfile()
	write(letters, file=temp1)
	temp2 <- tempfile()
	page(file=temp1, pager=paste("cat >", temp2))
	answer <- files.same(temp1, temp2)
	unlink(c(temp1, temp2))
	# cat("May get warning 'interactive not found'. vvv\n")
	remove("interactive", where=1)
	answer
}
{
	# check 3.1 extensions: windows, remove.file, etc.

	all(match(c("window", "remove.file"), names(page), nomatch=0))
}
{
	# check that new default (3.1) for arg 'pager' is options()$pager.
	# Difficult to test by running it, since page() doesn't use it
	# if ! interative(), which is true in loop tests.

	deparse(page$pager) == "options()$pager"
}