From 5faaa4a4cdcda0fb99bc91af7034ab7d6441bd68 Mon Sep 17 00:00:00 2001
From: munja <allnbwe@gmail.com>
Date: Wed, 15 Dec 2021 12:15:36 +0000
Subject: [PATCH] fix: test for mp_storediffs

---
 tests/crossplatform/mp_storediffs.test.sas | 64 ++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 tests/crossplatform/mp_storediffs.test.sas

diff --git a/tests/crossplatform/mp_storediffs.test.sas b/tests/crossplatform/mp_storediffs.test.sas
new file mode 100644
index 0000000..bfd3cb8
--- /dev/null
+++ b/tests/crossplatform/mp_storediffs.test.sas
@@ -0,0 +1,64 @@
+/**
+  @file
+  @brief Testing mp_storediffs macro
+
+  <h4> SAS Macros </h4>
+  @li mp_storediffs.sas
+  @li mp_assert.sas
+  @li mp_assertcolvals.sas
+  @li mp_assertdsobs.sas
+
+**/
+
+/* make some data */
+
+data work.orig work.deleted work.changed work.appended;
+  set sashelp.class;
+  if _n_=1 then do;
+    output work.orig work.deleted;
+  end;
+  else if _n_=2 then do;
+    output work.orig;
+    age=99;
+    output work.changed;
+  end;
+  else do;
+    name='Newbie';
+    output work.appended;
+    stop;
+  end;
+run;
+
+%mp_storediffs(sashelp.class,work.orig,NAME
+  ,delds=work.deleted
+  ,modds=work.changed
+  ,appds=work.appended
+  ,outds=work.final
+  ,mdebug=1
+)
+
+%mp_assert(
+  iftrue=(
+    %str(&syscc)=%str(0)
+  ),
+  desc=ensure no errors,
+  outds=work.test_results
+)
+
+%mp_assertdsobs(work.final,
+  desc=Has 15 records,
+  test=EQUALS 15,
+  outds=work.test_results
+)
+
+data work.check;
+  length val $10;
+  do val='C','N';
+    output;
+  end;
+run;
+%mp_assertcolvals(work.final.tgtvar_type,
+  checkvals=work.check.val,
+  desc=All values have a match,
+  test=ALLVALS
+)
\ No newline at end of file