mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 22:14:35 +00:00
55 lines
1.1 KiB
SAS
55 lines
1.1 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 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;
|
|
%mv_createfile(path=&mcTestAppLoc/temp, name=&file..txt,inref=somefile,mdebug=1)
|
|
|
|
%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 2 - 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
|
|
) |