mp_lockfilecheck.test.sas

Go to the documentation of this file.

/**
  @file
  @brief Testing mp_lockfilecheck macro
 
  <h4> SAS Macros </h4>
  @li mp_lockfilecheck.sas
  @li mp_assert.sas
  @li mp_reseterror.sas
 
**/
 
 
/* check for regular lock */
data work.test; a=1;run;
%mp_lockfilecheck(work.test)
 
%mp_assert(
  iftrue=(&syscc=0),
  desc=Checking regular table can be locked,
  outds=work.test_results
)
 
 
/* check for unsuccessful lock */
%global success abortme;
%let success=0;
%macro mp_abort(iftrue=,mac=,msg=);
  %if &abortme=1 %then %let success=1;
%mend mp_abort;
 
%mp_lockfilecheck(sashelp.class)
 
%mp_reseterror()
 
%mp_assert(
  iftrue=(&success=1),
  desc=Checking sashelp table cannot be locked,
  outds=work.test_results
)