%1
dirlist = {"geom2d","io","polygons2d","shape2d"};
dirname = fileparts (canonicalize_file_name (mfilename ("fullpath")));

if (! exist (fullfile (dirname, "inst"), "dir"))
  for ii=1:length (dirlist)
      ## Run this if the package is installed
      rmpath ( [ dirname filesep dirlist{ii}])
  end
else
  warning("geometry:Devel","Removing path for testing.");
  for ii=1:length(dirlist)
    rmpath ([ dirname "/inst/" dirlist{ii}])
  endfor
endif

clear dirlist dirname
