/******************************************************************************
 * Programme : Test der Makro _executeCmdFile
 * Reference : TESTDEFAEF
 * Source    : https://www.wearecas.eu/en/sampleCode/TESTDEFAEF
 ******************************************************************************/

/* --- BLOC 1 --- */
%initScenario (i_desc=Test of _executeCmdFile.sas)

/* --- BLOC 2 --- */
%let path = %sysfunc (pathname(WORK));
data _null_;
   file "&path./createfolder.cmd";
   put "&g_makedir. ""&path./TestFolder""";
run;

/* --- BLOC 3 --- */
%initTestcase(i_object=_executeCmdFile.sas, i_desc=check call of program)

%_executeCmdFile(&path./createfolder.cmd);

%endTestCall;

/* --- BLOC 4 --- */
%assertEquals(i_expected=1, i_actual=%_existdir(&path./TestFolder), i_desc=Folder should exist)
%assertLog()
%endTestcase()

%endScenario();