/** @file @brief Testing mv_createfile macro

SAS Macros

@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 '

Hello world

'; 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 )