sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2025-12-10 22:14:35 +00:00
Code Issues Projects Releases Wiki Activity

fix: tests for ms_creategroup

Browse Source
This commit is contained in:
Allan Bowe
2022-05-17 14:56:11 +00:00
committed by GitHub
parent ed11d44fe8
commit 3fa639ebf7
2 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
server/ms_creategroup.sas
View File

@@ -117,6 +117,9 @@ libname &libref JSON fileref=&fref2;
data &outds; data &outds;
set &libref..root; set &libref..root;
drop ordinal_root; drop ordinal_root;
%if &mdebug=1 %then %do;
putlog _all_;
%end;
run; run;
@@ -129,11 +132,18 @@ run;
/* reset options */ /* reset options */
options &optval; options &optval;
%if &mdebug=1 %then %do; %if &mdebug=0 %then %do;
filename &fref0 clear; filename &fref0 clear;
filename &fref1 clear; filename &fref1 clear;
filename &fref2 clear; filename &fref2 clear;
libname &libref clear; libname &libref clear;
%end; %end;
%else %do;
data _null_;
infile &fref2;
input;
putlog _infile_;
run;
%end;
%mend ms_creategroup; %mend ms_creategroup;

4
tests/serveronly/ms_creategroup.test.sas
View File

@@ -22,7 +22,7 @@
%let id=0; %let id=0;
data _null_; data _null_;
set work.test1; set work.test1;
call symputx('id',id); call symputx('id',groupid);
run; run;
%mp_assert( %mp_assert(
iftrue=(&id>0), iftrue=(&id>0),
@@ -36,7 +36,7 @@ run;
data _null_; data _null_;
set work.test2; set work.test2;
where name="&group"; where name="&group";
call symputx('checkid',id); call symputx('checkid',groupid);
run; run;
%mp_assert( %mp_assert(
iftrue=(&checkid=&id), iftrue=(&checkid=&id),