sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-17 13:30:05 +00:00
Code Issues Projects Releases Wiki Activity

fix: update resetoption and adding test

Browse Source
This commit is contained in:
Allan Bowe
2022-05-19 11:26:55 +00:00
committed by GitHub
parent 1cefc0e7ee
commit 86f6d06b85
2 changed files with 46 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
base/mp_resetoption.sas
View File

@@ -21,6 +21,7 @@ https://blogs.sas.com/content/sastraining/2012/08/14/jedi-sas-tricks-reset-sas-s
%macro mp_resetoption(option /* the option to reset */ %macro mp_resetoption(option /* the option to reset */
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
%if "%substr(&sysver,1,1)" ne "4" and "%substr(&sysver,1,1)" ne "5" %then %do;
data _null_; data _null_;
length code $1500; length code $1500;
startup=getoption("&option",'startupvalue'); startup=getoption("&option",'startupvalue');
@@ -31,5 +32,8 @@ data _null_;
call execute(code ); call execute(code );
end; end;
run; run;
%end;
%else %do;
%put &sysmacroname: reset option feature unavailable on &sysvlong;
%end;
%mend mp_resetoption; %mend mp_resetoption;

31
tests/crossplatform/mp_resetoption.test.sas Normal file
View File

@@ -0,0 +1,31 @@
/**
@file
@brief Testing mp_resetoption macro
<h4> SAS Macros </h4>
@li mp_assert.sas
@li mp_assertscope.sas
@li mp_resetoption.sas
**/
%let orig=%sysfunc(getoption(obs));
options obs=30;
%mp_assertscope(SNAPSHOT)
%mp_resetoption(OBS)
%mp_assertscope(COMPARE)
%let new=%sysfunc(ifc(
"%substr(&sysver,1,1)" ne "4" and "%substr(&sysver,1,1)" ne "5",
%sysfunc(getoption(obs)), /* test it worked */
&orig /* cannot test as option unavailable */
));
%mp_assert(
iftrue=(&new=&orig),
desc=Checking option was reset (if reset option available),
outds=work.test_results
)