mirror of
https://github.com/sasjs/core.git
synced 2026-01-07 09:30:06 +00:00
chore: Added test of ms_triggerstp.sas
This commit is contained in:
72
tests/serveronly/ms_triggerstp.test.sas
Normal file
72
tests/serveronly/ms_triggerstp.test.sas
Normal file
@@ -0,0 +1,72 @@
|
|||||||
|
/**
|
||||||
|
@file
|
||||||
|
@brief Testing ms_triggerstp.sas macro
|
||||||
|
|
||||||
|
<h4> SAS Macros </h4>
|
||||||
|
@li mf_getuniquename.sas
|
||||||
|
@li mp_assert.sas
|
||||||
|
@li mp_assertscope.sas
|
||||||
|
@li ms_createfile.sas
|
||||||
|
@li ms_triggerstp.sas
|
||||||
|
@li mf_existds.sas
|
||||||
|
@li mf_nobs.sas
|
||||||
|
@li ms_deletefile.sas
|
||||||
|
@li mp_assertcols.sas
|
||||||
|
|
||||||
|
**/
|
||||||
|
|
||||||
|
/* first, create multiple STPs to run */
|
||||||
|
filename stpcode1 temp;
|
||||||
|
data _null_;
|
||||||
|
file stpcode1;
|
||||||
|
put '%put hello world;';
|
||||||
|
put '%put _all_;';
|
||||||
|
put 'data _null_; file _webout1; put "triggerstp test 1";run;';
|
||||||
|
run;
|
||||||
|
filename stpcode2 temp;
|
||||||
|
data _null_;
|
||||||
|
file stpcode2;
|
||||||
|
put '%put Lorem Ipsum;';
|
||||||
|
put '%put _all_;';
|
||||||
|
put 'data _null_; file _webout2; put "triggerstp test 2";run;';
|
||||||
|
run;
|
||||||
|
options mprint;
|
||||||
|
%let fname1=%mf_getuniquename();
|
||||||
|
%let fname2=%mf_getuniquename();
|
||||||
|
|
||||||
|
%ms_createfile(/sasjs/tests/&fname1..sas
|
||||||
|
,inref=stpcode1
|
||||||
|
,mdebug=1
|
||||||
|
)
|
||||||
|
%ms_createfile(/sasjs/tests/&fname2..sas
|
||||||
|
,inref=stpcode2
|
||||||
|
)
|
||||||
|
|
||||||
|
%mp_assertscope(SNAPSHOT)
|
||||||
|
%ms_triggerstp(/sasjs/tests/&fname1
|
||||||
|
,debug=131
|
||||||
|
,outds=work.mySessions
|
||||||
|
)
|
||||||
|
%ms_triggerstp(/sasjs/tests/&fname2
|
||||||
|
,outds=work.mySessions
|
||||||
|
)
|
||||||
|
%mp_assertscope(COMPARE
|
||||||
|
,ignorelist=RESPONSE_JADP1LEN RESPONSE_JADPNUM RESPONSE_JADVLEN)
|
||||||
|
|
||||||
|
%mp_assert(iftrue=%str(%mf_existds(work.mySessions)=1)
|
||||||
|
,desc=Testing output exists
|
||||||
|
,outds=work.test_results)
|
||||||
|
|
||||||
|
%mp_assertdsobs(work.mySessions,
|
||||||
|
test=EQUALS 2,
|
||||||
|
desc=Testing observations,
|
||||||
|
outds=work.test_results
|
||||||
|
)
|
||||||
|
%mp_assertcols(work.mySessions,
|
||||||
|
cols=sessionid,
|
||||||
|
test=ALL,
|
||||||
|
desc=Testing column exists
|
||||||
|
)
|
||||||
|
|
||||||
|
%ms_deletefile(/sasjs/tests/&fname1..sas)
|
||||||
|
%ms_deletefile(/sasjs/tests/&fname2..sas)
|
||||||
Reference in New Issue
Block a user