/******************************************************************************
 * Programme : Gestión y Verificación de Grupos de Usuarios de SAS Viya
 * Reference : GESTIOF78D
 * Source    : https://www.wearecas.eu/fr/sampleCode/GESTIOF78D
 ******************************************************************************/

/* --- BLOC 1 --- */
%let group=%substr(%mf_getuniquename(),1,8);
%ms_creategroup(&group, desc=The description,mdebug=&sasjs_mdebug,outds=test1)

/* --- BLOC 2 --- */
%mp_assertscope(SNAPSHOT)
%ms_getgroups(outds=work.test1,mdebug=&sasjs_mdebug)
%mp_assertscope(COMPARE
  ,ignorelist=MCLIB2_JADP1LEN MCLIB2_JADPNUM MCLIB2_JADVLEN
)

/* --- BLOC 3 --- */
%mp_assertdsobs(work.test1,test=ATLEAST 1)

%let test2=0;
%put &=group;
data _null_;
  set work.test1;
  putlog (_all_)(=);
  if upcase(name)="%upcase(&group)" then do;
    putlog "&group found!";
    call symputx('test2',1);
    call symputx('gid',groupid); /* used in next test */
  end;
run;

%mp_assert(
  iftrue=("&test2"="1"),
  desc=Checking group was created,
  outds=work.test_results
)

/* --- BLOC 4 --- */
/* now check if the filter for the groups for a user works */

/* add a member */
%ms_adduser2group(uid=1,gid=&gid)

%ms_getgroups(user=secretuser,outds=work.test3)

%let test3=0;
data _null_;
  set work.test3;
  if groupid=&gid then call symputx('test3',1);
run;

%mp_assert(
  iftrue=("&test3"="1"),
  desc=Checking group list was returned for a user,
  outds=work.test_results
)