epics/pvxs
0
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Files
c141478c1926f9fa083c3aa8dbfd8302009e0fe4
pvxs/test/testput.cpp
T
Michael Davidsaver c503eece31 spell check
2021-08-13 15:18:31 -07:00

430 lines
10 KiB
C++
Raw Blame History

/**
* Copyright - See the COPYRIGHT that is included with this distribution.
* pvxs is distributed subject to a Software License Agreement found
* in file LICENSE that is included with this distribution.
*/
#define PVXS_ENABLE_EXPERT_API
#include <atomic>
#include <testMain.h>
#include <epicsUnitTest.h>
#include <epicsEvent.h>
#include <pvxs/unittest.h>
#include <pvxs/log.h>
#include <pvxs/client.h>
#include <pvxs/server.h>
#include <pvxs/sharedpv.h>
#include <pvxs/source.h>
#include <pvxs/nt.h>
namespace {
using namespace pvxs;
struct TesterBase {
Value initial;
server::SharedPV mbox;
server::Server serv;
client::Context cli;
TesterBase()
:initial(nt::NTScalar{TypeCode::Int32}.create())
,mbox(server::SharedPV::buildMailbox())
,serv(server::Config::isolated()
.build()
.addPV("mailbox", mbox))
,cli(serv.clientConfig().build())
{
testShow()<<"Server:\n"<<serv.config()
<<"Client:\n"<<cli.config();
initial["value"] = 1;
}
};
struct Tester : public TesterBase
{
void testWait(bool get)
{
client::Result actual;
epicsEvent done;
auto op = cli.put("mailbox")
.fetchPresent(get)
.build([get](Value&& prototype) -> Value {
if(get)
testEq(prototype["value"].as<int32_t>(), 1);
else
testOk1(!prototype["value"].isMarked());
auto val = prototype.cloneEmpty();
val["value"] = 2;
return val;
})
.result([&actual, &done](client::Result&& result) {
actual = std::move(result);
done.signal();
})
.exec();
cli.hurryUp();
if(testOk1(done.wait(5.0))) {
try {
actual();
testPass("Put success");
}catch(std::exception& e){
testFail("Put error %s : %s", typeid (e).name(), e.what());
}
auto cur = initial.cloneEmpty();
mbox.fetch(cur);
testEq(cur["value"].as<int32_t>(), 2);
} else {
testSkip(2, "timeout");
}
op.reset();
cli.cacheClear();
}
void loopback(bool get)
{
testShow()<<__func__;
mbox.open(initial);
serv.start();
testWait(get);
}
void lazy()
{
testShow()<<__func__;
std::atomic<bool> onFC{false}, onLD{false};
epicsEvent done;
mbox.onFirstConnect([this, &onFC](server::SharedPV&){
testShow()<<"In onFirstConnect()";
mbox.open(initial);
onFC.store(true);
});
mbox.onLastDisconnect([this, &onLD, &done](server::SharedPV&){
testShow()<<"In onLastDisconnect";
mbox.close();
onLD.store(true);
done.signal();
});
serv.start();
testWait(false);
testOk1(done.wait(5.0));
serv.stop();
testOk1(!mbox.isOpen());
testOk1(!!onFC.load());
testOk1(!!onLD.load());
}
void timeout()
{
testShow()<<__func__;
client::Result actual;
epicsEvent done;
// server not started
auto op = cli.put("mailbox")
.set("value", int32_t(42))
.result([&actual, &done](client::Result&& result) {
actual = std::move(result);
done.signal();
})
.exec();
cli.hurryUp();
testOk1(!done.wait(1.1));
}
void cancel()
{
testShow()<<__func__;
client::Result actual;
epicsEvent done;
serv.start();
// not storing Operation -> immediate cancel()
cli.put("mailbox")
.set("value", int32_t(42))
.result([&actual, &done](client::Result&& result) {
actual = std::move(result);
done.signal();
})
.exec();
cli.hurryUp();
testOk1(!done.wait(2.1));
}
void orphan()
{
testShow()<<__func__;
auto op = cli.put("nonexistent")
.set("value", "foo")
.exec();
// clear Context to orphan in-progress operation
cli = client::Context();
op.reset();
}
void manualExec()
{
testShow()<<__func__;
epicsEvent initd;
epicsEvent done;
Value top;
mbox.open(initial);
serv.start();
auto op = cli.put("mailbox")
.autoExec(false)
.onInit([&initd, &top](const Value& prototype) {
testDiag("onInit()");
top = prototype;
initd.signal();
})
.result([&initd](client::Result&& result) {
testFail("result() unexpected error prior to onInit()");
initd.signal();
})
.exec();
testOk1(initd.wait(5.0));
testDiag("reExec() GET 1");
top["value"] = 123u;
op->reExecGet([&done](client::Result&& result) {
testDiag("result() GET 1");
if(testFalse(result.error())) {
testEq(result()["value"].as<uint32_t>(), 1u);
}
done.signal();
});
testOk1(done.wait(5.0));
testDiag("reExec() PUT 1");
top["value"] = 123u;
op->reExecPut(top.clone(), [&done](client::Result&& result) {
testDiag("result() PUT 1");
testFalse(result.error());
done.signal();
});
testOk1(done.wait(5.0));
testEq(mbox.fetch()["value"].as<uint32_t>(), 123u);
testDiag("reExec() GET 2");
top["value"] = 123u;
op->reExecGet([&done](client::Result&& result) {
testDiag("result() GET 2");
if(testFalse(result.error())) {
testEq(result()["value"].as<uint32_t>(), 123u);
}
done.signal();
});
testOk1(done.wait(5.0));
testDiag("reExec() 2");
top["value"] = 124u;
op->reExecPut(top, [&done](client::Result&& result) {
testDiag("result() PUT 2");
testFalse(result.error());
done.signal();
});
testOk1(done.wait(5.0));
testEq(mbox.fetch()["value"].as<uint32_t>(), 124u);
}
};
struct TestPutBuilder : public TesterBase
{
void testSet()
{
testShow()<<__func__;
mbox.open(initial);
serv.start();
client::Result actual;
epicsEvent done;
auto op = cli.put("mailbox")
.set("value", "5")
.set("alarm.severity", 3)
.set("alarm", "not going to happen", false)
.set("nonexistent", "nope", false)
.result([&actual, &done](client::Result&& result) {
actual = std::move(result);
done.signal();
})
.exec();
cli.hurryUp();
testTrue(done.wait(2.1));
try {
actual(); // maybe throws
testPass("Put success");
}catch(std::exception& e){
testFail("Put error %s : %s", typeid(e).name(), e.what());
}
auto cur = initial.cloneEmpty();
mbox.fetch(cur);
testEq(cur["value"].as<int32_t>(), 5);
testEq(cur["alarm.severity"].as<uint32_t>(), 3u);
}
};
void testRO()
{
testShow()<<__func__;
auto mbox(server::SharedPV::buildReadonly());
auto initial = nt::NTScalar{TypeCode::Int32}.create();
initial["value"] = 1;
mbox.open(initial);
auto serv = server::Config::isolated()
.build()
.addPV("mailbox", mbox)
.start();
auto cli = serv.clientConfig().build();
client::Result actual;
epicsEvent done;
auto op = cli.put("mailbox")
.fetchPresent(false)
.build([](Value&& prototype) -> Value {
auto v = prototype.cloneEmpty();
v["value"] = 2;
return v;
})
.result([&actual, &done](client::Result&& result) {
actual = std::move(result);
done.signal();
})
.exec();
cli.hurryUp();
if(testOk1(done.wait(5.0))) {
testThrows<client::RemoteError>([&actual]() {
auto val = actual();
testShow()<<"unexpected result\n"<<val;
});
} else {
testSkip(1, "timeout");
}
}
struct ErrorSource : public server::Source
{
virtual void onSearch(Search &op) override final
{
for(auto& name : op) {
name.claim();
}
}
virtual void onCreate(std::unique_ptr<server::ChannelControl> &&op) override final
{
auto chan = std::move(op);
chan->onOp([](std::unique_ptr<server::ConnectOp>&& op) {
op->error("haha");
});
}
};
void testError()
{
testShow()<<__func__;
auto serv = server::Config::isolated()
.build()
.addSource("err", std::make_shared<ErrorSource>())
.start();
auto cli = serv.clientConfig().build();
client::Result actual;
epicsEvent done;
auto op = cli.get("mailbox")
.result([&actual, &done](client::Result&& result) {
actual = std::move(result);
done.signal();
})
.exec();
cli.hurryUp();
if(testOk1(done.wait(5.0))) {
testThrows<client::RemoteError>([&actual]() {
auto val = actual();
testShow()<<"unexpected result\n"<<val;
});
} else {
testSkip(1, "timeout");
}
}
} // namespace
MAIN(testput)
{
testPlan(39);
testSetup();
logger_config_env();
Tester().loopback(false);
Tester().loopback(true);
Tester().lazy();
Tester().timeout();
Tester().cancel();
Tester().orphan();
Tester().manualExec();
TestPutBuilder().testSet();
testRO();
testError();
cleanup_for_valgrind();
return testDone();
}
Reference in New Issue View Git Blame Copy Permalink