mirror of
https://github.com/sasjs/core.git
synced 2026-01-03 15:40:05 +00:00
feat: creating new mx_ suite of macros!
also adding new mx_getcode macro
This commit is contained in:
38
tests/xplatform/mx_getcode.test.sas
Normal file
38
tests/xplatform/mx_getcode.test.sas
Normal file
@@ -0,0 +1,38 @@
|
||||
/**
|
||||
@file
|
||||
@brief Testing mx_getcode.test.sas macro
|
||||
|
||||
Be sure to run <code>%let mcTestAppLoc=/Public/temp/macrocore;</code> when
|
||||
running in Studio
|
||||
|
||||
<h4> SAS Macros </h4>
|
||||
@li mf_uid.sas
|
||||
@li mp_assert.sas
|
||||
@li mx_createwebservice.sas
|
||||
@li mx_getcode.sas
|
||||
@li mx_testservice.sas
|
||||
|
||||
**/
|
||||
|
||||
/* first create a service */
|
||||
|
||||
%let item=%mf_uid();;
|
||||
|
||||
%global test1;
|
||||
%let test1=FAIL;
|
||||
|
||||
filename ft15f001 temp;
|
||||
parmcards4;
|
||||
%let test1=SUCCESS;
|
||||
;;;;
|
||||
%mx_createwebservice(path=&mcTestAppLoc/temp,name=&item)
|
||||
|
||||
%mx_getcode(&mcTestAppLoc/temp/&item,testref1)
|
||||
|
||||
%inc testref1/lrecl=1000;
|
||||
|
||||
%mp_assert(
|
||||
iftrue=(&test1=SUCCESS),
|
||||
desc=code was successfully fetched,
|
||||
outds=work.test_results
|
||||
)
|
||||
@@ -1,13 +1,13 @@
|
||||
/**
|
||||
@file
|
||||
@brief Testing mp_testservice.sas macro
|
||||
@brief Testing mx_testservice.sas macro
|
||||
|
||||
Be sure to run <code>%let mcTestAppLoc=/Public/temp/macrocore;</code> when
|
||||
runnin in Studio
|
||||
|
||||
<h4> SAS Macros </h4>
|
||||
@li mp_createwebservice.sas
|
||||
@li mp_testservice.sas
|
||||
@li mx_testservice.sas
|
||||
@li mp_assert.sas
|
||||
|
||||
**/
|
||||
@@ -29,7 +29,7 @@ parmcards4;
|
||||
%mend x; %x()
|
||||
%webout(CLOSE)
|
||||
;;;;
|
||||
%mp_createwebservice(path=&mcTestAppLoc/services,name=sendObj)
|
||||
%mx_createwebservice(path=&mcTestAppLoc/services,name=sendObj)
|
||||
|
||||
%mp_assert(
|
||||
iftrue=(&syscc=0),
|
||||
@@ -48,7 +48,7 @@ data work.somedata1 work.somedata2;
|
||||
output;
|
||||
run;
|
||||
|
||||
%mp_testservice(&mcTestAppLoc/services/sendObj,
|
||||
%mx_testservice(&mcTestAppLoc/services/sendObj,
|
||||
inputdatasets=work.somedata1 work.somedata2,
|
||||
debug=log,
|
||||
mdebug=1,
|
||||
Reference in New Issue
Block a user