From c866609f24ecd7dfd1d3f8e1141c79c6c2e57a36 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Wed, 17 Apr 2019 23:16:29 -0500
Subject: [PATCH] Add regression tests for Async Soft Channel input links

Caused by the previous fix, but this is repairable.
---
 .../database/test/std/rec/regressCalcout.db   | 21 +++++++++++++++++++
 modules/database/test/std/rec/regressTest.c   | 19 ++++++++++++++++-
 2 files changed, 39 insertions(+), 1 deletion(-)

diff --git a/modules/database/test/std/rec/regressCalcout.db b/modules/database/test/std/rec/regressCalcout.db
index 4c1ed1933..8896131c4 100644
--- a/modules/database/test/std/rec/regressCalcout.db
+++ b/modules/database/test/std/rec/regressCalcout.db
@@ -4,3 +4,24 @@ record(calcout, "cout") {
     field(INPC, "99")
     field(INPD, "99")
 }
+record(ai, "ain") {
+    field(DTYP, "Async Soft Channel")
+}
+record(bi, "bin") {
+    field(DTYP, "Async Soft Channel")
+}
+record(int64in, "iin") {
+    field(DTYP, "Async Soft Channel")
+}
+record(longin, "lin") {
+    field(DTYP, "Async Soft Channel")
+}
+record(mbbi, "min") {
+    field(DTYP, "Async Soft Channel")
+}
+record(mbbiDirect, "din") {
+    field(DTYP, "Async Soft Channel")
+}
+record(stringin, "sin") {
+    field(DTYP, "Async Soft Channel")
+}
diff --git a/modules/database/test/std/rec/regressTest.c b/modules/database/test/std/rec/regressTest.c
index bd8fadbf0..b3e5a4874 100644
--- a/modules/database/test/std/rec/regressTest.c
+++ b/modules/database/test/std/rec/regressTest.c
@@ -160,6 +160,23 @@ testSpecialLinks(void)
     testdbGetFieldEqual("cout.D", DBF_LONG, 99);
     testdbGetFieldEqual("cout.INDV", DBF_LONG, calcoutINAV_EXT_NC);
 
+    eltc(0);
+    testdbPutFieldOk("ain.INP", DBF_STRING, "cout");
+    testdbPutFieldFail(S_db_badField, "ain.INP", DBF_STRING, "{\"const\":1}");
+    testdbPutFieldOk("bin.INP", DBF_STRING, "cout");
+    testdbPutFieldFail(S_db_badField, "bin.INP", DBF_STRING, "{\"const\":1}");
+    testdbPutFieldOk("iin.INP", DBF_STRING, "cout");
+    testdbPutFieldFail(S_db_badField, "iin.INP", DBF_STRING, "{\"const\":1}");
+    testdbPutFieldOk("lin.INP", DBF_STRING, "cout");
+    testdbPutFieldFail(S_db_badField, "lin.INP", DBF_STRING, "{\"const\":1}");
+    testdbPutFieldOk("min.INP", DBF_STRING, "cout");
+    testdbPutFieldFail(S_db_badField, "min.INP", DBF_STRING, "{\"const\":1}");
+    testdbPutFieldOk("din.INP", DBF_STRING, "cout");
+    testdbPutFieldFail(S_db_badField, "din.INP", DBF_STRING, "{\"const\":1}");
+    testdbPutFieldOk("sin.INP", DBF_STRING, "cout");
+    testdbPutFieldFail(S_db_badField, "sin.INP", DBF_STRING, "{\"const\":1}");
+    eltc(1);
+
     testIocShutdownOk();
     testdbCleanup();
 }
@@ -167,7 +184,7 @@ testSpecialLinks(void)
 
 MAIN(regressTest)
 {
-    testPlan(46);
+    testPlan(60);
     testArrayLength1();
     testHexConstantLinks();
     testLinkMS();