sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-17 05:20:05 +00:00
Code Issues Projects Releases Wiki Activity

fix: tests for ms_createwebservice and mp_createwebservice

Browse Source
This commit is contained in:
Allan Bowe
2022-04-25 21:33:14 +00:00
parent f9b0f87f44
commit 8bd31e6c97
6 changed files with 80 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
all.sas
View File

@@ -3841,6 +3841,7 @@ Usage:
<h4> SAS Macros </h4> <h4> SAS Macros </h4>
@li mf_getplatform.sas @li mf_getplatform.sas
@li mm_createwebservice.sas @li mm_createwebservice.sas
@li ms_createwebservice.sas
@li mv_createwebservice.sas @li mv_createwebservice.sas
@param [in,out] path= The full folder path where the service will be created @param [in,out] path= The full folder path where the service will be created
@@ -3852,7 +3853,7 @@ Usage:
be added be added
@param [in] replace= (YES) Select YES to replace any existing service in that @param [in] replace= (YES) Select YES to replace any existing service in that
location location
@param [in] mDebug= (0) set to 1 to show debug messages in the log
@version 9.2 @version 9.2
@author Allan Bowe @author Allan Bowe
@@ -3865,6 +3866,7 @@ Usage:
,code=ft15f001 ,code=ft15f001
,desc=This service was created by the mp_createwebservice macro ,desc=This service was created by the mp_createwebservice macro
,replace=YES ,replace=YES
,mdebug=0
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
%if &syscc ge 4 %then %do; %if &syscc ge 4 %then %do;
@@ -3885,9 +3887,11 @@ Usage:
%end; %end;
%else %if &platform=SASJS %then %do; %else %if &platform=SASJS %then %do;
%if "&path"="HOME" %then %let path=/Users/&_sasjs_username/My Folder; %if "&path"="HOME" %then %let path=/Users/&_sasjs_username/My Folder;
%ms_createfile(&path/&name..sas %ms_createwebservice(path=&path
,inref=&code ,name=&name
,prerefs=&precode ,code=&code
,precode=&precode
,mdebug=&mdebug
) )
%end; %end;
%else %do; %else %do;
@@ -19221,6 +19225,9 @@ options &optval;
@li mf_getuser.sas @li mf_getuser.sas
@li mf_getuniquename.sas @li mf_getuniquename.sas
<h4> Related Files </h4>
@li ms_createwebservice.test.sas
@version 9.2 @version 9.2
@author Allan Bowe @author Allan Bowe

12
base/mp_createwebservice.sas
View File

@@ -29,6 +29,7 @@ Usage:
<h4> SAS Macros </h4> <h4> SAS Macros </h4>
@li mf_getplatform.sas @li mf_getplatform.sas
@li mm_createwebservice.sas @li mm_createwebservice.sas
@li ms_createwebservice.sas
@li mv_createwebservice.sas @li mv_createwebservice.sas
@param [in,out] path= The full folder path where the service will be created @param [in,out] path= The full folder path where the service will be created
@@ -40,7 +41,7 @@ Usage:
be added be added
@param [in] replace= (YES) Select YES to replace any existing service in that @param [in] replace= (YES) Select YES to replace any existing service in that
location location
@param [in] mDebug= (0) set to 1 to show debug messages in the log
@version 9.2 @version 9.2
@author Allan Bowe @author Allan Bowe
@@ -53,6 +54,7 @@ Usage:
,code=ft15f001 ,code=ft15f001
,desc=This service was created by the mp_createwebservice macro ,desc=This service was created by the mp_createwebservice macro
,replace=YES ,replace=YES
,mdebug=0
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
%if &syscc ge 4 %then %do; %if &syscc ge 4 %then %do;
@@ -73,9 +75,11 @@ Usage:
%end; %end;
%else %if &platform=SASJS %then %do; %else %if &platform=SASJS %then %do;
%if "&path"="HOME" %then %let path=/Users/&_sasjs_username/My Folder; %if "&path"="HOME" %then %let path=/Users/&_sasjs_username/My Folder;
%ms_createfile(&path/&name..sas %ms_createwebservice(path=&path
,inref=&code ,name=&name
,prerefs=&precode ,code=&code
,precode=&precode
,mdebug=&mdebug
) )
%end; %end;
%else %do; %else %do;

3
server/ms_createwebservice.sas
View File

@@ -45,6 +45,9 @@
@li mf_getuser.sas @li mf_getuser.sas
@li mf_getuniquename.sas @li mf_getuniquename.sas
<h4> Related Files </h4>
@li ms_createwebservice.test.sas
@version 9.2 @version 9.2
@author Allan Bowe @author Allan Bowe

28
tests/crossplatform/mp_createwebservice.test.sas Normal file
View File

@@ -0,0 +1,28 @@
/**
@file
@brief Testing ms_createwebservice.sas macro
<h4> SAS Macros </h4>
@li mf_getuniquefileref.sas
@li mp_assertscope.sas
@li mp_createwebservice.sas
**/
%let path=&mcTestAppLoc/mp_createwebservice;
%let name=myservice;
%let fref=%mf_getuniquefileref();
data _null_;
file &fref lrecl=3000;
put '%put hello world;';
run;
%mp_assertscope(SNAPSHOT)
%mp_createwebservice(path=&path,name=&name,code=&fref,mdebug=&sasjs_mdebug)
%mp_assertscope(COMPARE)

28
tests/serveronly/ms_createwebservice.test.sas Normal file
View File

@@ -0,0 +1,28 @@
/**
@file
@brief Testing ms_createwebservice.sas macro
<h4> SAS Macros </h4>
@li mf_getuniquefileref.sas
@li mp_assertscope.sas
@li ms_createwebservice.sas
**/
%let path=&mcTestAppLoc/ms_createwebservice;
%let name=myservice;
%let fref=%mf_getuniquefileref();
data _null_;
file &fref lrecl=3000;
put '%put hello world;';
run;
%mp_assertscope(SNAPSHOT)
%ms_createwebservice(path=&path,name=&name,code=&fref,mdebug=&sasjs_mdebug)
%mp_assertscope(COMPARE)

4
tests/testinit.sas
View File

@@ -3,13 +3,13 @@
@brief init file for tests @brief init file for tests
<h4> SAS Macros </h4> <h4> SAS Macros </h4>
@li mf_uid.sas
@li mp_init.sas @li mp_init.sas
@li mv_webout.sas
**/ **/
/* location in metadata or SAS Drive for temporary files */ /* location in metadata or SAS Drive for temporary files */
%let mcTestAppLoc=/Public/temp/macrocore; %let mcTestAppLoc=/tmp/tests/sasjs/core/%mf_uid();
/* set defaults */ /* set defaults */
%mp_init() %mp_init()