96 lines
2.4 KiB
C++
96 lines
2.4 KiB
C++
|
|
#include <dbUnitTest.h>
|
|
#include <testMain.h>
|
|
#include <longinRecord.h>
|
|
#include <longoutRecord.h>
|
|
|
|
#include <pv/qsrv.h>
|
|
#include "utilities.h"
|
|
#include "pvalink.h"
|
|
#include "pv/qsrv.h"
|
|
|
|
namespace {
|
|
|
|
void testGet()
|
|
{
|
|
testDiag("==== testGet ====");
|
|
|
|
longinRecord *li1 = (longinRecord*)testdbRecordPtr("src:li1");
|
|
|
|
while(!dbIsLinkConnected(&li1->inp))
|
|
testqsrvWaitForLinkEvent(&li1->inp);
|
|
|
|
testdbGetFieldEqual("target:li.VAL", DBF_LONG, 42);
|
|
|
|
testdbGetFieldEqual("src:li1.VAL", DBF_LONG, 0); // value before first process
|
|
|
|
testdbGetFieldEqual("src:li1.INP", DBF_STRING, "{\"pva\":\"target:li\"}");
|
|
|
|
testdbPutFieldOk("src:li1.PROC", DBF_LONG, 1);
|
|
|
|
testdbGetFieldEqual("src:li1.VAL", DBF_LONG, 42);
|
|
|
|
testdbPutFieldOk("src:li1.INP", DBF_STRING, "{\"pva\":\"target:ai\"}");
|
|
|
|
while(!dbIsLinkConnected(&li1->inp))
|
|
testqsrvWaitForLinkEvent(&li1->inp);
|
|
|
|
testdbGetFieldEqual("src:li1.VAL", DBF_LONG, 42); // changing link doesn't automatically process
|
|
|
|
testdbPutFieldOk("src:li1.PROC", DBF_LONG, 1);
|
|
|
|
testdbGetFieldEqual("src:li1.VAL", DBF_LONG, 4); // now it's changed
|
|
}
|
|
|
|
void testPut()
|
|
{
|
|
testDiag("==== testPut ====");
|
|
|
|
longoutRecord *lo2 = (longoutRecord*)testdbRecordPtr("src:lo2");
|
|
|
|
while(!dbIsLinkConnected(&lo2->out))
|
|
testqsrvWaitForLinkEvent(&lo2->out);
|
|
|
|
testdbGetFieldEqual("target:li2.VAL", DBF_LONG, 43);
|
|
testdbGetFieldEqual("src:lo2.VAL", DBF_LONG, 0);
|
|
testdbGetFieldEqual("src:lo2.OUT", DBF_STRING, "{\"pva\":\"target:li2\"}");
|
|
|
|
testdbPutFieldOk("src:lo2.VAL", DBF_LONG, 14);
|
|
|
|
testdbGetFieldEqual("target:li2.VAL", DBF_LONG, 14);
|
|
testdbGetFieldEqual("src:lo2.VAL", DBF_LONG, 14);
|
|
}
|
|
|
|
} // namespace
|
|
|
|
extern "C"
|
|
void pvaLinkTestIoc_registerRecordDeviceDriver(struct dbBase *);
|
|
|
|
MAIN(testpvalink)
|
|
{
|
|
testPlan(15);
|
|
|
|
// Disable PVA client provider, use local/QSRV provider
|
|
pvaLinkIsolate = 1;
|
|
|
|
try {
|
|
TestIOC IOC;
|
|
|
|
testdbReadDatabase("pvaLinkTestIoc.dbd", NULL, NULL);
|
|
pvaLinkTestIoc_registerRecordDeviceDriver(pdbbase);
|
|
testdbReadDatabase("testpvalink.db", NULL, NULL);
|
|
|
|
IOC.init();
|
|
testGet();
|
|
testPut();
|
|
testqsrvShutdownOk();
|
|
IOC.shutdown();
|
|
testqsrvCleanup();
|
|
|
|
}catch(std::exception& e){
|
|
testFail("Unexpected exception: %s", e.what());
|
|
}
|
|
// call epics atexits explicitly as workaround for c++ static dtor issues...
|
|
epicsExit(testDone());
|
|
}
|