sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-18 14:00:05 +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 result=-1;
%let orig=-1; %let orig=-1;
proc sql noprint; proc sql noprint;
select count(*) into: result select count(*) into: result trimmed
from &lib..&ds from &lib..&ds
where &col not in ( where &col not in (
select &ccol from &clib..&cds select &ccol from &clib..&cds
); );
select count(*) into: orig from &lib..&ds; select count(*) into: orig trimmed from &lib..&ds;
quit; quit;
%local notfound tmp1 tmp2; %local notfound tmp1 tmp2;
@@ -146,7 +146,7 @@
length test_description $256 test_result $4 test_comments $256; length test_description $256 test_result $4 test_comments $256;
test_description=symget('desc'); test_description=symget('desc');
test_result='FAIL'; 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'); !!"not in &clib..&cds..&ccol.. First 10 vals:"!!symget('notfound');
%if &test=ANYVAL %then %do; %if &test=ANYVAL %then %do;
if &result < &orig then test_result='PASS'; if &result < &orig then test_result='PASS';

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

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