mirror of
https://github.com/sasjs/core.git
synced 2026-01-03 15:40:05 +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).
35 lines
607 B
SAS
35 lines
607 B
SAS
/**
|
|
@file
|
|
@brief Testing ms_webout macro
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mf_getuniquefileref.sas
|
|
@li ms_webout.sas
|
|
@li mp_assert.sas
|
|
|
|
**/
|
|
|
|
|
|
%let fref=%mf_getuniquefileref();
|
|
%global _metaperson;
|
|
data some datasets;
|
|
x=1;
|
|
run;
|
|
%ms_webout(OPEN,fref=&fref)
|
|
%ms_webout(ARR,some,fref=&fref)
|
|
%ms_webout(OBJ,datasets,fref=&fref)
|
|
%ms_webout(CLOSE,fref=&fref)
|
|
|
|
libname test JSON fileref=&fref;
|
|
data root;
|
|
set test.root;
|
|
call symputx('checkval',sysvlong);
|
|
run;
|
|
data alldata;
|
|
set test.alldata;
|
|
run;
|
|
|
|
%mp_assert(
|
|
iftrue=(%str(&checkval)=%str(&sysvlong)),
|
|
desc=Check if the sysvlong value was created
|
|
) |