From 7ef345bee73f6cc843b0d82866d036a3ac5829ca Mon Sep 17 00:00:00 2001
From: Benoit Giannangeli <giann008@gmail.com>
Date: Fri, 5 May 2017 15:24:00 +0200
Subject: Binary chunk can be a lua string (string.dump)

---
 tests/test-suite/calls.js | 35 +++++++++++++++++++++++++++++++----
 1 file changed, 31 insertions(+), 4 deletions(-)

(limited to 'tests/test-suite')

diff --git a/tests/test-suite/calls.js b/tests/test-suite/calls.js
index f7ea559..bccad87 100644
--- a/tests/test-suite/calls.js
+++ b/tests/test-suite/calls.js
@@ -378,7 +378,6 @@ test("[test-suite] calls: test for generic load", function (t) {
         function read1 (x)
           local i = 0
           return function ()
-            --print(x)
             i=i+1
             return string.sub(x, i, i)
           end
@@ -401,7 +400,7 @@ test("[test-suite] calls: test for generic load", function (t) {
         assert(not load(function () return true end))
     `, L;
     
-    t.plan(1);
+    t.plan(2);
 
     t.doesNotThrow(function () {
 
@@ -413,10 +412,38 @@ test("[test-suite] calls: test for generic load", function (t) {
 
     }, "Lua program loaded without error");
 
-    // t.doesNotThrow(function () {
+    t.doesNotThrow(function () {
 
         lua.lua_call(L, 0, -1);
 
-    // }, "Lua program ran without error");
+    }, "Lua program ran without error");
+
+});
+
+
+test("[test-suite] calls: small bug", function (t) {
+    let luaCode = `
+        local t = {nil, "return ", "3"}
+        f, msg = load(function () return table.remove(t, 1) end)
+        assert(f() == nil)   -- should read the empty chunk
+    `, L;
+    
+    t.plan(2);
+
+    t.doesNotThrow(function () {
+
+        L = lauxlib.luaL_newstate();
+
+        lauxlib.luaL_openlibs(L);
+
+        lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode));
+
+    }, "Lua program loaded without error");
+
+    t.doesNotThrow(function () {
+
+        lua.lua_call(L, 0, -1);
+
+    }, "Lua program ran without error");
 
 });
-- 
cgit v1.2.3-70-g09d2