Kyle Manna
da8160f1ff
* Remove the execute permission on all c, cpp, and header files. * These files will never need to be executed.
127 lines
3.3 KiB
C++
127 lines
3.3 KiB
C++
/*
|
|
* Authors (alphabetical order)
|
|
* - Andre Bernet <bernet.andre@gmail.com>
|
|
* - Andreas Weitl
|
|
* - Bertrand Songis <bsongis@gmail.com>
|
|
* - Bryan J. Rentoul (Gruvin) <gruvin@gmail.com>
|
|
* - Cameron Weeks <th9xer@gmail.com>
|
|
* - Erez Raviv
|
|
* - Gabriel Birkus
|
|
* - Jean-Pierre Parisy
|
|
* - Karl Szmutny
|
|
* - Michael Blandford
|
|
* - Michal Hlavinka
|
|
* - Pat Mackenzie
|
|
* - Philip Moss
|
|
* - Rob Thomson
|
|
* - Romolo Manfredini <romolo.manfredini@gmail.com>
|
|
* - Thomas Husterer
|
|
*
|
|
* opentx is based on code named
|
|
* gruvin9x by Bryan J. Rentoul: http://code.google.com/p/gruvin9x/,
|
|
* er9x by Erez Raviv: http://code.google.com/p/er9x/,
|
|
* and the original (and ongoing) project by
|
|
* Thomas Husterer, th9x: http://code.google.com/p/th9x/
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License version 2 as
|
|
* published by the Free Software Foundation.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
*/
|
|
|
|
#include <math.h>
|
|
#include <gtest/gtest.h>
|
|
|
|
#if defined(LUA)
|
|
|
|
#define SWAP_DEFINED
|
|
#include "opentx.h"
|
|
|
|
#include <lua.h>
|
|
#include <lauxlib.h>
|
|
#include <lualib.h>
|
|
|
|
extern const char * zchar2string(const char * zstring, int size);
|
|
#define EXPECT_ZSTREQ(c_string, z_string) EXPECT_STREQ(c_string, zchar2string(z_string, sizeof(z_string)))
|
|
|
|
void luaExecStr(const char * str)
|
|
{
|
|
extern lua_State * L;
|
|
if (!L) luaInit();
|
|
if (!L) FAIL() << "No Lua state!";
|
|
if (luaL_dostring(L, str)) {
|
|
FAIL() << "lua error: " << lua_tostring(L, -1);
|
|
}
|
|
}
|
|
|
|
TEST(Lua, testSetModelInfo)
|
|
{
|
|
luaExecStr("info = model.getInfo()");
|
|
// luaExecStr("print('model name: '..info.name..' id: '..info.id)");
|
|
luaExecStr("info.id = 2; info.name = 'modelA'");
|
|
luaExecStr("model.setInfo(info)");
|
|
// luaExecStr("print('model name: '..info.name..' id: '..info.id)");
|
|
EXPECT_EQ(g_model.header.modelId, 2);
|
|
EXPECT_ZSTREQ("modelA", g_model.header.name);
|
|
|
|
luaExecStr("info.id = 4; info.name = 'Model 1'");
|
|
luaExecStr("model.setInfo(info)");
|
|
// luaExecStr("print('model name: '..info.name..' id: '..info.id)");
|
|
EXPECT_EQ(g_model.header.modelId, 4);
|
|
EXPECT_ZSTREQ("Model 1", g_model.header.name);
|
|
}
|
|
|
|
TEST(Lua, testPanicProtection)
|
|
{
|
|
bool passed = false;
|
|
PROTECT_LUA() {
|
|
PROTECT_LUA() {
|
|
//simulate panic
|
|
longjmp(global_lj->b, 1);
|
|
}
|
|
else {
|
|
//we should come here
|
|
passed = true;
|
|
}
|
|
UNPROTECT_LUA();
|
|
}
|
|
else {
|
|
// an not here
|
|
// TRACE("testLuaProtection: test 1 FAILED");
|
|
FAIL() << "Failed test 1";
|
|
}
|
|
UNPROTECT_LUA()
|
|
|
|
EXPECT_EQ(passed, true);
|
|
|
|
passed = false;
|
|
|
|
PROTECT_LUA() {
|
|
PROTECT_LUA() {
|
|
int a = 5;
|
|
a = a; // avoids the warning
|
|
}
|
|
else {
|
|
//we should not come here
|
|
// TRACE("testLuaProtection: test 2 FAILED");
|
|
FAIL() << "Failed test 2";
|
|
}
|
|
UNPROTECT_LUA()
|
|
//simulate panic
|
|
longjmp(global_lj->b, 1);
|
|
}
|
|
else {
|
|
// we should come here
|
|
passed = true;
|
|
}
|
|
UNPROTECT_LUA()
|
|
|
|
EXPECT_EQ(passed, true);
|
|
}
|
|
#endif
|