From eeb3d8ac1de70703ce7db4788b7fb43fcda80aa8 Mon Sep 17 00:00:00 2001
From: Benoit Giannangeli <giann008@gmail.com>
Date: Wed, 12 Apr 2017 10:06:25 +0200
Subject: debug.getinfo

---
 tests/ldblib.js | 84 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)

(limited to 'tests')

diff --git a/tests/ldblib.js b/tests/ldblib.js
index c95ab9e..a770c76 100644
--- a/tests/ldblib.js
+++ b/tests/ldblib.js
@@ -206,3 +206,87 @@ test('debug.traceback (with a upvalue)', function (t) {
     );
 
 });
+
+test('debug.getinfo', function (t) {
+    let luaCode = `
+        local alocal = function(p1, p2) end
+        global = function() return alocal end
+
+        local d1 = debug.getinfo(alocal)
+        local d2 = debug.getinfo(global)
+
+        print(d1.short_src, d1.nups, d1.what, d1.nparams,
+              d2.short_src, d2.nups, d2.what, d2.nparams)
+
+        return d1.short_src, d1.nups, d1.what, d1.nparams,
+               d2.short_src, d2.nups, d2.what, d2.nparams
+    `, L;
+    
+    t.plan(10);
+
+    t.doesNotThrow(function () {
+
+        L = lauxlib.luaL_newstate();
+
+        linit.luaL_openlibs(L);
+
+        luaCode = lua.to_luastring(luaCode);
+        lauxlib.luaL_loadbuffer(L, luaCode, luaCode.length, lua.to_luastring("getinfo-test"));
+
+    }, "Lua program loaded without error");
+
+    t.doesNotThrow(function () {
+
+        lapi.lua_call(L, 0, -1);
+
+    }, "Lua program ran without error");
+
+    t.strictEqual(
+        lapi.lua_tojsstring(L, -8),
+        `[string "getinfo-test"]`,
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tointeger(L, -7),
+        0,
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tojsstring(L, -6),
+        `Lua`,
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tointeger(L, -5),
+        2,
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tojsstring(L, -4),
+        `[string "getinfo-test"]`,
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tointeger(L, -3),
+        1,
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tojsstring(L, -2),
+        `Lua`,
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tointeger(L, -1),
+        0,
+        "Correct element(s) on the stack"
+    );
+
+});
-- 
cgit v1.2.3-70-g09d2