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

feat: adding mf_getfmtlist() and mf_getfmtname() macros and associated tests. Also added &sasjswork as a global macro variable in mp_init().

Browse Source
This commit is contained in:
munja
2021-12-15 21:05:12 +00:00
parent fa5d9ef744
commit 724cd72876
5 changed files with 178 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
tests/crossplatform/mf_getfmtlist.test.sas Normal file
View File

@@ -0,0 +1,33 @@
/**
@file
@brief Testing mf_getfmtlist macro
<h4> SAS Macros </h4>
@li mf_getfmtlist.sas
@li mp_assert.sas
**/
%mp_assert(
iftrue=(
"%mf_getfmtlist(sashelp.prdsale)"="DOLLAR $CHAR W MONNAME"
),
desc=Checking basic numeric,
outds=work.test_results
)
%mp_assert(
iftrue=(
"%mf_getfmtlist(sashelp.shoes)"="$CHAR BEST DOLLAR"
),
desc=Checking basic char,
outds=work.test_results
)
%mp_assert(
iftrue=(
"%mf_getfmtlist(sashelp.demographics)"="BEST Z $CHAR COMMA PERCENTN"
),
desc=Checking longer numeric,
outds=work.test_results
)

33
tests/crossplatform/mf_getfmtname.test.sas Normal file
View File

@@ -0,0 +1,33 @@
/**
@file
@brief Testing mf_getfmtname macro
<h4> SAS Macros </h4>
@li mf_getfmtname.sas
@li mp_assert.sas
**/
%mp_assert(
iftrue=(
"%mf_getfmtname(8.)"="W"
),
desc=Checking basic numeric,
outds=work.test_results
)
%mp_assert(
iftrue=(
"%mf_getfmtname($4.)"="$CHAR"
),
desc=Checking basic char,
outds=work.test_results
)
%mp_assert(
iftrue=(
"%mf_getfmtname(comma14.10)"="COMMA"
),
desc=Checking longer numeric,
outds=work.test_results
)