mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 14:04:36 +00:00
fix: tests for ms_creategroup
This commit is contained in:
@@ -117,6 +117,9 @@ libname &libref JSON fileref=&fref2;
|
||||
data &outds;
|
||||
set &libref..root;
|
||||
drop ordinal_root;
|
||||
%if &mdebug=1 %then %do;
|
||||
putlog _all_;
|
||||
%end;
|
||||
run;
|
||||
|
||||
|
||||
@@ -129,11 +132,18 @@ run;
|
||||
/* reset options */
|
||||
options &optval;
|
||||
|
||||
%if &mdebug=1 %then %do;
|
||||
%if &mdebug=0 %then %do;
|
||||
filename &fref0 clear;
|
||||
filename &fref1 clear;
|
||||
filename &fref2 clear;
|
||||
libname &libref clear;
|
||||
%end;
|
||||
%else %do;
|
||||
data _null_;
|
||||
infile &fref2;
|
||||
input;
|
||||
putlog _infile_;
|
||||
run;
|
||||
%end;
|
||||
|
||||
%mend ms_creategroup;
|
||||
|
||||
@@ -22,7 +22,7 @@
|
||||
%let id=0;
|
||||
data _null_;
|
||||
set work.test1;
|
||||
call symputx('id',id);
|
||||
call symputx('id',groupid);
|
||||
run;
|
||||
%mp_assert(
|
||||
iftrue=(&id>0),
|
||||
@@ -36,7 +36,7 @@ run;
|
||||
data _null_;
|
||||
set work.test2;
|
||||
where name="&group";
|
||||
call symputx('checkid',id);
|
||||
call symputx('checkid',groupid);
|
||||
run;
|
||||
%mp_assert(
|
||||
iftrue=(&checkid=&id),
|
||||
|
||||
Reference in New Issue
Block a user