test/test_scope.cpp

   1 // Copyright (c) 2004 Daniel Wallin and Arvid Norberg
   2
   3 // Permission is hereby granted, free of charge, to any person obtaining a
   4 // copy of this software and associated documentation files (the "Software"),
   5 // to deal in the Software without restriction, including without limitation
   6 // the rights to use, copy, modify, merge, publish, distribute, sublicense,
   7 // and/or sell copies of the Software, and to permit persons to whom the
   8 // Software is furnished to do so, subject to the following conditions:
   9
  10 // The above copyright notice and this permission notice shall be included
  11 // in all copies or substantial portions of the Software.
  12
  13 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF
  14 // ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
  15 // TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
  16 // PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT
  17 // SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
  18 // ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
  19 // ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  20 // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE
  21 // OR OTHER DEALINGS IN THE SOFTWARE.
  22
  23 #include "test.hpp"
  24 #include <luabind/luabind.hpp>
  25
  26 namespace
  27 {
  28         int f() { return 1; }
  29         int f_(int a) { return 2; }
  30         int f__(int a) { return 3; }
  31         int g() { return 4; }
  32         int g_(int)     { return 5; }
  33         int h() { return 6; }
  34
  35         struct test_class : counted_type<test_class>
  36         {
  37                 test_class()
  38                         : test(1)
  39                 {}
  40                 int test;
  41         };
  42
  43         struct test_class2 : counted_type<test_class2>
  44         {
  45                 test_class2() {}
  46                 int string_string(std::string const& s1, std::string const& s2)
  47                 { return 1; }
  48         };
  49
  50 }
  51
  52 void test_scope()
  53 {
  54     COUNTER_GUARD(test_class);
  55     COUNTER_GUARD(test_class2);
  56
  57         lua_state L;
  58
  59         using namespace luabind;
  60
  61         module(L)
  62         [
  63                 class_<test_class2>("test_class2")
  64                                 .def(constructor<>())
  65                                 .def("string_string", &test_class2::string_string)
  66         ];
  67
  68         module(L, "test")
  69         [
  70                 class_<test_class>("test_class")
  71                         .def(constructor<>())
  72                         .def_readonly("test", &test_class::test)
  73 //                      .static_()
  74                         [
  75                                 def("inner_fun", &f)
  76                         ]
  77                         .enum_("vals")
  78                         [
  79                                 value("val1", 1),
  80                                 value("val2", 2)
  81                         ],
  82
  83                 def("f", &f),
  84                 def("f", &f_),
  85
  86                 namespace_("inner")
  87                 [
  88                         def("g", &g),
  89                         def("f", &f__)
  90                 ],
  91
  92                 namespace_("inner")
  93                 [
  94                         def("g", &g_)
  95                 ]
  96
  97         ];
  98
  99         module(L, "test")
 100         [
 101                 namespace_("inner")
 102                 [
 103                         def("h", &h)
 104                 ]
 105         ];
 106
 107
 108         DOSTRING(L, "assert(test.f() == 1)");
 109         DOSTRING(L, "assert(test.f(3) == 2)");
 110         DOSTRING(L, "assert(test.test_class.inner_fun() == 1)");
 111         DOSTRING(L,
 112                 "a = test.test_class()\n"
 113                 "assert(a.test == 1)");
 114         DOSTRING(L,
 115                 "b = test.test_class.val2\n"
 116                 "assert(b == 2)");
 117         DOSTRING(L, "assert(test.inner.g() == 4)");
 118         DOSTRING(L, "assert(test.inner.g(7) == 5)");
 119         DOSTRING(L, "assert(test.inner.f(4) == 3)");
 120         DOSTRING(L, "assert(test.inner.h() == 6)");
 121 }
 122