From 693c1020f259c287cdf1a408f69238c9cc2211a8 Mon Sep 17 00:00:00 2001
From: Michael Davidsaver <mdavidsaver@gmail.com>
Date: Sun, 4 Nov 2018 22:04:39 -0800
Subject: [PATCH] Test if disconnected CA link alarms

---
 src/std/rec/test/Makefile      |  1 +
 src/std/rec/test/badCaLink.db  |  4 ++++
 src/std/rec/test/regressTest.c | 19 ++++++++++++++++++-
 3 files changed, 23 insertions(+), 1 deletion(-)
 create mode 100644 src/std/rec/test/badCaLink.db

diff --git a/src/std/rec/test/Makefile b/src/std/rec/test/Makefile
index 3fcc6bdeb..3a0a76153 100644
--- a/src/std/rec/test/Makefile
+++ b/src/std/rec/test/Makefile
@@ -114,6 +114,7 @@ TESTPROD_HOST += regressTest
 regressTest_SRCS += regressTest.c
 regressTest_SRCS += regressTest_registerRecordDeviceDriver.cpp
 TESTFILES += $(COMMON_DIR)/regressTest.dbd ../regressArray1.db ../regressHex.db ../regressLinkMS.db
+TESTFILES += ../badCaLink.db
 TESTS += regressTest
 
 TESTPROD_HOST += mbbioDirectTest
diff --git a/src/std/rec/test/badCaLink.db b/src/std/rec/test/badCaLink.db
new file mode 100644
index 000000000..c71bc9d2f
--- /dev/null
+++ b/src/std/rec/test/badCaLink.db
@@ -0,0 +1,4 @@
+record(ai, "ai:disconn") {
+    field(INP , "invalid CA")
+    field(UDF , "0")
+}
diff --git a/src/std/rec/test/regressTest.c b/src/std/rec/test/regressTest.c
index 15010cebf..0c68f7ffb 100644
--- a/src/std/rec/test/regressTest.c
+++ b/src/std/rec/test/regressTest.c
@@ -8,6 +8,7 @@
 #include <testMain.h>
 #include <dbAccess.h>
 #include <errlog.h>
+#include <alarm.h>
 
 #include <calcoutRecord.h>
 #include <waveformRecord.h>
@@ -123,12 +124,28 @@ void testLinkMS(void)
     testdbCleanup();
 }
 
+/* lp:1798855 disconnected CA link must alarm */
+static
+void testCADisconn(void)
+{
+    testDiag("In testCADisconn()");
+
+    startRegressTestIoc("badCaLink.db");
+
+    testdbPutFieldOk("ai:disconn.PROC", DBF_LONG, 1);
+    testTodoBegin("lp:1798855");
+    testdbGetFieldEqual("ai:disconn.SEVR", DBF_LONG, INVALID_ALARM);
+    testdbGetFieldEqual("ai:disconn.STAT", DBF_LONG, LINK_ALARM);
+    testTodoEnd();
+}
+
 
 MAIN(regressTest)
 {
-    testPlan(31);
+    testPlan(34);
     testArrayLength1();
     testHexConstantLinks();
     testLinkMS();
+    testCADisconn();
     return testDone();
 }