From c2df1c6fe5964b2ceec0d5088cf5436adad2c557 Mon Sep 17 00:00:00 2001
From: Dirk Zimoch <dirk.zimoch@psi.ch>
Date: Fri, 29 Jul 2022 14:08:12 +0200
Subject: [PATCH] string waveform init test added

---
 modules/database/test/std/rec/linkInitTest.c  | 5 ++++-
 modules/database/test/std/rec/linkInitTest.db | 7 ++++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/modules/database/test/std/rec/linkInitTest.c b/modules/database/test/std/rec/linkInitTest.c
index 2620cabb8..1c262e4e3 100644
--- a/modules/database/test/std/rec/linkInitTest.c
+++ b/modules/database/test/std/rec/linkInitTest.c
@@ -144,6 +144,8 @@ static void testPrintfStrings()
 static void testArrayInputs()
 {
     epicsInt32 oneToTwelve[] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12};
+    epicsOldString reindeer[10] = {"Dasher", "Dancer", "Prancer", "Vixen",
+                    "Comet", "Cupid", "Donner", "Blitzen", "Rudolph"};
 
     testDiag("testArrayInputs");
 
@@ -168,6 +170,7 @@ static void testArrayInputs()
     testdbGetArrFieldEqual("sa2.VAL", DBF_LONG, 10, 0, NULL);
     testdbGetArrFieldEqual("wf1.VAL", DBF_LONG, 12, 10, &oneToTwelve[0]);
     testdbGetArrFieldEqual("wf2.VAL", DBF_LONG, 12, 10, &oneToTwelve[0]);
+    testdbGetArrFieldEqual("reindeer.VAL", DBF_STRING, 10, 9, &reindeer[0]);
 
     testdbPutFieldOk("sa1.INDX", DBF_LONG, 3);
     testdbGetArrFieldEqual("sa1.VAL", DBF_LONG, 12, 9, &oneToTwelve[3]);
@@ -243,7 +246,7 @@ void testInt64Inputs(void)
 
 MAIN(linkInitTest)
 {
-    testPlan(78);
+    testPlan(79);
 
     testLongStringInit();
     testCalcInit();
diff --git a/modules/database/test/std/rec/linkInitTest.db b/modules/database/test/std/rec/linkInitTest.db
index 2a2cfc8ec..1f320888a 100644
--- a/modules/database/test/std/rec/linkInitTest.db
+++ b/modules/database/test/std/rec/linkInitTest.db
@@ -64,6 +64,12 @@ record(waveform, "wf2") {
   field(FTVL, "LONG")
   field(INP, {const:[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12]})
 }
+record(waveform, "reindeer") {
+  field(FTVL, "STRING")
+  field(NELM, "20")
+  field(INP, ["Dasher", "Dancer", "Prancer", "Vixen",
+              "Comet", "Cupid", "Donner", "Blitzen", "Rudolph"])
+}
 
 record(longin, "li1") {
   field(INP, 1)
@@ -104,4 +110,3 @@ record(waveform, "i4") {
   field(FTVL, "INT64")
   field(INP, [1234567890123456789,])
 }
-