contrib/lutok/debug_test.cpp

   1 // Copyright 2011 Google Inc.
   2 // All rights reserved.
   3 //
   4 // Redistribution and use in source and binary forms, with or without
   5 // modification, are permitted provided that the following conditions are
   6 // met:
   7 //
   8 // * Redistributions of source code must retain the above copyright
   9 //   notice, this list of conditions and the following disclaimer.
  10 // * Redistributions in binary form must reproduce the above copyright
  11 //   notice, this list of conditions and the following disclaimer in the
  12 //   documentation and/or other materials provided with the distribution.
  13 // * Neither the name of Google Inc. nor the names of its contributors
  14 //   may be used to endorse or promote products derived from this software
  15 //   without specific prior written permission.
  16 //
  17 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  18 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  19 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  20 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
  21 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  22 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  23 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  24 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  25 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  26 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  27 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28
  29 #include "debug.hpp"
  30
  31 #include <atf-c++.hpp>
  32 #include <lua.hpp>
  33
  34 #include "state.ipp"
  35 #include "test_utils.hpp"
  36
  37
  38 ATF_TEST_CASE_WITHOUT_HEAD(get_info);
  39 ATF_TEST_CASE_BODY(get_info)
  40 {
  41     lutok::state state;
  42     ATF_REQUIRE(luaL_dostring(raw(state), "\n\nfunction hello() end\n"
  43                               "return hello") == 0);
  44     lutok::debug debug;
  45     debug.get_info(state, ">S");
  46     ATF_REQUIRE_EQ(3, debug.line_defined());
  47 }
  48
  49
  50 ATF_TEST_CASE_WITHOUT_HEAD(get_stack);
  51 ATF_TEST_CASE_BODY(get_stack)
  52 {
  53     lutok::state state;
  54     ATF_REQUIRE(luaL_dostring(raw(state), "error('Hello')") == 1);
  55     lutok::debug debug;
  56     debug.get_stack(state, 0);
  57     lua_pop(raw(state), 1);
  58     // Not sure if we can actually validate anything here, other than we did not
  59     // crash... (because get_stack only is supposed to update internal values of
  60     // the debug structure).
  61 }
  62
  63
  64 ATF_INIT_TEST_CASES(tcs)
  65 {
  66     ATF_ADD_TEST_CASE(tcs, get_info);
  67     ATF_ADD_TEST_CASE(tcs, get_stack);
  68 }