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

Added failing test for partial ai average

Browse Source
This commit is contained in:
Simon Rose
2022-05-11 13:33:29 +02:00
committed by Michael Davidsaver
parent b54d4b9a24
commit bf4a4c6b78
1 changed files with 78 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/database/test/std/rec/compressTest.c
+78 -1
View File
@@ -551,13 +551,90 @@ testNto1LowValue(void) {
testdbCleanup();
}
void
testAIPartialAverage(void) {
double buf = 0.0;
long nReq = 1;
DBADDR aiaddr, caddr;
testDiag("Test 'N to 1 Low Value'");
testdbPrepare();
testdbReadDatabase("recTestIoc.dbd", NULL, NULL);
recTestIoc_registerRecordDeviceDriver(pdbbase);
testdbReadDatabase("compressTest.db", NULL, "INP=ai,ALG=N to 1 Average,BALG=FIFO Buffer,NSAM=1,N=4,PBUF=YES");
eltc(0);
testIocInitOk();
eltc(1);
fetchRecordOrDie("ai", aiaddr);
fetchRecordOrDie("comp", caddr);
buf = 1.;
dbScanLock(aiaddr.precord);
dbPut(&aiaddr, DBF_FLOAT, &buf, nReq);
dbScanUnlock(aiaddr.precord);
dbScanLock(caddr.precord);
dbProcess(caddr.precord);
if (dbGet(&caddr, DBR_DOUBLE, &buf, NULL, &nReq, NULL))
testAbort("dbGet failed on compress record");
dbScanUnlock(caddr.precord);
testDEq(buf, 1., 0.01);
buf = 2.;
dbScanLock(aiaddr.precord);
dbPut(&aiaddr, DBF_FLOAT, &buf, nReq);
dbScanUnlock(aiaddr.precord);
dbScanLock(caddr.precord);
dbProcess(caddr.precord);
if (dbGet(&caddr, DBR_DOUBLE, &buf, NULL, &nReq, NULL))
testAbort("dbGet failed on compress record");
testDEq(buf, 1.5, 0.01);
dbScanUnlock(caddr.precord);
buf = 3.;
dbScanLock(aiaddr.precord);
dbPut(&aiaddr, DBF_FLOAT, &buf, nReq);
dbScanUnlock(aiaddr.precord);
dbScanLock(caddr.precord);
dbProcess(caddr.precord);
if (dbGet(&caddr, DBR_DOUBLE, &buf, NULL, &nReq, NULL))
testAbort("dbGet failed on compress record");
testDEq(buf, 2., 0.01);
dbScanUnlock(caddr.precord);
buf = 4.;
dbScanLock(aiaddr.precord);
dbPut(&aiaddr, DBF_FLOAT, &buf, nReq);
dbScanUnlock(aiaddr.precord);
dbScanLock(caddr.precord);
dbProcess(caddr.precord);
if (dbGet(&caddr, DBR_DOUBLE, &buf, NULL, &nReq, NULL))
testAbort("dbGet failed on compress record");
testDEq(buf, 2.5, 0.01);
dbScanUnlock(caddr.precord);
testIocShutdownOk();
testdbCleanup();
}
MAIN(compressTest)
{
testPlan(134);
testPlan(138);
testFIFOCirc();
testLIFOCirc();
testNto1Average();
testNto1AveragePartial();
testAIPartialAverage();
testNto1LowValue();
return testDone();
}