diff options
Diffstat (limited to '3rdparty/sol2/tests.cpp')
-rw-r--r-- | 3rdparty/sol2/tests.cpp | 794 |
1 files changed, 0 insertions, 794 deletions
diff --git a/3rdparty/sol2/tests.cpp b/3rdparty/sol2/tests.cpp deleted file mode 100644 index 9e6dcf5c5d5..00000000000 --- a/3rdparty/sol2/tests.cpp +++ /dev/null @@ -1,794 +0,0 @@ -#define CATCH_CONFIG_MAIN -#define SOL_CHECK_ARGUMENTS - -#include <catch.hpp> -#include <sol.hpp> - -#include <fstream> -#include <iostream> -#include <map> -#include <unordered_map> -#include <vector> - -#include "test_stack_guard.hpp" - -bool func_opt_ret_bool(sol::optional<int> i) { - if (i) - { - INFO(i.value()); - } - else - { - INFO("optional isn't set"); - } - return true; -} - -TEST_CASE("table/traversal", "ensure that we can chain requests and tunnel down into a value if we desire") { - - sol::state lua; - int begintop = 0, endtop = 0; - - sol::function scriptload = lua.load("t1 = {t2 = {t3 = 24}};"); - scriptload(); - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - int traversex24 = lua.traverse_get<int>("t1", "t2", "t3"); - REQUIRE(traversex24 == 24); - } REQUIRE(begintop == endtop); - - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - int x24 = lua["t1"]["t2"]["t3"]; - REQUIRE(x24 == 24); - } REQUIRE(begintop == endtop); - - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - lua["t1"]["t2"]["t3"] = 64; - int traversex64 = lua.traverse_get<int>("t1", "t2", "t3"); - REQUIRE(traversex64 == 64); - } REQUIRE(begintop == endtop); - - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - int x64 = lua["t1"]["t2"]["t3"]; - REQUIRE(x64 == 64); - } REQUIRE(begintop == endtop); - - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - lua.traverse_set("t1", "t2", "t3", 13); - int traversex13 = lua.traverse_get<int>("t1", "t2", "t3"); - REQUIRE(traversex13 == 13); - } REQUIRE(begintop == endtop); - - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - int x13 = lua["t1"]["t2"]["t3"]; - REQUIRE(x13 == 13); - } REQUIRE(begintop == endtop); -} - -TEST_CASE("simple/set", "Check if the set works properly.") { - sol::state lua; - int begintop = 0, endtop = 0; - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - lua.set("a", 9); - } REQUIRE(begintop == endtop); - REQUIRE_NOTHROW(lua.script("if a ~= 9 then error('wrong value') end")); - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - lua.set("d", "hello"); - } REQUIRE(begintop == endtop); - REQUIRE_NOTHROW(lua.script("if d ~= 'hello' then error('expected \\'hello\\', got '.. tostring(d)) end")); - - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - lua.set("e", std::string("hello"), "f", true); - } REQUIRE(begintop == endtop); - REQUIRE_NOTHROW(lua.script("if d ~= 'hello' then error('expected \\'hello\\', got '.. tostring(d)) end")); - REQUIRE_NOTHROW(lua.script("if f ~= true then error('wrong value') end")); -} - -TEST_CASE("simple/get", "Tests if the get function works properly.") { - sol::state lua; - int begintop = 0, endtop = 0; - - lua.script("a = 9"); - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - auto a = lua.get<int>("a"); - REQUIRE(a == 9.0); - } REQUIRE(begintop == endtop); - - lua.script("b = nil"); - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - REQUIRE_NOTHROW(lua.get<sol::nil_t>("b")); - } REQUIRE(begintop == endtop); - - lua.script("d = 'hello'"); - lua.script("e = true"); - { - test_stack_guard g(lua.lua_state(), begintop, endtop); - std::string d; - bool e; - std::tie(d, e) = lua.get<std::string, bool>("d", "e"); - REQUIRE(d == "hello"); - REQUIRE(e == true); - } REQUIRE(begintop == endtop); -} - -TEST_CASE("simple/set-get-global-integer", "Tests if the get function works properly with global integers") { - sol::state lua; - lua[1] = 25.4; - lua.script("b = 1"); - double a = lua.get<double>(1); - double b = lua.get<double>("b"); - REQUIRE(a == 25.4); - REQUIRE(b == 1); -} - -TEST_CASE("simple/get_or", "check if table.get_or works correctly") { - sol::state lua; - - auto bob_table = lua.create_table("bob"); - bob_table.set("is_set", 42); - - int is_set = bob_table.get_or("is_set", 3); - int is_not_set = bob_table.get_or("is_not_set", 22); - - REQUIRE(is_set == 42); - REQUIRE(is_not_set == 22); - - lua["joe"] = 55.6; - double bark = lua.get_or<double>("joe", 60); - REQUIRE(bark == 55.6); -} - -TEST_CASE("simple/proxy_get_or", "check if proxy.get_or works correctly") { - sol::state lua; - - auto bob_table = lua.create_table("bob"); - bob_table.set("is_set", 42); - - int is_set = bob_table["is_set"].get_or(3); - int is_not_set = bob_table["is_not_set"].get_or(22); - - REQUIRE(is_set == 42); - REQUIRE(is_not_set == 22); - - lua["joe"] = 55.6; - double bark = lua["joe"].get_or<double>(60); - REQUIRE(bark == 55.6); -} - -TEST_CASE("simple/addition", "check if addition works and can be gotten through lua.get and lua.set") { - sol::state lua; - - lua.set("b", 0.2); - lua.script("c = 9 + b"); - auto c = lua.get<double>("c"); - - REQUIRE(c == 9.2); -} - -TEST_CASE("simple/if", "check if if statements work through lua") { - sol::state lua; - - std::string program = "if true then f = 0.1 else f = 'test' end"; - lua.script(program); - auto f = lua.get<double>("f"); - - REQUIRE(f == 0.1); - REQUIRE((f == lua["f"])); -} - -TEST_CASE("negative/basic_errors", "Check if error handling works correctly") { - sol::state lua; - - REQUIRE_THROWS(lua.script("nil[5]")); -} - -TEST_CASE("libraries", "Check if we can open libraries") { - sol::state lua; - REQUIRE_NOTHROW(lua.open_libraries(sol::lib::base, sol::lib::os)); -} - -TEST_CASE("libraries2", "Check if we can open ALL the libraries") { - sol::state lua; - REQUIRE_NOTHROW(lua.open_libraries(sol::lib::base, - sol::lib::bit32, - sol::lib::coroutine, - sol::lib::debug, - sol::lib::ffi, - sol::lib::jit, - sol::lib::math, - sol::lib::os, - sol::lib::package, - sol::lib::string, - sol::lib::table)); -} - -TEST_CASE("interop/null-to-nil-and-back", "nil should be the given type when a pointer from C++ is returned as nullptr, and nil should result in nullptr in connected C++ code") { - sol::state lua; - lua.open_libraries(sol::lib::base); - - lua.set_function("lol", []() -> int* { - return nullptr; - }); - lua.set_function("rofl", [](int* x) { - INFO(x); - }); - REQUIRE_NOTHROW(lua.script("x = lol()\n" - "rofl(x)\n" - "assert(x == nil)")); -} - -TEST_CASE("utilities/this_state", "Ensure this_state argument can be gotten anywhere in the function.") { - struct bark { - int with_state(sol::this_state l, int a, int b) { - lua_State* L = l; - int c = lua_gettop(L); - return a + b + (c - c); - } - - static int with_state_2(int a, sol::this_state l, int b) { - INFO("inside with_state_2"); - lua_State* L = l; - INFO("L is" << (void*)L); - int c = lua_gettop(L); - return a * b + (c - c); - } - }; - - sol::state lua; - INFO("created lua state"); - lua.open_libraries(sol::lib::base); - lua.new_usertype<bark>("bark", - "with_state", &bark::with_state - ); - - INFO("setting b and with_state_2"); - bark b; - lua.set("b", &b); - lua.set("with_state_2", bark::with_state_2); - INFO("finished setting"); - INFO("getting fx"); - sol::function fx = lua["with_state_2"]; - INFO("calling fx"); - int a = fx(25, 25); - INFO("finished setting fx"); - INFO("calling a script"); - lua.script("a = with_state_2(25, 25)"); - INFO("calling c script"); - lua.script("c = b:with_state(25, 25)"); - INFO("getting a"); - int la = lua["a"]; - INFO("getting b"); - int lc = lua["c"]; - - REQUIRE(lc == 50); - REQUIRE(a == 625); - REQUIRE(la == 625); -} - -TEST_CASE("object/conversions", "make sure all basic reference types can be made into objects") { - sol::state lua; - lua.open_libraries(sol::lib::base); - - struct d {}; - - lua.script("function f () print('bark') end"); - lua["d"] = d{}; - lua["l"] = static_cast<void*>(nullptr); - - sol::table t = lua.create_table(); - sol::thread th = sol::thread::create(lua); - sol::function f = lua["f"]; - sol::protected_function pf = lua["f"]; - sol::userdata ud = lua["d"]; - sol::lightuserdata lud = lua["l"]; - - sol::object ot(t); - sol::object ot2 = ot; - sol::object oth(th); - sol::object of(f); - sol::object opf(pf); - sol::object od(ud); - sol::object ol(lud); - - auto oni = sol::make_object(lua, 50); - auto ond = sol::make_object(lua, 50.0); - - std::string somestring = "look at this text isn't it nice"; - auto osl = sol::make_object(lua, "Bark bark bark"); - auto os = sol::make_object(lua, somestring); - - auto omn = sol::make_object(lua, sol::nil); - - REQUIRE(ot.get_type() == sol::type::table); - REQUIRE(ot2.get_type() == sol::type::table); - REQUIRE(oth.get_type() == sol::type::thread); - REQUIRE(of.get_type() == sol::type::function); - REQUIRE(opf.get_type() == sol::type::function); - REQUIRE(od.get_type() == sol::type::userdata); - REQUIRE(ol.get_type() == sol::type::lightuserdata); - REQUIRE(oni.get_type() == sol::type::number); - REQUIRE(ond.get_type() == sol::type::number); - REQUIRE(osl.get_type() == sol::type::string); - REQUIRE(os.get_type() == sol::type::string); - REQUIRE(omn.get_type() == sol::type::nil); -} - -TEST_CASE("state/require_file", "opening files as 'requires'") { - static const char FILE_NAME[] = "./tmp_thingy.lua"; - - std::fstream file(FILE_NAME, std::ios::out); - - sol::state lua; - lua.open_libraries(sol::lib::base); - - SECTION("with usertypes") - { - struct foo { - foo(int bar) : bar(bar) {} - - const int bar; - }; - - lua.new_usertype<foo>("foo", - sol::constructors<sol::types<int>>{}, - "bar", &foo::bar - ); - - file << "return { modfunc = function () return foo.new(221) end }" << std::endl; - file.close(); - - const sol::table thingy1 = lua.require_file("thingy", FILE_NAME); - - CHECK(thingy1.valid()); - - const foo foo_v = thingy1["modfunc"](); - - int val1 = foo_v.bar; - - CHECK(val1 == 221); - } - - SECTION("simple") - { - file << "return { modfunc = function () return 221 end }" << std::endl; - file.close(); - - const sol::table thingy1 = lua.require_file("thingy", FILE_NAME); - const sol::table thingy2 = lua.require_file("thingy", FILE_NAME); - - CHECK(thingy1.valid()); - CHECK(thingy2.valid()); - - int val1 = thingy1["modfunc"](); - int val2 = thingy2["modfunc"](); - - CHECK(val1 == 221); - CHECK(val2 == 221); - // must have loaded the same table - CHECK(thingy1 == thingy2); - } - - std::remove(FILE_NAME); -} - -TEST_CASE("state/require_script", "opening strings as 'requires' clauses") { - std::string code = "return { modfunc = function () return 221 end }"; - - sol::state lua; - sol::table thingy1 = lua.require_script("thingy", code); - sol::table thingy2 = lua.require_script("thingy", code); - - int val1 = thingy1["modfunc"](); - int val2 = thingy2["modfunc"](); - REQUIRE(val1 == 221); - REQUIRE(val2 == 221); - // must have loaded the same table - REQUIRE(thingy1 == thingy2); -} - -TEST_CASE("state/require", "opening using a file") { - struct open { - static int open_func(lua_State* L) { - sol::state_view lua = L; - return sol::stack::push(L, lua.create_table_with("modfunc", sol::as_function([]() { return 221; }))); - } - }; - - sol::state lua; - sol::table thingy1 = lua.require("thingy", open::open_func); - sol::table thingy2 = lua.require("thingy", open::open_func); - - int val1 = thingy1["modfunc"](); - int val2 = thingy2["modfunc"](); - REQUIRE(val1 == 221); - REQUIRE(val2 == 221); - // THIS IS ONLY REQUIRED IN LUA 5.3, FOR SOME REASON - // must have loaded the same table - // REQUIRE(thingy1 == thingy2); -} - -TEST_CASE("state/multi-require", "make sure that requires transfers across hand-rolled script implementation and standard requiref") { - struct open { - static int open_func(lua_State* L) { - sol::state_view lua = L; - return sol::stack::push(L, lua.create_table_with("modfunc", sol::as_function([]() { return 221; }))); - } - }; - - std::string code = "return { modfunc = function () return 221 end }"; - sol::state lua; - sol::table thingy1 = lua.require("thingy", open::open_func); - sol::table thingy2 = lua.require("thingy", open::open_func); - sol::table thingy3 = lua.require_script("thingy", code); - - int val1 = thingy1["modfunc"](); - int val2 = thingy2["modfunc"](); - int val3 = thingy3["modfunc"](); - REQUIRE(val1 == 221); - REQUIRE(val2 == 221); - REQUIRE(val3 == 221); - // must have loaded the same table - // Lua is not obliged to give a shit. Thanks, Lua - //REQUIRE(thingy1 == thingy2); - // But we care, thankfully - //REQUIRE(thingy1 == thingy3); - REQUIRE(thingy2 == thingy3); -} - -TEST_CASE("feature/indexing-overrides", "make sure index functions can be overridden on types") { - struct PropertySet { - sol::object get_property_lua(const char* name, sol::this_state s) - { - auto& var = props[name]; - return sol::make_object(s, var); - } - - void set_property_lua(const char* name, sol::stack_object object) - { - props[name] = object.as<std::string>(); - } - - std::unordered_map<std::string, std::string> props; - }; - - struct DynamicObject { - PropertySet& get_dynamic_props() { - return dynamic_props; - } - - PropertySet dynamic_props; - }; - - sol::state lua; - lua.open_libraries(sol::lib::base); - - lua.new_usertype<PropertySet>("PropertySet" - , sol::meta_function::new_index, &PropertySet::set_property_lua - , sol::meta_function::index, &PropertySet::get_property_lua - ); - lua.new_usertype<DynamicObject>("DynamicObject" - , "props", sol::property(&DynamicObject::get_dynamic_props) - ); - - lua.script(R"__( -obj = DynamicObject:new() -obj.props.name = 'test name' -print('name = ' .. obj.props.name) -)__"); - - std::string name = lua["obj"]["props"]["name"]; - REQUIRE(name == "test name"); -} - -TEST_CASE("features/indexing-numbers", "make sure indexing functions can be override on usertypes") { - class vector { - public: - double data[3]; - - vector() : data{ 0,0,0 } {} - - double& operator[](int i) - { - return data[i]; - } - - - static double my_index(vector& v, int i) - { - return v[i]; - } - - static void my_new_index(vector& v, int i, double x) - { - v[i] = x; - } - }; - - sol::state lua; - lua.open_libraries(sol::lib::base); - lua.new_usertype<vector>("vector", sol::constructors<sol::types<>>(), - sol::meta_function::index, &vector::my_index, - sol::meta_function::new_index, &vector::my_new_index); - lua.script("v = vector.new()\n" - "print(v[1])\n" - "v[2] = 3\n" - "print(v[2])\n" - ); - - vector& v = lua["v"]; - REQUIRE(v[0] == 0.0); - REQUIRE(v[1] == 0.0); - REQUIRE(v[2] == 3.0); -} - -TEST_CASE("features/multiple-inheritance", "Ensure that multiple inheritance works as advertised") { - struct base1 { - int a1 = 250; - }; - - struct base2 { - int a2 = 500; - }; - - struct simple : base1 { - - }; - - struct complex : base1, base2 { - - }; - - - sol::state lua; - lua.open_libraries(sol::lib::base); - lua.new_usertype<base1>("base1", - "a1", &base1::a1 - ); - lua.new_usertype<base2>("base2", - "a2", &base2::a2 - ); - lua.new_usertype<simple>("simple", - "a1", &simple::a1, - sol::base_classes, sol::bases<base1>() - ); - lua.new_usertype<complex>("complex", - "a1", &complex::a1, - "a2", &complex::a2, - sol::base_classes, sol::bases<base1, base2>() - ); - lua.script("c = complex.new()\n" - "s = simple.new()\n" - "b1 = base1.new()\n" - "b2 = base1.new()\n" - ); - - base1* sb1 = lua["s"]; - REQUIRE(sb1 != nullptr); - REQUIRE(sb1->a1 == 250); - - base1* cb1 = lua["c"]; - base2* cb2 = lua["c"]; - - REQUIRE(cb1 != nullptr); - REQUIRE(cb2 != nullptr); - REQUIRE(cb1->a1 == 250); - REQUIRE(cb2->a2 == 500); -} - - -TEST_CASE("regressions/std::ref", "Ensure that std::reference_wrapper<> isn't considered as a function by using unwrap_unqualified_t trait") { - struct base1 { - int a1 = 250; - }; - - sol::state lua; - base1 v; - lua["vp"] = &v; - lua["vr"] = std::ref(v); - - base1* vp = lua["vp"]; - base1& vr = lua["vr"]; - REQUIRE(vp != nullptr); - REQUIRE(vp == &v); - - REQUIRE(vp->a1 == 250); - REQUIRE(vr.a1 == 250); - - v.a1 = 568; - - REQUIRE(vp->a1 == 568); - REQUIRE(vr.a1 == 568); -} - -TEST_CASE("optional/left-out-args", "Make sure arguments can be left out of optional without tanking miserably") { - - sol::state lua; - lua.open_libraries(sol::lib::base); - - // sol::optional needs an argument no matter what? - lua.set_function("func_opt_ret_bool", func_opt_ret_bool); - REQUIRE_NOTHROW( - lua.script(R"( - func_opt_ret_bool(42) - func_opt_ret_bool() - print('ok') - )"); - ); -} - -TEST_CASE("pusher/constness", "Make sure more types can handle being const and junk") { - struct Foo { - Foo(const sol::function& f) : _f(f) {} - const sol::function& _f; - - const sol::function& f() const { return _f; } - }; - - sol::state lua; - - lua.new_usertype<Foo>("Foo", - sol::call_constructor, sol::no_constructor, - "f", &Foo::f - ); - - lua["func"] = []() { return 20; }; - sol::function f = lua["func"]; - lua["foo"] = Foo(f); - Foo& foo = lua["foo"]; - int x = foo.f()(); - REQUIRE(x == 20); -} - -TEST_CASE("proxy/proper-pushing", "allow proxies to reference other proxies and be serialized as the proxy itself and not a function or something") { - sol::state lua; - lua.open_libraries(sol::lib::base, sol::lib::io); - - class T {}; - lua.new_usertype<T>("T"); - - T t; - lua["t1"] = &t; - lua["t2"] = lua["t1"]; - lua.script("b = t1 == t2"); - bool b = lua["b"]; - REQUIRE(b); -} - -TEST_CASE("proxy/equality", "check to make sure equality tests work") { - sol::state lua; - REQUIRE((lua["a"] == sol::nil)); - REQUIRE_FALSE((lua["a"] == nullptr)); - REQUIRE_FALSE((lua["a"] == 0)); - REQUIRE_FALSE((lua["a"] == 2)); - - lua["a"] = 2; - - REQUIRE_FALSE((lua["a"] == sol::nil)); //0 - REQUIRE_FALSE((lua["a"] == nullptr)); //0 - REQUIRE_FALSE((lua["a"] == 0)); //0 - REQUIRE((lua["a"] == 2)); //1 -} - -TEST_CASE("compilation/const-regression", "make sure constness in tables is respected all the way down") { - struct State { - public: - State() { - this->state_.registry()["state"] = this; - } - - sol::state state_; - }; - - State state; - State* s = state.state_.registry()["state"]; - REQUIRE(s == &state); -} - -TEST_CASE("numbers/integers", "make sure integers are detectable on most platforms") { - sol::state lua; - - lua["a"] = 50; // int - lua["b"] = 50.5; // double - - sol::object a = lua["a"]; - sol::object b = lua["b"]; - - bool a_is_int = a.is<int>(); - bool a_is_double = a.is<double>(); - - bool b_is_int = b.is<int>(); - bool b_is_double = b.is<double>(); - - REQUIRE(a_is_int); - REQUIRE(a_is_double); - - // TODO: will this fail on certain lower Lua versions? - REQUIRE_FALSE(b_is_int); - REQUIRE(b_is_double); -} - -TEST_CASE("state/script-returns", "make sure script returns are done properly") { - std::string script = - R"( -local example = -{ - str = "this is a string", - num = 1234, - - func = function(self) - print(self.str) - return "fstr" - end -} - -return example; -)"; - - auto bar = [&script](sol::this_state l) { - sol::state_view lua = l; - sol::table data = lua.script(script); - - std::string str = data["str"]; - int num = data["num"]; - std::string fstr = data["func"](data); - REQUIRE(str == "this is a string"); - REQUIRE(fstr == "fstr"); - REQUIRE(num == 1234); - }; - - auto foo = [&script](int, sol::this_state l) { - sol::state_view lua = l; - sol::table data = lua.script(script); - - std::string str = data["str"]; - int num = data["num"]; - std::string fstr = data["func"](data); - REQUIRE(str == "this is a string"); - REQUIRE(fstr == "fstr"); - REQUIRE(num == 1234); - }; - - auto bar2 = [&script](sol::this_state l) { - sol::state_view lua = l; - sol::table data = lua.do_string(script); - - std::string str = data["str"]; - int num = data["num"]; - std::string fstr = data["func"](data); - REQUIRE(str == "this is a string"); - REQUIRE(fstr == "fstr"); - REQUIRE(num == 1234); - }; - - auto foo2 = [&script](int, sol::this_state l) { - sol::state_view lua = l; - sol::table data = lua.do_string(script); - - std::string str = data["str"]; - int num = data["num"]; - std::string fstr = data["func"](data); - REQUIRE(str == "this is a string"); - REQUIRE(fstr == "fstr"); - REQUIRE(num == 1234); - }; - - sol::state lua; - lua.open_libraries(); - - lua.set_function("foo", foo); - lua.set_function("foo2", foo2); - lua.set_function("bar", bar); - lua.set_function("bar2", bar2); - - lua.script("bar() bar2() foo(1) foo2(1)"); -} |