mirror of
https://github.com/sasjs/core.git
synced 2025-12-11 06:24:35 +00:00
35 lines
621 B
SAS
35 lines
621 B
SAS
/**
|
|
@file
|
|
@brief Testing mfv_getpathuri macro function
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mf_uid.sas
|
|
@li mfv_getpathuri.sas
|
|
@li mp_assert.sas
|
|
@li mv_createfile.sas
|
|
|
|
**/
|
|
|
|
options mprint sgen;
|
|
|
|
%let file=%mf_uid();
|
|
|
|
/* create a folder */
|
|
filename somefile temp;
|
|
data _null_;
|
|
file somefile;
|
|
put 'hello testings';
|
|
run;
|
|
%let path=&mcTestAppLoc/temp;
|
|
%mv_createfile(path=&path, name=&file..txt,inref=somefile)
|
|
|
|
|
|
%mp_assert(
|
|
iftrue=(%mfv_existfile(&path/&file..txt)=1),
|
|
desc=Check if created file exists
|
|
)
|
|
|
|
%mp_assert(
|
|
iftrue=(%length(%mfv_getpathuri(&path/&file..txt))>0),
|
|
desc=Check that a URI was returned
|
|
) |