mirror of
https://github.com/sasjs/core.git
synced 2026-01-06 09:00:06 +00:00
fix: adding (and fixing) tests for ms_* macro suite
This commit is contained in:
50
tests/serveronly/ms_createuser.test.sas
Normal file
50
tests/serveronly/ms_createuser.test.sas
Normal file
@@ -0,0 +1,50 @@
|
||||
/**
|
||||
@file
|
||||
@brief Testing ms_createuser.sas macro
|
||||
|
||||
<h4> SAS Macros </h4>
|
||||
@li mf_getuniquename.sas
|
||||
@li mp_assert.sas
|
||||
@li mp_assertscope.sas
|
||||
@li ms_createuser.sas
|
||||
@li ms_getusers.sas
|
||||
|
||||
**/
|
||||
|
||||
%let user=%substr(%mf_getuniquename(),1,8);
|
||||
|
||||
%mp_assertscope(SNAPSHOT)
|
||||
%ms_createuser(&user,passwrd,outds=test1,mdebug=&sasjs_mdebug)
|
||||
%mp_assertscope(COMPARE
|
||||
,ignorelist=MCLIB0_JADP1LEN MCLIB0_JADPNUM MCLIB0_JADVLEN
|
||||
)
|
||||
|
||||
%let id=0;
|
||||
data _null_;
|
||||
set work.test1;
|
||||
call symputx('id',id);
|
||||
run;
|
||||
%mp_assert(
|
||||
iftrue=(&id>0),
|
||||
desc=Checking that user was created with an ID,
|
||||
outds=work.test_results
|
||||
)
|
||||
|
||||
/* double check by querying the list of users */
|
||||
%ms_getusers(outds=work.test2)
|
||||
%let checkid=0;
|
||||
data _null_;
|
||||
set work.test2;
|
||||
where username="&user";
|
||||
call symputx('checkid',id);
|
||||
run;
|
||||
%mp_assert(
|
||||
iftrue=(&checkid=&id),
|
||||
desc=Checking that fetched user exists and has the same ID,
|
||||
outds=work.test_results
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user