{
	if (platform() == "DOS386") {
		cat("You can skip this file for DOS.\n")
		end.do.test()
	}
	T
}
{
	# This test suite checks various things in the Splus shell script.
	# But here under stest we're running a static, SCCS'd Splus
	# script ~stest/bin/Splus. We want to check the one that would get
	# made by the customer, for the distribution we're testing here. So
	# go and get Splus.pre and use that. [It has precursor strings in it, 
	# like SHOME=${SHOME-ShOmE}. Tests in here should not rely on these 
	# strings.]
	
	make.splus <- tempfile()
	write(file=make.splus, '

		mkdir $1
		cd $1
		cp $SHOME/splus/lib/install/Splus.pre .
		chmod +x Splus.pre
	')
	workdir <- tempfile()
	splus.pre.made <- unix(paste("sh", make.splus, workdir, 
		"1>/dev/null 2>&1"), output=F)
	Splus.pre <- paste(workdir, "Splus.pre", sep="/")
	splus.pre.made == 0
}
{
	# check that XAPPLRESDIR is in the Splus script.
	# sbug 6/28/91 (twice) bill.

	#No more.  Now, we check for XFILESEARCHPATH -silvia

	# use 'env', not everyone has 'printenv':
	T
}

{
        # DECSTATION sh has no unset so use sh5 there
        if (platform()=="DECSTATION") sh <- 'sh5'
        else sh <- 'sh'

        # Don't use 'env' because it sometimes complains about "too many
        # values in environment". 

        (unix("echo XFILESEARCHPATH=$SHOME/splus/lib/X11/app-defaults/") == 
	 unix(paste(sh, " -c 'unset XFILESEARCHPATH ;", Splus.pre, 
	            "EXEC", sh, "-c set | grep XFILESEARCHPATH' | sed 's/%.*$//'")))
}

{
	# add other tests here.
	T
}

{
	# cleanup:
	unix(paste("rm -rf", workdir, make.splus))
	T
}