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         module(L)
  30         [
  31                 class_<A>("A")
  32                         .def(constructor<>())
  33                         .def("f", &A::f),
  34
  35                 def("get_pointer", get_pointer)
  36         ];
  37         if (dostring(L, "e = get_pointer()")) return false;
  38
  39         lua_pushstring(L, "e");
  40         lua_gettable(L, LUA_GLOBALSINDEX);
  41         if (!lua_isnil(L, -1)) return false;
  42         lua_pop(L, 1);
  43
  44         if (dostring(L, "a = A() e = a:f()")) return false;
  45         lua_pushstring(L, "e");
  46         lua_gettable(L, LUA_GLOBALSINDEX);
  47         if (!lua_isnil(L, -1)) return false;
  48         lua_pop(L, 1);
  49
  50         if (top != lua_gettop(L)) return false;
  51
  52         return true;
  53 }