feat: mp_gitlog and associated test/docs

tests/base/mf_readfile.test.sas

@@ -4,7 +4,9 @@
 
   <h4> SAS Macros </h4>
   @li mf_readfile.sas
+  @li mf_writefile.sas
   @li mp_assert.sas
+  @li mp_assertscope.sas
 
 **/
 
@@ -22,8 +24,17 @@ run;
   desc=Check code ran without errors,
   outds=work.test_results
 )
+
+/* test for scope leakage */
+%global result;
+%mp_assertscope(SNAPSHOT)
+%put %mf_readfile(&f);
+%mp_assertscope(COMPARE)
+
+/* test result */
 %mp_assert(
-  iftrue=(&f=some content),
+  iftrue=(%mf_readfile(&f)=some content),
   desc=Checking first line was ingested successfully,
   outds=work.test_results
 )
+

tests/base/mp_gitlog.test.sas

@@ -0,0 +1,32 @@
+/**
+  @file
+  @brief Testing mp_gitlog.sas macro
+
+  <h4> SAS Macros </h4>
+  @li mf_nobs.sas
+  @li mp_gitlog.sas
+  @li mp_assert.sas
+  @li mp_assertscope.sas
+
+**/
+
+/* grab core repo */
+%let gitdir=%sysfunc(pathname(work))/core;
+%let repo=https://github.com/sasjs/core;
+%put source clone rc=%sysfunc(GITFN_CLONE(&repo,&gitdir));
+
+%mp_assertscope(SNAPSHOT)
+%mp_gitlog(&gitdir,outds=work.test1)
+%mp_assertscope(COMPARE)
+
+%mp_assert(
+  iftrue=(&syscc=0),
+  desc=Regular test works,
+  outds=work.test_results
+)
+
+%mp_assert(
+  iftrue=(%mf_nobs(work.test1)>1000),
+  desc=output has gt 1000 rows,
+  outds=work.test_results
+)