151 lines
4.4 KiB
C++
Executable File
151 lines
4.4 KiB
C++
Executable File
/*
|
|
* 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, testSetTelemetryChannel)
|
|
{
|
|
// set
|
|
luaExecStr("channel = model.getTelemetryChannel(0)");
|
|
luaExecStr("channel.range = 100.0");
|
|
luaExecStr("channel.offset = -10.0");
|
|
luaExecStr("channel.alarm1 = 60");
|
|
luaExecStr("channel.alarm2 = 50");
|
|
luaExecStr("model.setTelemetryChannel(0, channel)");
|
|
EXPECT_EQ(g_model.frsky.channels[0].multiplier, 2);
|
|
EXPECT_EQ(g_model.frsky.channels[0].ratio, 250);
|
|
EXPECT_EQ(g_model.frsky.channels[0].offset, -26);
|
|
EXPECT_EQ(g_model.frsky.channels[0].alarms_value[0], 179);
|
|
EXPECT_EQ(g_model.frsky.channels[0].alarms_value[1], 153);
|
|
|
|
//verify in Lua
|
|
luaExecStr("channel = model.getTelemetryChannel(0)");
|
|
luaExecStr("if math.abs(channel.range - 100) > 0.5 then error('channel.range is: '..channel.range) end");
|
|
luaExecStr("if math.abs(channel.offset + 10) > 0.5 then error('channel.offset is: '..channel.offset) end");
|
|
luaExecStr("if math.abs(channel.alarm1 - 60) > 0.5 then error('channel.alarm1 is: '..channel.alarm1) end");
|
|
luaExecStr("if math.abs(channel.alarm2 - 50) > 0.5 then error('channel.alarm2 is: '..channel.alarm2) end");
|
|
|
|
}
|
|
|
|
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
|