Test Unitaire des macros SASjs mv_webout et mp_assert

Ce programme effectue une série de tests unitaires :
1. Simulation d'une requête web entrante (FETCH) via des macro-variables et vérification de la table résultante via `mp_assertdsobs`.
2. Génération d'un flux JSON complexe (Tableaux et Objets) vers un fichier physique temporaire via `mv_webout`.
3. Relecture du fichier JSON généré à l'aide du moteur `LIBNAME JSON` pour valider l'intégrité et la structure des données produites.

Analyse des données

Type : CREATION_INTERNE

Toutes les données sont simulées au sein du script (étape DATA, macro-variables) ou générées par les macros testées.

1 Bloc de code

DATA STEP

Explication :
Initialisation de l'environnement de test : définition de macro-variables simulant des données reçues d'une requête web (format SASjs).

Copié !

1	DATA _null_;
2	call symputx('sasjs1data','area:$char4.'!!'0d0a'x!!'Adak');
3	call symputx('sasjs_tables','areas');
4	RUN;
5	%put &=sasjs1data;

2 Bloc de code

MACRO CALL Data

Explication :
Exécution de la macro de récupération (FETCH) et assertion pour valider que la table 'work.areas' a été créée avec exactement une observation.

Copié !

1	%mv_webout(FETCH)
2
3	%mp_assertdsobs(work.areas,
4	desc=Test INPUT TABLE has 1 row,
5	test=EQUALS 1,
6	outds=work.test_results
7	)

3 Bloc de code

MACRO CALL Data

Explication :
Test de génération de sortie JSON : création de données fictives et écriture dans un fichier temporaire via les commandes OPEN, ARR (Array), OBJ (Object) et CLOSE de mv_webout.

Copié !

1	%let fref=%mf_getuniquefileref();
2	%global _metaperson;
3	DATA some datasets;
4	x=1;
5	RUN;
6	%mv_webout(OPEN,fref=&fref,stream=N)
7	%mv_webout(ARR,some,fref=&fref,stream=N)
8	%mv_webout(OBJ,datasets,fref=&fref,stream=N)
9	%mv_webout(CLOSE,fref=&fref,stream=N)

4 Bloc de code

DATA STEP

Explication :
Validation du fichier JSON produit : affichage du contenu brut dans la log, parsing via le moteur LIBNAME JSON, et assertion finale pour comparer les valeurs récupérées.

Copié !

1	DATA _null_;
2	INFILE &fref;
3	INPUT;
4	putlog _infile_;
5	RUN;
6
7	LIBNAME test JSON (&fref);
8	DATA root;
9	SET test.root;
10	call symputx('checkval',sysvlong);
11	RUN;
12	DATA alldata;
13	SET test.alldata;
14	RUN;
15
16	%mp_assert(
17	iftrue=(%str(&checkval)=%str(&sysvlong)),
18	desc=Check IF the sysvlong value was created
19	)

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