From 146610b5a756d1ed1d6afc539276832241e5302b Mon Sep 17 00:00:00 2001
From: Allan <allan@4gl.io>
Date: Tue, 20 Jun 2023 00:19:27 +0100
Subject: [PATCH] chore(tests): fixing tests on mp_aligndecimal

---
 base/mp_assertcolvals.sas           | 6 +++---
 tests/base/mp_aligndecimal.test.sas | 6 ++++--
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/base/mp_assertcolvals.sas b/base/mp_assertcolvals.sas
index 129c39d..8dc36c9 100644
--- a/base/mp_assertcolvals.sas
+++ b/base/mp_assertcolvals.sas
@@ -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';
diff --git a/tests/base/mp_aligndecimal.test.sas b/tests/base/mp_aligndecimal.test.sas
index e8e4b06..721f340 100644
--- a/tests/base/mp_aligndecimal.test.sas
+++ b/tests/base/mp_aligndecimal.test.sas
@@ -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,