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

chore(tests): fixing tests on mp_aligndecimal

Browse Source
This commit is contained in:
Allan
2023-06-20 00:19:27 +01:00
parent 9887efcf60
commit 146610b5a7
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
base/mp_assertcolvals.sas
View File

@@ -109,12 +109,12 @@
%let result=-1;
%let orig=-1;
proc sql noprint;
select count(*) into: result
select count(*) into: result trimmed
from &lib..&ds
where &col not in (
select &ccol from &clib..&cds
);
select count(*) into: orig from &lib..&ds;
select count(*) into: orig trimmed from &lib..&ds;
quit;
%local notfound tmp1 tmp2;
@@ -146,7 +146,7 @@
length test_description $256 test_result $4 test_comments $256;
test_description=symget('desc');
test_result='FAIL';
test_comments="&sysmacroname: &lib..&ds..&col has &result values "
test_comments="&sysmacroname: &lib..&ds..&col has &result/&orig values "
!!"not in &clib..&cds..&ccol.. First 10 vals:"!!symget('notfound');
%if &test=ANYVAL %then %do;
if &result < &orig then test_result='PASS';

6
tests/base/mp_aligndecimal.test.sas
View File

@@ -6,6 +6,7 @@
<h4> SAS Macros </h4>
@li mp_aligndecimal.sas
@li mp_assertcolvals.sas
@li mp_assertscope.sas
**/
@@ -13,7 +14,7 @@
/* target values */
data work.checkds;
do checkval='1234.56',' 123.45',' 123.4 ',' 1.2 ',' 0';
do checkval=' 0.56',' 123.45',' 123.4 ',' 1.2 ',' 0';
output;
end;
run;
@@ -24,7 +25,6 @@ data work.rawds;
tgtvar=cats(checkval);
drop checkval;
run;
%mp_assertcolvals(work.rawds.tgtvar,
checkvals=work.checkds.checkval,
desc=No values match (ready to align),
@@ -32,10 +32,12 @@ run;
)
/* aligned values */
%mp_assertscope(SNAPSHOT)
data work.finalds;
set work.rawds;
%mp_aligndecimal(tgtvar,width=4)
run;
%mp_assertscope(COMPARE)
%mp_assertcolvals(work.finalds.tgtvar,
checkvals=work.checkds.checkval,