From 718390cfba2c8a4508ac2709f99279aa60151ddd Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Mon, 22 Apr 2019 22:55:55 -0500
Subject: [PATCH] Add tests confirming that input value fields still writable

Having a constant INP link doesn't break that.
---
 modules/database/test/std/rec/regressTest.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/modules/database/test/std/rec/regressTest.c b/modules/database/test/std/rec/regressTest.c
index b3e5a4874..32834061c 100644
--- a/modules/database/test/std/rec/regressTest.c
+++ b/modules/database/test/std/rec/regressTest.c
@@ -150,9 +150,11 @@ testSpecialLinks(void)
     testdbPutFieldOk("cout.INPA", DBF_STRING, "10");
     testdbGetFieldEqual("cout.A", DBF_LONG, 10);
     testdbGetFieldEqual("cout.INAV", DBF_LONG, calcoutINAV_CON);
+    testdbPutFieldOk("cout.A", DBF_LONG, 15);
     testdbPutFieldOk("cout.INPB", DBF_STRING, "{\"const\":20}");
     testdbGetFieldEqual("cout.B", DBF_LONG, 20);
     testdbGetFieldEqual("cout.INBV", DBF_LONG, calcoutINAV_CON);
+    testdbPutFieldOk("cout.B", DBF_LONG, 25);
     testdbPutFieldOk("cout.INPC", DBF_STRING, "cout.A");
     testdbGetFieldEqual("cout.C", DBF_LONG, 99);
     testdbGetFieldEqual("cout.INCV", DBF_LONG, calcoutINAV_LOC);
@@ -184,7 +186,7 @@ testSpecialLinks(void)
 
 MAIN(regressTest)
 {
-    testPlan(60);
+    testPlan(62);
     testArrayLength1();
     testHexConstantLinks();
     testLinkMS();