| 1 | %initScenario (i_desc=Test of _mkDir.sas); |
| 2 | |
| 3 | %initTestcase(i_object=_mkDir.sas, i_desc=Test with correct call) |
| 4 | %let newdir=%sysfunc(pathname(work))/folder; |
| 5 | %_mkdir(&newdir.); |
| 6 | %endTestcall; |
| 7 | |
| 8 | %assertEquals(i_expected=1, i_actual=%_existDir(&newdir.), i_desc=check on file existence) |
| 9 | %endTestcase; |
| 1 | %initTestcase(i_object=_mkDir.sas, i_desc=Test with folder and subfolder to be created. No creation but message) |
| 2 | %let newdir=%sysfunc(pathname(work))/folder1/subfolder; |
| 3 | %_mkdir(&newdir.); |
| 4 | %endTestcall; |
| 5 | |
| 6 | %assertLog(i_errors=1, i_warnings=0) |
| 7 | %assertLogMsg(i_logMsg=ERROR: _mkdir: Parentfolder .+folder1 does not exist) |
| 8 | %assertEquals(i_expected=0, i_actual=%_existDir(&newdir.), i_desc=check on file existence) |
| 9 | %endTestcase; |
| 1 | %initTestcase(i_object=_mkDir.sas, i_desc=Test with folder and subfolder to be created.) |
| 2 | %let newdir=%sysfunc(pathname(work))/folder1/subfolder; |
| 3 | %_mkdir(&newdir., makeCompletePath=1); |
| 4 | %endTestcall; |
| 5 | |
| 6 | %assertEquals(i_expected=1, i_actual=%_existDir(&newdir.), i_desc=check on file existence) |
| 7 | %endTestcase; |
| 1 | %endScenario(); |