Test du macro-programme _mkDir

Attention : Ce code nécessite des droits administrateur.

Le script valide le fonctionnement du macro-programme _mkDir.sas^© en utilisant le framework de test SASUnit. Il contient trois cas de test distincts : le premier teste la création simple d'un répertoire, le deuxième vérifie la gestion d'erreur lorsqu'un chemin parent n'existe pas, et le troisième teste la création récursive d'une arborescence de répertoires avec l'option `makeCompletePath=1`. Les assertions vérifient l'existence des répertoires et la présence des messages d'erreur attendus dans le journal SAS^©.

Analyse des données

Type : CREATION_INTERNE

Le script ne lit aucune donnée. Il interagit avec le système de fichiers pour créer des répertoires de test dans le chemin de la librairie WORK. L'existence de ces répertoires est ensuite vérifiée par des macros de test.

1 Bloc de code

Macro

Explication :
Initialise un scénario de test pour _mkDir.sas. Ce premier cas de test crée un répertoire simple nommé 'folder' dans la librairie WORK. Il appelle la macro %_mkdir et vérifie ensuite avec %assertEquals et %_existDir que le répertoire a bien été créé.

Copié !

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;

2 Bloc de code

Macro

Explication :
Ce cas de test tente de créer un sous-répertoire ('subfolder') sans que le répertoire parent ('folder1') n'existe. Il est attendu que l'opération échoue. Les macros %assertLog et %assertLogMsg vérifient qu'une erreur spécifique est bien écrite dans le journal. Enfin, %assertEquals confirme que le répertoire final n'a pas été créé.

Copié !

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;

3 Bloc de code

Macro

Explication :
Ce dernier cas de test démontre la création récursive. Il utilise l'option `makeCompletePath=1` pour que %_mkdir crée à la fois le répertoire parent 'folder1' et le sous-répertoire 'subfolder'. L'assertion %assertEquals vérifie que la structure complète du chemin a bien été créée avec succès.

Copié !

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;

4 Bloc de code

Macro

Explication :
Termine le scénario de test SASUnit.

Copié !

1	%endScenario();

Ce matériel est fourni "tel quel" par We Are Cas. Il n'y a aucune garantie, expresse ou implicite, quant à la qualité marchande ou à l'adéquation à un usage particulier concernant le matériel ou le code contenu dans les présentes. We Are Cas n'est pas responsable des erreurs dans ce matériel tel qu'il existe maintenant ou existera, et We Are Cas ne fournit pas de support technique pour celui-ci.

Retour à la liste