dirlist = {"utl", "asm", "tst", "nls", "prs", "sbn"};
dirname = fileparts (canonicalize_file_name (mfilename ("fullpath")));
dirname = sprintf ("%s%s",
                   dirname (1 : strfind (dirname, "usr/lib/") - 1),
                   "usr/share/octave/packages/ocs-0.1.3/");   

for ii=1:length (dirlist)
  if (! exist (fullfile (dirname, "inst"), "dir"))
    ## Run this if the package is installed
    rmpath ( [ dirname dirlist{ii}])
  else
    ## Run this if we are testing the package without installation
    rmpath ([ dirname "/inst/" dirlist{ii}])
    rmpath ([ dirname "/src/"])
  end
end

clear dirlist dirname
