From 3fa639ebf77ccaac3c25e0850bbc07568e1e1959 Mon Sep 17 00:00:00 2001
From: Allan Bowe <4420615+allanbowe@users.noreply.github.com>
Date: Tue, 17 May 2022 14:56:11 +0000
Subject: [PATCH] fix: tests for ms_creategroup

---
 server/ms_creategroup.sas                | 12 +++++++++++-
 tests/serveronly/ms_creategroup.test.sas |  4 ++--
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/server/ms_creategroup.sas b/server/ms_creategroup.sas
index 26bf6a5..a733ebc 100644
--- a/server/ms_creategroup.sas
+++ b/server/ms_creategroup.sas
@@ -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;
diff --git a/tests/serveronly/ms_creategroup.test.sas b/tests/serveronly/ms_creategroup.test.sas
index 0d9597c..cda4f7f 100644
--- a/tests/serveronly/ms_creategroup.test.sas
+++ b/tests/serveronly/ms_creategroup.test.sas
@@ -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),