epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

string waveform init test added

Browse Source
This commit is contained in:
zimoch
2022-07-29 14:08:12 +02:00
committed by Michael Davidsaver
parent c5a7548526
commit c2df1c6fe5
2 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
modules/database/test/std/rec/linkInitTest.c
View File

@@ -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();

7
modules/database/test/std/rec/linkInitTest.db
View File

@@ -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,])
}