mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 22:14:35 +00:00
49 lines
840 B
SAS
49 lines
840 B
SAS
/**
|
|
@file
|
|
@brief Testing mv_getjobcode macro
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mp_assert.sas
|
|
@li mv_createjob.sas
|
|
@li mv_getjobcode.sas
|
|
|
|
**/
|
|
|
|
/**
|
|
* Test Case 1
|
|
*/
|
|
|
|
/* write some code to a job */
|
|
%let incode=%str(data test; set sashelp.class;run;);
|
|
filename testref temp;
|
|
data _null_;
|
|
file testref;
|
|
put "&incode";
|
|
run;
|
|
%mv_createjob(
|
|
code=testref,
|
|
path=&mcTestAppLoc/services/temp,
|
|
name=some_job
|
|
)
|
|
|
|
/* now get the code back */
|
|
%mv_getjobcode(
|
|
path=&mcTestAppLoc/services/temp,
|
|
name=some_job,
|
|
outref=mycode
|
|
)
|
|
|
|
%let diditexist=NO;
|
|
data work.test1;
|
|
infile mycode;
|
|
input;
|
|
putlog _infile_;
|
|
line=_infile_;
|
|
check=symget('incode');
|
|
if _infile_=symget('incode') then call symputx('diditexist','YES');
|
|
run;
|
|
|
|
%mp_assert(
|
|
iftrue=(&diditexist=NO),
|
|
desc=Check if the code that was sent was successfully retrieved
|
|
) |