mfv_existfolder.test.sas

Go to the documentation of this file.

/**
  @file
  @brief Testing mfv_existfolder macro function
 
  <h4> SAS Macros </h4>
  @li mf_uid.sas
  @li mfv_existfolder.sas
  @li mp_assert.sas
  @li mv_createfolder.sas
 
**/
 
options mprint sgen;
 
%let folder=%mf_uid();
 
/* create a folder */
%mv_createfolder(path=&mcTestAppLoc/temp/&folder)
 
 
%mp_assert(
  iftrue=(%mfv_existfolder(&mcTestAppLoc/temp/&folder)=1),
  desc=Check if created folder exists
)
 
%mp_assert(
  iftrue=(%mfv_existfolder(&mcTestAppLoc/temp/&folder/%mf_uid()/noway)=0),
  desc=Check if non created folder does not exist
)
 
/* the syscc guard: see mfv_existfile.test.sas */
%let syscc=1012;
%let guard_ret=%mfv_existfolder(&mcTestAppLoc/temp/&folder);
%let guard_syscc=&syscc;
%let syscc=0;
%mp_assert(
  iftrue=(&guard_ret=0),
  desc=Check the syscc guard returns 0 rather than aborting
)
%mp_assert(
  iftrue=(&guard_syscc=1012),
  desc=Check the syscc guard leaves syscc alone
)