mirror of
https://github.com/sasjs/core.git
synced 2025-12-11 06:24:35 +00:00
40 lines
677 B
SAS
40 lines
677 B
SAS
/**
|
|
@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
|
|
)
|