From 0f31e35b87b42c17a80e712697969b3ef4079924 Mon Sep 17 00:00:00 2001
From: Michael Davidsaver <mdavidsaver@gmail.com>
Date: Thu, 6 Apr 2017 20:25:55 -0400
Subject: [PATCH] db/test: add dbPutGetTest

---
 src/ioc/db/test/Makefile        |  9 +++-
 src/ioc/db/test/dbPutGetTest.c  | 79 +++++++++++++++++++++++++++++++++
 src/ioc/db/test/dbPutGetTest.db | 35 +++++++++++++++
 3 files changed, 122 insertions(+), 1 deletion(-)
 create mode 100644 src/ioc/db/test/dbPutGetTest.c
 create mode 100644 src/ioc/db/test/dbPutGetTest.db

diff --git a/src/ioc/db/test/Makefile b/src/ioc/db/test/Makefile
index 3d7b340ed..215545f4a 100644
--- a/src/ioc/db/test/Makefile
+++ b/src/ioc/db/test/Makefile
@@ -131,7 +131,14 @@ recGblCheckDeadbandTest_SRCS += dbTestIoc_registerRecordDeviceDriver.cpp
 testHarness_SRCS += recGblCheckDeadbandTest.c
 TESTS += recGblCheckDeadbandTest
 
-# The testHarness runs all the test programs in a known working order.
+TESTPROD_HOST += testPutGetTest
+testPutGetTest_SRCS += dbPutGetTest.c
+testPutGetTest_SRCS += dbTestIoc_registerRecordDeviceDriver.cpp
+testHarness_SRCS += dbPutGetTest.db
+TESTFILES += ../dbPutGetTest.db
+TESTS += testPutGetTest
+
+# This runs all the test programs in a known working order:
 testHarness_SRCS += epicsRunDbTests.c
 
 dbTestHarness_SRCS += $(testHarness_SRCS)
diff --git a/src/ioc/db/test/dbPutGetTest.c b/src/ioc/db/test/dbPutGetTest.c
new file mode 100644
index 000000000..5c3bbf045
--- /dev/null
+++ b/src/ioc/db/test/dbPutGetTest.c
@@ -0,0 +1,79 @@
+
+#include <string.h>
+
+#include <dbAccess.h>
+#include <dbStaticLib.h>
+#include <dbStaticPvt.h>
+#include <dbUnitTest.h>
+#include <testMain.h>
+
+static
+void testdbGetStringEqual(const char *pv, const char *expected)
+{
+    const char *actual;
+    int ok;
+    DBENTRY ent;
+
+    dbInitEntry(pdbbase, &ent);
+
+    if(dbFindRecord(&ent, pv)) {
+        testFail("Failed to find record '%s'", pv);
+        return;
+    }
+
+    actual = dbGetString(&ent);
+    ok = (!actual && !expected)
+            || (actual && expected && strcmp(actual, expected)==0);
+
+    testOk(ok, "dbGetString(\"%s\") -> \"%s\" == \"%s\"", pv, actual, expected);
+
+    dbFinishEntry(&ent);
+}
+
+static
+void testGetString(void)
+{
+    testDiag("testGetString()");
+
+    testdbGetStringEqual("recempty.DTYP", "Soft Channel");
+    testdbGetStringEqual("recempty.DESC", "");
+    testdbGetStringEqual("recempty.PHAS", "0");
+    testdbGetStringEqual("recempty.TSE" , "0");
+    testdbGetStringEqual("recempty.DISA", "0");
+    testdbGetStringEqual("recempty.DISV", "0");
+
+    testdbGetStringEqual("recoverwrite.DTYP", "Soft Channel");
+    testdbGetStringEqual("recoverwrite.DESC", "");
+    testdbGetStringEqual("recoverwrite.PHAS", "0");
+    testdbGetStringEqual("recoverwrite.TSE" , "0");
+    testdbGetStringEqual("recoverwrite.DISA", "0");
+    testdbGetStringEqual("recoverwrite.DISV", "0");
+}
+
+static
+void testStringMax(void)
+{
+    testDiag("testStringMax()");
+
+    testdbGetStringEqual("recmax.DISA", "-1");
+}
+
+void dbTestIoc_registerRecordDeviceDriver(struct dbBase *);
+
+MAIN(dbPutGet)
+{
+    testPlan(13);
+    testdbPrepare();
+
+    testdbReadDatabase("dbTestIoc.dbd", NULL, NULL);
+    dbTestIoc_registerRecordDeviceDriver(pdbbase);
+    testdbReadDatabase("dbPutGetTest.db", NULL, NULL);
+
+    testGetString();
+
+    testStringMax();
+
+    testdbCleanup();
+
+    return testDone();
+}
diff --git a/src/ioc/db/test/dbPutGetTest.db b/src/ioc/db/test/dbPutGetTest.db
new file mode 100644
index 000000000..096dbe2e4
--- /dev/null
+++ b/src/ioc/db/test/dbPutGetTest.db
@@ -0,0 +1,35 @@
+
+record(x, "recempty") {
+# empty string is the same "0" for numeric fields
+    field(DTYP, "")
+    field(DESC, "")
+    field(PHAS, "")
+    field(TSE , "")
+    field(DISA, "")
+    field(DISV, "")
+}
+
+record(x, "recoverwrite") {
+# first with non-default values
+#    field(DTYP, "Scan I/O")
+    field(DESC, "hello")
+    field(PHAS, "2")
+    field(TSE , "5")
+    field(DISA, "6")
+    field(DISV, "7")
+}
+
+record(x, "recoverwrite") {
+# now restore default values
+    field(DTYP, "")
+    field(DESC, "")
+    field(PHAS, "")
+    field(TSE , "")
+    field(TSEL, "")
+    field(DISA, "")
+    field(DISV, "")
+}
+
+record(x, "recmax") {
+    field(DISA, "0xffffffff")
+}