test/test_null_pointer.cpp

   1 #include "test.h"
   2
   3 namespace
   4 {
   5
   6         struct A
   7         {
   8                 A* f() { return 0; }
   9         };
  10
  11         A* get_pointer()
  12         {
  13                 return 0;
  14         }
  15
  16 } // anonymous namespace
  17
  18
  19 bool test_null_pointer()
  20 {
  21         using namespace luabind;
  22
  23         lua_State* L = lua_open();
  24         lua_closer c(L);
  25         int top = lua_gettop(L);
  26
  27         open(L);
  28
  29         class_<A>(L, "A")
  30                 .def(constructor<>())
  31                 .def("f", &A::f);
  32
  33         function(L, "get_pointer", get_pointer);
  34         if (dostring(L, "e = get_pointer()")) return false;
  35
  36         lua_pushstring(L, "e");
  37         lua_gettable(L, LUA_GLOBALSINDEX);
  38         if (!lua_isnil(L, -1)) return false;
  39         lua_pop(L, 1);
  40
  41         if (dostring(L, "a = A() e = a:f()")) return false;
  42         lua_pushstring(L, "e");
  43         lua_gettable(L, LUA_GLOBALSINDEX);
  44         if (!lua_isnil(L, -1)) return false;
  45         lua_pop(L, 1);
  46
  47         if (top != lua_gettop(L)) return false;
  48
  49         return true;
  50 }