132 lines
3.2 KiB
C++
Executable File
132 lines
3.2 KiB
C++
Executable File
#include "testEnv.hpp"
|
|
|
|
/*
|
|
http://squirrel-lang.org/forums/thread/1875.aspx
|
|
http://wiki.squirrel-lang.org/default.aspx/SquirrelWiki/SqPlusNativeCreatedInstancesWithCorrectAncestry.html
|
|
*/
|
|
|
|
namespace {
|
|
|
|
class cBase {
|
|
public:
|
|
cBase(void) : myId(id++) {}
|
|
virtual ~cBase() {}
|
|
|
|
void echo(void) {printf("cBase(id = %d)\n", myId);}
|
|
const SQChar *Name(void) {return _SC("cBase");}
|
|
const SQChar *BaseSpecific(void) {return _SC("BaseSpecific(void)");}
|
|
|
|
int myId;
|
|
static int id;
|
|
};
|
|
|
|
class cDerived : public cBase {
|
|
public:
|
|
cDerived(void) : cBase(), myId(id++) {}
|
|
virtual ~cDerived() {}
|
|
|
|
void echo(void) {
|
|
printf("cDerived(id = %d), cBase(id = %d)\n", myId, cBase::myId);
|
|
}
|
|
const SQChar *Name(void) {return _SC("cDerived");}
|
|
const SQChar *DerivedSpecific(void) {return _SC("DerivedSpecific(void)");}
|
|
|
|
int myId;
|
|
static int id;
|
|
};
|
|
|
|
int cBase::id = 0;
|
|
int cDerived::id = 1000;
|
|
|
|
}
|
|
|
|
DECLARE_INSTANCE_TYPE(cBase);
|
|
DECLARE_INSTANCE_TYPE(cDerived);
|
|
|
|
|
|
cBase b;
|
|
cDerived d;
|
|
|
|
cBase &GetBase() {return b;}
|
|
cDerived &GetDerived() {return d;}
|
|
cBase *GetBasePtr() {return &b;}
|
|
cDerived *GetDerivedPtr() {return &d;}
|
|
|
|
|
|
SQPLUS_TEST(Test_PointerToDerived)
|
|
{
|
|
SQPLUS_TEST_TRACE();
|
|
|
|
using namespace SqPlus;
|
|
|
|
#ifdef SQ_USE_CLASS_INHERITANCE
|
|
|
|
SQClassDef<cBase>(_SC("cBase"))
|
|
.func(&cBase::echo, _SC("echo"))
|
|
.func(&cBase::Name, _SC("Name"))
|
|
.func(&cBase::BaseSpecific, _SC("BaseSpecific"));
|
|
|
|
SQClassDef<cDerived>(_SC("cDerived"), _SC("cBase"))
|
|
.func(&cDerived::echo, _SC("echo"))
|
|
.func(&cDerived::Name, _SC("Name"))
|
|
.func(&cDerived::DerivedSpecific, _SC("DerivedSpecific"));
|
|
|
|
RegisterGlobal(&GetBase, _SC("GetBase"));
|
|
RegisterGlobal(&GetDerived, _SC("GetDerived"));
|
|
RegisterGlobal(&GetBasePtr, _SC("GetBasePtr"));
|
|
RegisterGlobal(&GetDerivedPtr, _SC("GetDerivedPtr"));
|
|
|
|
|
|
SQPLUS_TEST_TRACE_SUB(b <- cBase());
|
|
RUN_SCRIPT(_SC("\n\
|
|
b <- cBase(); \n\
|
|
b.echo() \n\
|
|
assert(b.Name() == \"cBase\"); \n\
|
|
assert(b.BaseSpecific() == \"BaseSpecific(void)\"); \n\
|
|
"));
|
|
|
|
SQPLUS_TEST_TRACE_SUB(b <- GetBase());
|
|
RUN_SCRIPT(_SC("\n\
|
|
b <- GetBase(); \n\
|
|
b.echo() \n\
|
|
assert(b.Name() == \"cBase\"); \n\
|
|
assert(b.BaseSpecific() == \"BaseSpecific(void)\"); \n\
|
|
"));
|
|
|
|
SQPLUS_TEST_TRACE_SUB(b <- GetBasePtr());
|
|
RUN_SCRIPT(_SC("\n\
|
|
b <- GetBasePtr(); \n\
|
|
b.echo() \n\
|
|
assert(b.Name() == \"cBase\"); \n\
|
|
assert(b.BaseSpecific() == \"BaseSpecific(void)\"); \n\
|
|
"));
|
|
|
|
SQPLUS_TEST_TRACE_SUB(d <- cDerived());
|
|
RUN_SCRIPT(_SC("\n\
|
|
d <- cDerived(); \n\
|
|
d.echo() \n\
|
|
assert(d.Name() == \"cDerived\"); \n\
|
|
assert(d.DerivedSpecific() == \"DerivedSpecific(void)\"); \n\
|
|
assert(d.BaseSpecific() == \"BaseSpecific(void)\"); \n\
|
|
"));
|
|
|
|
SQPLUS_TEST_TRACE_SUB(d <- GetDerived());
|
|
RUN_SCRIPT(_SC("\n\
|
|
d <- GetDerived(); \n\
|
|
d.echo() \n\
|
|
assert(d.Name() == \"cDerived\"); \n\
|
|
assert(d.DerivedSpecific() == \"DerivedSpecific(void)\"); \n\
|
|
assert(d.BaseSpecific() == \"BaseSpecific(void)\"); \n\
|
|
"));
|
|
|
|
SQPLUS_TEST_TRACE_SUB(d <- GetDerivedPtr());
|
|
RUN_SCRIPT(_SC("\n\
|
|
d <- GetDerivedPtr(); \n\
|
|
d.echo() \n\
|
|
assert(d.Name() == \"cDerived\"); \n\
|
|
assert(d.DerivedSpecific() == \"DerivedSpecific(void)\"); \n\
|
|
assert(d.BaseSpecific() == \"BaseSpecific(void)\"); \n\
|
|
"));
|
|
#endif
|
|
}
|