mv__createfile_8test_8sas_source.html

/**

  @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/temp, 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/temp/&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/temp, name=test.html,inref=f2,mdebug=1)


%mp_assert(

  iftrue=(%mfv_existfile(&mcTestAppLoc/temp/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/temp, name=&file..sas7bdat,inref=ds,mdebug=1)


%mp_assert(

  iftrue=(%mfv_existfile(&mcTestAppLoc/temp/&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/temp, name=test4.sas,inref=f4,mdebug=1)


%mp_assert(

  iftrue=(%mfv_existfile(&mcTestAppLoc/temp/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/temp" filename='test4.sas';


OPTIONS MERROR SYMBOLGEN MLOGIC MPRINT;


%mv_createfile(path=&mcTestAppLoc/temp,name=test5.sas,inref=sendfrom,mdebug=1) ;