mirror of
https://github.com/sasjs/core.git
synced 2026-06-08 20:10:20 +00:00
4gl
70 lines
2.1 KiB
SAS
70 lines
2.1 KiB
SAS
/**
|
|
@file
|
|
@brief Testing mfv_getcaslib macro function
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mfv_getcaslib.sas
|
|
@li mp_assert.sas
|
|
@li mp_assertscope.sas
|
|
|
|
**/
|
|
|
|
options mprint;
|
|
|
|
/* ------------------------------------------------------------------------ */
|
|
/* Setup: start a CAS session and assign caslibs */
|
|
/* ------------------------------------------------------------------------ */
|
|
cas mysess;
|
|
caslib _all_ assign;
|
|
|
|
%let testcaslib=Public;
|
|
|
|
libname castest cas caslib=&testcaslib;
|
|
|
|
/* ------------------------------------------------------------------------ */
|
|
%put TEST 1 - returns the caslib name for a valid CAS libref;
|
|
/* ------------------------------------------------------------------------ */
|
|
%mp_assert(
|
|
iftrue=(%mfv_getcaslib(castest)=%upcase(&testcaslib)),
|
|
desc=Check correct caslib name returned for a valid CAS libref
|
|
)
|
|
|
|
|
|
/* ------------------------------------------------------------------------ */
|
|
%put TEST 2 - returns empty for a non-CAS libref (WORK);
|
|
/* ------------------------------------------------------------------------ */
|
|
%mp_assert(
|
|
iftrue=(%mfv_getcaslib(WORK)=),
|
|
desc=Check empty string returned for a non-CAS libref
|
|
)
|
|
|
|
|
|
/* ------------------------------------------------------------------------ */
|
|
%put TEST 3 - returns empty for a libref that does not exist;
|
|
/* ------------------------------------------------------------------------ */
|
|
%mp_assert(
|
|
iftrue=(%mfv_getcaslib(DOESNOTEXIST)=),
|
|
desc=Check empty string returned for a non-existent libref
|
|
)
|
|
|
|
|
|
/* ------------------------------------------------------------------------ */
|
|
%put TEST 5 - no scope leakage into global macro variables;
|
|
/* ------------------------------------------------------------------------ */
|
|
%mp_assertscope(SNAPSHOT)
|
|
|
|
%let _rc=%mfv_getcaslib(castest);
|
|
|
|
%mp_assertscope(COMPARE,
|
|
desc=Check mfv_getcaslib does not leak macro variables into GLOBAL scope,
|
|
ignorelist=_RC
|
|
)
|
|
|
|
|
|
/* ------------------------------------------------------------------------ */
|
|
/* Teardown */
|
|
/* ------------------------------------------------------------------------ */
|
|
cas mysess terminate;
|
|
|
|
|