mirror of
https://github.com/sasjs/core.git
synced 2026-01-08 18:00:06 +00:00
feat: creating new mx_ suite of macros!
also adding new mx_getcode macro
This commit is contained in:
31
tests/base/mp_resetoption.test.sas
Normal file
31
tests/base/mp_resetoption.test.sas
Normal 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
|
||||
)
|
||||
Reference in New Issue
Block a user