44 lines
933 B
C++
44 lines
933 B
C++
|
#include "testEnv.hpp"
|
||
|
|
|
||
|
|
/*
|
||
|
|
Adding Squirrel member variables from binding script (static or ordinary members)
|
||
|
|
(by ATS)
|
||
|
|
*/
|
||
|
|
namespace {
|
||
|
|
|
||
|
|
class TestClass {
|
||
|
|
public:
|
||
|
|
TestClass( ) {}
|
||
|
|
int Func( ){ return 1; }
|
||
|
|
};
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
DECLARE_INSTANCE_TYPE(TestClass);
|
||
|
|
|
||
|
|
|
||
|
|
SQPLUS_TEST(Test_CppScriptVar)
|
||
|
|
{
|
||
|
|
SQPLUS_TEST_TRACE();
|
||
|
|
|
||
|
|
using namespace SqPlus;
|
||
|
|
|
||
|
|
SQClassDef<TestClass>(_SC("TestClass"))
|
||
|
|
.scriptVar(_SC("m_i"), 100, SQFalse) // Member var
|
||
|
|
.scriptVar(_SC("m_st_pi"), 3.14, SQTrue); // Static member var
|
||
|
|
|
||
|
|
// Test that it works
|
||
|
|
RUN_SCRIPT(_SC("\n\
|
||
|
|
tcA <- TestClass(); \n\
|
||
|
|
tcB <- TestClass(); \n\
|
||
|
|
tcB.m_i = 200; \n\
|
||
|
|
print(\"tcA.m_i: \"+tcA.m_i); \n\
|
||
|
|
print(\"tcB.m_i: \"+tcB.m_i); \n\
|
||
|
|
print(\"tcA.m_st_pi: \"+tcA.m_st_pi); \n\
|
||
|
|
print(\"TestClass.m_st_pi: \"+TestClass.m_st_pi); \n\
|
||
|
|
local s = tcA.m_i + tcB.m_i + tcA.m_st_pi + tcB.m_st_pi; \n\
|
||
|
|
print(\"s: \"+s); \n\
|
||
|
|
assert(s>306.27 && s<306.29); \n\
|
||
|
|
"));
|
||
|
|
}
|