feat: castabload macro

2026-06-08 20:10:20 +00:00 · 2026-04-27 14:11:09 +01:00
parent 3a54b9c796
commit 08f2d0d53f
2 changed files with 250 additions and 0 deletions
@@ -0,0 +1,148 @@
+/**
+  @file
+  @brief Testing mv_castabload macro
+
+  <h4> SAS Macros </h4>
+  @li mf_uid.sas
+  @li mp_assert.sas
+  @li mp_assertscope.sas
+  @li mv_castabload.sas
+  @li mv_createfile.sas
+
+**/
+
+options mprint;
+
+/* ------------------------------------------------------------------------ */
+/* Setup: start a CAS session and stage a source file in the Public caslib  */
+/* ------------------------------------------------------------------------ */
+cas mysess;
+caslib _all_ assign;
+
+%let testcaslib = Public;   /* change this if Public isn't available */
+proc cas;
+  table.caslibInfo result=r / ;
+  found = 0;
+  do row over r.CASLibInfo;
+    if upcase(row.Name) = upcase("&testcaslib") then found = 1;
+  end;
+  if found = 0 then do;
+    print "ERROR: caslib &testcaslib not available";
+    exit;
+  end;
+quit;
+%put NOTE: Using testcaslib=&testcaslib;
+
+%let tab1=T%mf_uid();
+%let tab2=T%mf_uid();
+%let tab3=T%mf_uid();
+
+/* Create a SASHDAT source file in the Public caslib from SASHELP.BASEBALL
+    so that subsequent LOAD operations have something real to pick up.      */
+proc casutil;
+  load data=sashelp.baseball outcaslib="&testcaslib" casout="&tab1" replace;
+  save casdata="&tab1" incaslib="&testcaslib"
+    casout="&tab1..sashdat" outcaslib="&testcaslib" replace;
+  droptable casdata="&tab1" incaslib="&testcaslib" quiet;
+quit;
+
+/* And a second hdat, with a name different from the table name, so that we
+  can exercise the explicit srcfile= path. */
+proc casutil;
+  load data=sashelp.cars outcaslib="&testcaslib" casout="&tab2" replace;
+  save casdata="&tab2" incaslib="&testcaslib"
+    casout="src_&tab2..sashdat" outcaslib="&testcaslib" replace;
+  droptable casdata="&tab2" incaslib="&testcaslib" quiet;
+quit;
+
+
+/* ------------------------------------------------------------------------ */
+%put TEST 1 - missing required parameters returns without setting RC to 0/1;
+/* ------------------------------------------------------------------------ */
+%let MV_CASTABLOAD_RC=;
+%mv_castabload(caslib=,table=,srcfile=)
+
+%mp_assert(
+  iftrue=(&MV_CASTABLOAD_RC=3),
+  desc=Check RC=3 (initial/failure value) when required params are missing
+)
+
+
+/* ------------------------------------------------------------------------ */
+%put TEST 2 - load a table that does not yet exist (default srcfile=table.hdat);
+/* ------------------------------------------------------------------------ */
+%mv_castabload(caslib=&testcaslib,table=&tab1,mdebug=1)
+
+%mp_assert(
+  iftrue=(&MV_CASTABLOAD_RC=1),
+  desc=Check RC=1 when table is loaded and promoted for the first time
+)
+
+
+/* ------------------------------------------------------------------------ */
+%put TEST 3 - calling again for the same table should be a no-op (RC=0);
+/*              also verify no scope leakage of macro variables              */
+/* ------------------------------------------------------------------------ */
+%mp_assertscope(SNAPSHOT)
+
+%mv_castabload(caslib=&testcaslib,table=&tab1,mdebug=1)
+
+%mp_assertscope(COMPARE,
+  desc=Check mv_castabload does not leak macro variables into GLOBAL scope,
+  ignorelist=MV_CASTABLOAD_RC
+)
+
+%mp_assert(
+  iftrue=(&MV_CASTABLOAD_RC=0),
+  desc=Check RC=0 when table is already in-memory (skip load)
+)
+
+
+/* ------------------------------------------------------------------------ */
+%put TEST 4 - explicit srcfile= where file name differs from table name;
+/* ------------------------------------------------------------------------ */
+%mv_castabload(
+  caslib=&testcaslib,
+  table=&tab2,
+  srcfile=src_&tab2..sashdat,
+  mdebug=1
+)
+
+%mp_assert(
+  iftrue=(&MV_CASTABLOAD_RC=1),
+  desc=Check RC=1 when loading with explicit srcfile= parameter
+)
+
+
+/* ------------------------------------------------------------------------ */
+%put TEST 5 - load failure when srcfile does not exist in the caslib;
+/* ------------------------------------------------------------------------ */
+%mv_castabload(
+  caslib=&testcaslib,
+  table=&tab3,
+  srcfile=doesnotexist_%mf_uid..sashdat,
+  mdebug=1
+)
+
+%mp_assert(
+  iftrue=(&MV_CASTABLOAD_RC=3),
+  desc=Check RC=3 when source file cannot be found / load fails
+)
+
+/* reset so that a downstream failure RC does not break testterm */
+%let syscc=0;
+
+
+/* ------------------------------------------------------------------------ */
+/* Teardown: drop promoted tables and remove source files                   */
+/* ------------------------------------------------------------------------ */
+proc casutil;
+  droptable casdata="&tab1" incaslib="&testcaslib" quiet;
+  droptable casdata="&tab2" incaslib="&testcaslib" quiet;
+  deletesource casdata="&tab1..sashdat" incaslib="&testcaslib" quiet;
+  deletesource casdata="src_&tab2..sashdat" incaslib="&testcaslib" quiet;
+quit;
+
+cas mysess terminate;
+
+%let syscc=0;