mirror of
https://github.com/sasjs/core.git
synced 2026-06-08 20:10:20 +00:00
feat: new mx_append2pgm macro
This commit is contained in:
4gl
@@ -0,0 +1,192 @@
|
||||
/**
|
||||
@file
|
||||
@brief Testing mx_append2pgm.sas macro
|
||||
|
||||
Be sure to run <code>%let mcTestAppLoc=/Public/temp/macrocore;</code> when
|
||||
running in Studio
|
||||
|
||||
<h4> SAS Macros </h4>
|
||||
@li mf_getplatform.sas
|
||||
@li mf_uid.sas
|
||||
@li mp_assert.sas
|
||||
@li mp_assertscope.sas
|
||||
@li ms_createfile.sas
|
||||
@li mv_createfile.sas
|
||||
@li mm_createstp.sas
|
||||
@li mx_append2pgm.sas
|
||||
@li mx_getcode.sas
|
||||
|
||||
**/
|
||||
|
||||
/**
|
||||
* Test 1 - Append content to an existing program and verify combined output
|
||||
* Also checking for scope leakage
|
||||
*/
|
||||
|
||||
/* create a unique name for the program */
|
||||
%let item=test_%mf_uid();
|
||||
|
||||
/* create the initial program with some code */
|
||||
filename initpgm temp;
|
||||
data _null_;
|
||||
file initpgm;
|
||||
put '%put ORIGINAL LINE;';
|
||||
run;
|
||||
|
||||
%macro setup_pgm();
|
||||
%let platform=%mf_getplatform();
|
||||
%if &platform=SASJS %then %do;
|
||||
%ms_createfile(&mcTestAppLoc/temp/&item..sas, inref=initpgm)
|
||||
%end;
|
||||
%else %if &platform=SASVIYA %then %do;
|
||||
%mv_createfile(path=&mcTestAppLoc/temp, name=&item..sas, inref=initpgm)
|
||||
%end;
|
||||
%else %do;
|
||||
%let work=%sysfunc(pathname(work));
|
||||
data _null_;
|
||||
file "&work/&item..sas";
|
||||
infile initpgm;
|
||||
input;
|
||||
put _infile_;
|
||||
run;
|
||||
%mm_createstp(stpname=&item
|
||||
,filename=&item..sas
|
||||
,directory=&work
|
||||
,tree=&mcTestAppLoc/temp
|
||||
,stptype=2
|
||||
,minify=NO
|
||||
)
|
||||
%end;
|
||||
%mend setup_pgm;
|
||||
%setup_pgm()
|
||||
|
||||
/* create the content to append */
|
||||
filename toappnd temp;
|
||||
data _null_;
|
||||
file toappnd;
|
||||
put '%put APPENDED LINE;';
|
||||
run;
|
||||
|
||||
/* run the macro under test with scope checks */
|
||||
%mp_assertscope(SNAPSHOT)
|
||||
%mx_append2pgm(&mcTestAppLoc/temp/&item, inref=toappnd)
|
||||
%mp_assertscope(COMPARE,
|
||||
desc=Test 1: mx_append2pgm does not leak scope,
|
||||
outds=work.test_results,
|
||||
ignorelist=MC2_JADP1LEN MC2_JADP2LEN MC2_JADPNUM MC2_JADVLEN MC2_JADP3LEN
|
||||
)
|
||||
|
||||
%mp_assert(
|
||||
iftrue=(&syscc=0),
|
||||
desc=Test 1: No errors after appending content to program,
|
||||
outds=work.test_results
|
||||
)
|
||||
|
||||
/**
|
||||
* Test 2 - Verify the appended content is present
|
||||
* Fetch the modified program and check both original and appended lines exist
|
||||
*/
|
||||
|
||||
%let test2_orig=0;
|
||||
%let test2_appd=0;
|
||||
|
||||
%macro verify_test2();
|
||||
%let platform=%mf_getplatform();
|
||||
%if &platform=SASVIYA %then %do;
|
||||
filename verifrf filesrvc folderpath="&mcTestAppLoc/temp";
|
||||
data _null_;
|
||||
infile verifrf("&item..sas") lrecl=32000;
|
||||
input;
|
||||
if index(_infile_,'ORIGINAL LINE') then call symputx('test2_orig','1');
|
||||
if index(_infile_,'APPENDED LINE') then call symputx('test2_appd','1');
|
||||
run;
|
||||
filename verifrf clear;
|
||||
%end;
|
||||
%else %do;
|
||||
%mx_getcode(&mcTestAppLoc/temp/&item, outref=verifrf)
|
||||
data _null_;
|
||||
infile verifrf lrecl=32000;
|
||||
input;
|
||||
if index(_infile_,'ORIGINAL LINE') then call symputx('test2_orig','1');
|
||||
if index(_infile_,'APPENDED LINE') then call symputx('test2_appd','1');
|
||||
run;
|
||||
%end;
|
||||
%mend verify_test2;
|
||||
%verify_test2()
|
||||
|
||||
%mp_assert(
|
||||
iftrue=(&test2_orig=1),
|
||||
desc=Test 2a: Original content is preserved after append,
|
||||
outds=work.test_results
|
||||
)
|
||||
|
||||
%mp_assert(
|
||||
iftrue=(&test2_appd=1),
|
||||
desc=Test 2b: Appended content is present in modified program,
|
||||
outds=work.test_results
|
||||
)
|
||||
|
||||
/**
|
||||
* Test 3 - Append multiple times to ensure repeated appends work
|
||||
*/
|
||||
filename toappd2 temp;
|
||||
data _null_;
|
||||
file toappd2;
|
||||
put '%put SECOND APPEND;';
|
||||
run;
|
||||
|
||||
%mp_assertscope(SNAPSHOT)
|
||||
%mx_append2pgm(&mcTestAppLoc/temp/&item, inref=toappd2)
|
||||
%mp_assertscope(COMPARE,
|
||||
desc=Test 3: mx_append2pgm does not leak scope on second call,
|
||||
outds=work.test_results
|
||||
)
|
||||
|
||||
/* verify all three pieces of content exist */
|
||||
%let test3_orig=0;
|
||||
%let test3_appd=0;
|
||||
%let test3_app2=0;
|
||||
|
||||
%macro verify_test3();
|
||||
%let platform=%mf_getplatform();
|
||||
%if &platform=SASVIYA %then %do;
|
||||
filename verifr2 filesrvc folderpath="&mcTestAppLoc/temp";
|
||||
data _null_;
|
||||
infile verifr2("&item..sas") lrecl=32000;
|
||||
input;
|
||||
if index(_infile_,'ORIGINAL LINE') then call symputx('test3_orig','1');
|
||||
if index(_infile_,'APPENDED LINE') then call symputx('test3_appd','1');
|
||||
if index(_infile_,'SECOND APPEND') then call symputx('test3_app2','1');
|
||||
run;
|
||||
filename verifr2 clear;
|
||||
%end;
|
||||
%else %do;
|
||||
%mx_getcode(&mcTestAppLoc/temp/&item, outref=verifr2)
|
||||
data _null_;
|
||||
infile verifr2 lrecl=32000;
|
||||
input;
|
||||
if index(_infile_,'ORIGINAL LINE') then call symputx('test3_orig','1');
|
||||
if index(_infile_,'APPENDED LINE') then call symputx('test3_appd','1');
|
||||
if index(_infile_,'SECOND APPEND') then call symputx('test3_app2','1');
|
||||
run;
|
||||
%end;
|
||||
%mend verify_test3;
|
||||
%verify_test3()
|
||||
|
||||
%mp_assert(
|
||||
iftrue=(&test3_orig=1),
|
||||
desc=Test 3a: Original content still present after second append,
|
||||
outds=work.test_results
|
||||
)
|
||||
|
||||
%mp_assert(
|
||||
iftrue=(&test3_appd=1),
|
||||
desc=Test 3b: First appended content still present after second append,
|
||||
outds=work.test_results
|
||||
)
|
||||
|
||||
%mp_assert(
|
||||
iftrue=(&test3_app2=1),
|
||||
desc=Test 3c: Second appended content is present,
|
||||
outds=work.test_results
|
||||
)
|
||||
Reference in New Issue
Block a user