pvUnitTest.h

/*
 * Copyright information and license terms for this software can be
 * found in the file LICENSE that is included with the distribution
 */
#ifndef PVUNITTEST_H
#define PVUNITTEST_H

#include <sstream>
#include <typeinfo>

#include <epicsUnitTest.h>

#include <pv/sharedPtr.h>
#include <pv/epicsException.h>
#include <pv/pvData.h>

namespace detail {

template<class C, void (C::*M)()>
void test_method(const char *kname, const char *mname)
{
    try {
        testDiag("------- %s::%s --------", kname, mname);
        C inst;
        (inst.*M)();
    } catch(std::exception& e) {
        PRINT_EXCEPTION(e);
        testAbort("unexpected exception: %s", e.what());
    }
}

class epicsShareClass testPassx
{
    std::ostringstream strm;
    const bool dotest, pass;
    bool alive;
public:
    testPassx() :dotest(false), pass(false), alive(true) {}
    explicit testPassx(bool r) :dotest(true), pass(r), alive(true) {}
    ~testPassx();
    template<typename T>
    inline testPassx& operator<<(const T& v) {
        strm<<v;
        return *this;
    }

    // allow testPassx to be returned
    // move ctor masquerading as copy ctor
    testPassx(testPassx& o);
private:
    testPassx& operator=(const testPassx&);
};

template<typename LHS, typename RHS>
inline testPassx testEqualx(const char *nLHS, const char *nRHS, const LHS& l, const RHS& r)
{
    return testPassx(l==r)<<nLHS<<" ("<<l<<") == "<<nRHS<<" ("<<r<<")";
}

template<typename LHS, typename RHS>
inline testPassx testNotEqualx(const char *nLHS, const char *nRHS, const LHS& l, const RHS& r)
{
    return testPassx(l!=r)<<nLHS<<" ("<<l<<") != "<<nRHS<<" ("<<r<<")";
}

}//namespace detail

#define TEST_METHOD(klass, method) ::detail::test_method<klass, &klass::method>(#klass, #method)

#define testEqual(LHS, RHS) ::detail::testEqualx(#LHS, #RHS, LHS, RHS)

#define testNotEqual(LHS, RHS) ::detail::testNotEqualx(#LHS, #RHS, LHS, RHS)

#define testTrue(B) ::detail::testPassx(!!(B))<<#B

#define testThrows(EXC, CODE) try{ CODE; testFail("unexpected success of " #CODE); }catch(EXC& e){testPass("catch expected exception: %s", e.what());}

#define testShow() ::detail::testPassx()

template<typename PVD>
::detail::testPassx
testFieldEqual(const std::tr1::shared_ptr<const epics::pvData::PVStructure>& val, const char *name, typename PVD::value_type expect)
{
    if(!val) {
        return ::detail::testPassx(false)<<" null structure pointer";
    }
    typename PVD::const_shared_pointer fval(val->getSubField<PVD>(name));
    if(!fval) {
        epics::pvData::PVUnion::const_shared_pointer uval(val->getSubField<epics::pvData::PVUnion>(name));
        if(uval)
            fval = uval->get<PVD>();
    }
    if(!fval) {
        return ::detail::testPassx(false)<<" field '"<<name<<"' with type "<<typeid(PVD).name()<<" does not exist";
    } else {
        typename PVD::value_type actual(fval->get());
        return ::detail::testPassx(actual==expect)<<name<<" ("<<actual<<") == "<<expect;
    }
}

template<typename PVD>
::detail::testPassx
testFieldEqual(const std::tr1::shared_ptr<const epics::pvData::PVStructure>& val, const char *name, typename PVD::const_svector expect)
{
    if(!val) {
        return ::detail::testPassx(false)<<" null structure pointer";
    }
    typename PVD::const_shared_pointer fval(val->getSubField<PVD>(name));
    if(!fval) {
        return ::detail::testPassx(false)<<" field '"<<name<<"' with type "<<typeid(PVD).name()<<" does not exist";
    } else {
        typename PVD::const_svector actual(fval->view());
        return ::detail::testPassx(actual==expect)<<name<<" ("<<actual<<") == "<<expect;
    }
}

#endif // PVUNITTEST_H