Test de la macro _existDir.sas

Ce script utilise le framework SASUnit pour tester la macro `_existDir.sas^©`. Il évalue sa capacité à détecter correctement l'existence de répertoires pour différents scénarios : un répertoire existant (via `WORK` SAS^©), un répertoire existant avec un slash de fin, et un répertoire délibérément inexistant. Les assertions `%assertEquals` sont utilisées pour valider les résultats de la macro.

Analyse des données

Type : CREATION_INTERNE

Le script ne traite pas de données métier. Il définit des variables locales pour stocker des chemins de répertoire (existants et non existants) et utilise la bibliothèque système 'WORK' pour un chemin existant interne à la session SAS.

1 Bloc de code

SASUNIT Macro Calls

Explication :
Initialise le scénario de test SASUnit et définit trois variables macro : `existing` pour un chemin de répertoire existant (le répertoire de travail SAS), `existing2` pour le même chemin avec un slash de fin, et `not_existing` pour un chemin de répertoire qui n'existe délibérément pas.

Copié !

1	%initScenario (i_desc=Test of _existDir.sas);
2
3	%let existing = %sysfunc(pathname(work));
4	%let existing2 = %sysfunc(pathname(work))/;
5	%let not_existing = y:\ljfds\jdsa\jdsal\urewqio;

2 Bloc de code

SASUNIT Macro Calls

Explication :
Premier cas de test : vérifie si la macro `_existdir` retourne 1 (vrai) pour un répertoire existant (`&existing`). Il utilise `%assertEquals` pour confirmer que le résultat est bien 1.

Copié !

1	%initTestcase(i_object=_existDir.sas, i_desc=existing folder)
2	%LET exists = %_existdir(&existing);
3	%endTestcall;
4	%assertEquals(i_expected=1, i_actual=&exists, i_desc=folder exists)
5	%endTestcase;

3 Bloc de code

SASUNIT Macro Calls

Explication :
Deuxième cas de test : vérifie si la macro `_existdir` retourne 1 (vrai) pour un répertoire existant avec un slash de fin (`&existing2`). `%assertEquals` est utilisé pour valider que le résultat est 1.

Copié !

1	%initTestcase(i_object=_existDir.sas, i_desc=existing folder with terminating /)
2	%LET exists = %_existdir(&existing2);
3	%endTestcall;
4	%assertEquals(i_expected=1, i_actual=&exists, i_desc=folder exists)
5	%endTestcase;

4 Bloc de code

SASUNIT Macro Calls

Explication :
Troisième cas de test : vérifie si la macro `_existdir` retourne 0 (faux) pour un répertoire qui n'existe pas (`&not_existing`). `%assertEquals` confirme que le résultat est 0.

Copié !

1	%initTestcase(i_object=_existDir.sas, i_desc=not existing folder)
2	%LET exists = %_existdir(¬_existing);
3	%endTestcall;
4	%assertEquals(i_expected=0, i_actual=&exists, i_desc=folder does not exists)
5	%endTestcase;

5 Bloc de code

SASUNIT Macro Calls

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.

Informations de Copyright : Copyright 2010-2023 HMS Analytical Software GmbH, http://www.analytical-software.de This file is part of SASUnit, the Unit testing framework for SAS(R) programs. For copyright information and terms of usage under the GNU Lesser General Public License see included file README.md or https://github.com/HMS-Analytical-Software/SASUnit/wiki/readme/.

Retour à la liste