dirlist = {"norms", "mat-eqn-solvers", "shifts", "mor", "logger", "logger/resources", "DEMOS", "DEMOS/LTV", "DEMOS/DAE1", "DEMOS/DAE3_SO", "DEMOS/models", "DEMOS/models/BIPS", "DEMOS/models/TripleChain", "DEMOS/models/SingleChainMSD", "DEMOS/models/FDM_2D", "DEMOS/models/NSE", "DEMOS/models/Data_Rail", "DEMOS/models/stokes", "DEMOS/models/ms_ind3_by_t_stykel", "DEMOS/TripleChain", "DEMOS/Bilinear", "DEMOS/Rail", "DEMOS/RI", "DEMOS/Logger", "DEMOS/DAE2", "DEMOS/FDM", "DEMOS/DAE2_SO", "helpers", "usfs", "usfs/so_iter", "usfs/so_2", "usfs/dae_1_so", "usfs/so_1", "usfs/dae_2_so", "usfs/dae_2", "usfs/state_space_transformed_default", "usfs/default", "usfs/dae_1", "usfs/default_iter", "usfs/dae_3_so"};
## dirlist is filled by script

dir = fileparts (mfilename ("fullpath"));

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

clear dirlist ii dir  

