ms_adduser2group.test.sas

Go to the documentation of this file.

/**
  @file
  @brief Testing ms_adduser2group.sas macro
 
  <h4> SAS Macros </h4>
  @li mf_getuniquename.sas
  @li mp_assert.sas
  @li mp_assertscope.sas
  @li ms_adduser2group.sas
  @li ms_creategroup.sas
 
**/
 
/* first, create an empty group */
%let group=%substr(%mf_getuniquename(),1,8);
%ms_creategroup(&group, desc=The description,mdebug=&sasjs_mdebug,outds=test1a)
%let groupid=0;
data _null_;
  set work.test1a;
  call symputx('groupid',groupid);
run;
%mp_assert(
  iftrue=(&groupid>0),
  desc=Checking that group was created with an ID,
  outds=work.test_results
)
 
/* now add a user (user 1 always exists) */
 
 
%mp_assertscope(SNAPSHOT)
%ms_adduser2group(uid=1,gid=&groupid,mdebug=&sasjs_mdebug,outds=test1)
%mp_assertscope(COMPARE
  ,ignorelist=MCLIB2_JADP1LEN MCLIB2_JADP2LEN MCLIB2_JADPNUM MCLIB2_JADVLEN
    MC2_JADP1LEN MC2_JADP2LEN MC2_JADPNUM MC2_JADVLEN
)
 
/* check the user is in the output list */
%let checkid=0;
data _null_;
  set work.test1;
  if id=1 then call symputx('checkid',1);
run;
%mp_assert(
  iftrue=(&checkid=1),
  desc=Checking that user was created in the new group,
  outds=work.test_results
)