(* test package for installation testing *)
(* Version 1.0; $Id: Test.m,v 1.1 1999/03/14 16:38:34 maeder Exp $ *)

Global`Private`package = "CSM"

BeginPackage[Global`Private`package<>"`Test`"]

names = FileNames[Global`Private`package,$Path];

Which[
  Length[names]==1, Print["The CSM packages are correctly installed in ", names[[1]]],
  Length[names]>1, Print["The CSM packages are correctly installed in ", names[[1]]];
  Print["However, there are additional directories containing packages with the same name:"];Print[Rest[names]],
  Length[names]==0, Print["The Test file was found, but the application directory was not found."];
  Print["Did you evaluate <<"<>Global`Private`package<>"`Test` ?"]
]

EndPackage[]
