{
	# Check archives for code from $SHOME/library/*. Check the
	# dyn.loadable files for libraries whose code isn't statically
	# loaded into Sqpe. Check that maps and mathematica code
	# is in Sqpe.  -peter
	T
}
{
	if (platform() == "DOS386") {
		cat("You can skip this file for DOS.\n")
		end.do.test()
	}
	T
}
is.readable("$SHOME/library/examples/examples.a")
is.readable("$SHOME/newfun/lib/examples.a")

is.readable("$SHOME/library/external/external.a")
is.readable("$SHOME/newfun/lib/external.a")

is.readable("$SHOME/library/image/image.a")
is.readable("$SHOME/newfun/lib/image.a")

is.readable("$SHOME/library/maps/maps.a")
is.readable("$SHOME/newfun/lib/maps.a")

is.readable("$SHOME/library/mathematic/mathematic.a")
is.readable("$SHOME/newfun/lib/mathematic.a")

is.readable("$SHOME/library/mathematica/mathematica.a")
is.readable("$SHOME/newfun/lib/mathematica.a")

{
   # now check the dyn.loadable files

   "check.lfile"<-
   function(lib, symbol, lang = "C")
   {
      # test whether the <lib>_l.o dyn.loadable files are ok.
      # For 3.1 beta 1, they contained only the symbol array <lib>_init
      # and no code.
      # THIS TEST WILL WORK ONLY IF THE l-file HAS NOT BEEN LOADED ALREADY.
      # A CALL TO THIS FUNCTION LOADS IT.
      symbol.LANG <- if(lang == "C") symbol.C else symbol.For
      before <- !is.loaded(symbol.LANG(symbol))
      invisible(dyn.load.lib(paste(getenv("SHOME"), "library", sep = "/"),lib))
      after <- is.loaded(symbol.LANG(symbol))
      before && after
   }
   T
}
check.lfile("examples", "randu")
check.lfile("external", "set_external_frame")
check.lfile("image", "bytes2PS_raw")
{ "maps and mathematic: no lfile, since in Sqpe always; semantics: no code";T}
is.loaded(symbol.C("mapgetg"))	# maps library
is.loaded(symbol.C("Math_names"))	# mathematic[a] library
{ "see ./libs2 for more tests.";T}