mirror of
https://github.com/sasjs/core.git
synced 2025-12-15 16:14:36 +00:00
0cb3c96c15
This PR updates ms_getgroups with a user filter, and ms_getusers with a group filter. ms_adduser2group was also created to faciliate the necessary test(s).
53 lines
1.0 KiB
SAS
53 lines
1.0 KiB
SAS
/**
|
|
@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=MCLIB0_JADP1LEN MCLIB0_JADPNUM MCLIB0_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
|
|
)
|
|
|
|
|
|
|
|
|
|
|