mirror of
https://github.com/sasjs/core.git
synced 2025-12-15 16:14:36 +00:00
111 lines
2.4 KiB
SAS
111 lines
2.4 KiB
SAS
/**
|
|
@file
|
|
@brief Testing mv_createfile macro
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mf_uid.sas
|
|
@li mfv_existfile.sas
|
|
@li mp_assert.sas
|
|
@li mp_assertscope.sas
|
|
@li mv_createfile.sas
|
|
|
|
|
|
**/
|
|
|
|
options mprint;
|
|
|
|
%let file=%mf_uid();
|
|
|
|
%put TEST 1 - basic file upload ;
|
|
filename somefile temp;
|
|
data _null_;
|
|
file somefile;
|
|
put 'hello testings';
|
|
run;
|
|
%mp_assertscope(SNAPSHOT)
|
|
%mv_createfile(path=&mcTestAppLoc, name=&file..txt,inref=somefile,mdebug=1)
|
|
%mp_assertscope(COMPARE
|
|
,ignorelist=MCLIB0_JADP1LEN MCLIB0_JADP2LEN MCLIB0_JADPNUM
|
|
MCLIB0_JADVLEN MCLIB2_JADP1LEN
|
|
SASJSPROCESSMODE SASJS_STPSRV_HEADER_LOC
|
|
MCLIB2_JADP2LEN MCLIB2_JADPNUM MCLIB2_JADVLEN
|
|
)
|
|
|
|
%mp_assert(
|
|
iftrue=(%mfv_existfile(&mcTestAppLoc/&file..txt)=1),
|
|
desc=Check if created file exists
|
|
)
|
|
|
|
%put TEST 2 - html file;
|
|
filename f2 temp;
|
|
data _null_;
|
|
file f2;
|
|
put '<html><body><p>Hello world</p></body></html>';
|
|
run;
|
|
%mv_createfile(path=&mcTestAppLoc, name=test.html,inref=f2,mdebug=1)
|
|
|
|
%mp_assert(
|
|
iftrue=(%mfv_existfile(&mcTestAppLoc/test.html)=1),
|
|
desc=Check if created file exists
|
|
)
|
|
|
|
%put TEST 3 - dataset upload ;
|
|
data temp;
|
|
x=1;
|
|
run;
|
|
filename ds "%sysfunc(pathname(work))/temp.sas7bdat";
|
|
|
|
%mv_createfile(path=&mcTestAppLoc, name=&file..sas7bdat,inref=ds,mdebug=1)
|
|
|
|
%mp_assert(
|
|
iftrue=(%mfv_existfile(&mcTestAppLoc/&file..sas7bdat)=1),
|
|
desc=Check if created dataset exists
|
|
)
|
|
|
|
%put TEST 4 - create a .sas file;
|
|
filename f4 temp;
|
|
data _null_;
|
|
file f4;
|
|
put '%put hello FromSASStudioBailey; ';
|
|
run;
|
|
%mv_createfile(path=&mcTestAppLoc, name=test4.sas,inref=f4,mdebug=1)
|
|
|
|
%mp_assert(
|
|
iftrue=(%mfv_existfile(&mcTestAppLoc/test4.sas)=1),
|
|
desc=Check if created sas program exists
|
|
)
|
|
|
|
|
|
|
|
%put TEST 5 - reading from files service and writing back;
|
|
filename sendfrom filesrvc folderpath="&mcTestAppLoc" filename='test4.sas';
|
|
|
|
OPTIONS MERROR SYMBOLGEN MLOGIC MPRINT;
|
|
|
|
%mv_createfile(path=&mcTestAppLoc,name=test5.sas,inref=sendfrom,mdebug=1) ;
|
|
|
|
%put TEST 6 - try the find and replace;
|
|
filename f6 temp;
|
|
data _null_;
|
|
file f6;
|
|
put '//Hello world!';
|
|
put 'let var=/some/path/name;';
|
|
run;
|
|
%let in=/some/path/name;
|
|
%let out=/final/destination;
|
|
%mv_createfile(path=&mcTestAppLoc, name=test6.js,inref=f6,mdebug=1,swap=in out)
|
|
|
|
filename getback filesrvc folderpath="&mcTestAppLoc" filename='test6.js';
|
|
|
|
%let test6=0;
|
|
data _null_;
|
|
infile getback;
|
|
input;
|
|
if _infile_="let var=&out;" then call symputx('test6',1);
|
|
putlog _infile_;
|
|
run;
|
|
|
|
%mp_assert(
|
|
iftrue=(&test6=1),
|
|
desc=Check if find & replace worked
|
|
) |