test/test-suite: Remove print calls

10 files changed, 81 insertions, 80 deletions

diff --git a/test/test-suite/api.test.js b/test/test-suite/api.test.js
index 152ddcf..5a5e10e 100644
--- a/test/test-suite/api.test.js
+++ b/test/test-suite/api.test.js
@@ -686,7 +686,7 @@ test("[test-suite] api: test errors in non protected threads", () => {
 
         if not _soft then
           checkerrnopro("pushnum 3; call 0 0", "attempt to call")
-          print"testing stack overflow in unprotected thread"
+          -- print"testing stack overflow in unprotected thread"
           function f () f() end
           checkerrnopro("getglobal 'f'; call 0 0;", "stack overflow")
         end
diff --git a/test/test-suite/attrib.test.js b/test/test-suite/attrib.test.js
index 596c82c..bb07e62 100644
--- a/test/test-suite/attrib.test.js
+++ b/test/test-suite/attrib.test.js
@@ -23,7 +23,7 @@ test("[test-suite] attrib: testing require", () => {
         assert(type(package.preload) == "table")
 
         assert(type(package.config) == "string")
-        print("package config: "..string.gsub(package.config, "\\n", "|"))
+        -- print("package config: "..string.gsub(package.config, "\\n", "|"))
 
         do
           -- create a path with 'max' templates,
diff --git a/test/test-suite/code.test.js b/test/test-suite/code.test.js
index d37030c..377dd63 100644
--- a/test/test-suite/code.test.js
+++ b/test/test-suite/code.test.js
@@ -45,7 +45,7 @@ const prefix = `
       local arg = {...}
       local c = T.listcode(f)
       for i=1, #arg do
-        print(arg[i], c[i])
+        -- print(arg[i], c[i])
         assert(string.find(c[i], '- '..arg[i]..' *%d'))
       end
       assert(c[#arg+2] == nil)
diff --git a/test/test-suite/constructs.test.js b/test/test-suite/constructs.test.js
index de0648d..e79778a 100644
--- a/test/test-suite/constructs.test.js
+++ b/test/test-suite/constructs.test.js
@@ -332,7 +332,7 @@ test.skip('[test-suite] constructs: huge loops, upvalue', () => {
             IX = false
             assert(p() == v[2] and IX == not not v[2])
             i = i + 1
-            if i % 60000 == 0 then print('+') end
+            -- if i % 60000 == 0 then print('+') end
           end
         end
     `;
diff --git a/test/test-suite/db.test.js b/test/test-suite/db.test.js
index 38330db..89ec66d 100644
--- a/test/test-suite/db.test.js
+++ b/test/test-suite/db.test.js
@@ -598,8 +598,7 @@ test("[test-suite] db: tests for tail calls", () => {
             local tail = debug.getinfo(2)
             assert(tail.func == g1 and tail.istailcall == true)
             assert(debug.getinfo(3, "S").what == "main")
-            print"+"
-            end
+          end
         end
 
         function g(x) return f(x) end
diff --git a/test/test-suite/math.test.js b/test/test-suite/math.test.js
index c649225..9cf4e21 100644
--- a/test/test-suite/math.test.js
+++ b/test/test-suite/math.test.js
@@ -80,8 +80,8 @@ test("[test-suite] math: number of bits in the mantissa of a floating-point numb
           local x = 2.0^floatbits
           assert(x > x - 1.0 and x == x + 1.0)
 
-          print(string.format("%d-bit integers, %d-bit (mantissa) floats",
-                               intbits, floatbits))
+          -- print(string.format("%d-bit integers, %d-bit (mantissa) floats",
+          --                      intbits, floatbits))
         end
 
         assert(math.type(0) == "integer" and math.type(0.0) == "float"
@@ -304,66 +304,69 @@ test("[test-suite] math: order between floats and integers", () => {
           assert(minint <= -2^(intbits - 1))
           assert(-2^(intbits - 1) <= minint)
         end
+    `;
+    lualib.luaL_openlibs(L);
+    if (lauxlib.luaL_loadstring(L, to_luastring(prefix + luaCode)) === lua.LUA_ERRSYNTAX)
+        throw new SyntaxError(lua.lua_tojsstring(L, -1));
+    lua.lua_call(L, 0, 0);
+});
 
-        if floatbits < intbits then
-          print("testing order (floats cannot represent all integers)")
-          local fmax = 2^floatbits
-          local ifmax = fmax | 0
-          assert(fmax < ifmax + 1)
-          assert(fmax - 1 < ifmax)
-          assert(-(fmax - 1) > -ifmax)
-          assert(not (fmax <= ifmax - 1))
-          assert(-fmax > -(ifmax + 1))
-          assert(not (-fmax >= -(ifmax - 1)))
-
-          assert(fmax/2 - 0.5 < ifmax//2)
-          assert(-(fmax/2 - 0.5) > -ifmax//2)
-
-          assert(maxint < 2^intbits)
-          assert(minint > -2^intbits)
-          assert(maxint <= 2^intbits)
-          assert(minint >= -2^intbits)
-        else
-          print("testing order (floats can represent all integers)")
-          assert(maxint < maxint + 1.0)
-          assert(maxint < maxint + 0.5)
-          assert(maxint - 1.0 < maxint)
-          assert(maxint - 0.5 < maxint)
-          assert(not (maxint + 0.0 < maxint))
-          assert(maxint + 0.0 <= maxint)
-          assert(not (maxint < maxint + 0.0))
-          assert(maxint + 0.0 <= maxint)
-          assert(maxint <= maxint + 0.0)
-          assert(not (maxint + 1.0 <= maxint))
-          assert(not (maxint + 0.5 <= maxint))
-          assert(not (maxint <= maxint - 1.0))
-          assert(not (maxint <= maxint - 0.5))
-
-          assert(minint < minint + 1.0)
-          assert(minint < minint + 0.5)
-          assert(minint <= minint + 0.5)
-          assert(minint - 1.0 < minint)
-          assert(minint - 1.0 <= minint)
-          assert(not (minint + 0.0 < minint))
-          assert(not (minint + 0.5 < minint))
-          assert(not (minint < minint + 0.0))
-          assert(minint + 0.0 <= minint)
-          assert(minint <= minint + 0.0)
-          assert(not (minint + 1.0 <= minint))
-          assert(not (minint + 0.5 <= minint))
-          assert(not (minint <= minint - 1.0))
-        end
 
-        do
-          local NaN = 0/0
-          assert(not (NaN < 0))
-          assert(not (NaN > minint))
-          assert(not (NaN <= -9))
-          assert(not (NaN <= maxint))
-          assert(not (NaN < maxint))
-          assert(not (minint <= NaN))
-          assert(not (minint < NaN))
-        end
+test("[test-suite] math: testing order (floats can represent all integers)", () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        assert(floatbits >= intbits)
+
+        assert(maxint < maxint + 1.0)
+        assert(maxint < maxint + 0.5)
+        assert(maxint - 1.0 < maxint)
+        assert(maxint - 0.5 < maxint)
+        assert(not (maxint + 0.0 < maxint))
+        assert(maxint + 0.0 <= maxint)
+        assert(not (maxint < maxint + 0.0))
+        assert(maxint + 0.0 <= maxint)
+        assert(maxint <= maxint + 0.0)
+        assert(not (maxint + 1.0 <= maxint))
+        assert(not (maxint + 0.5 <= maxint))
+        assert(not (maxint <= maxint - 1.0))
+        assert(not (maxint <= maxint - 0.5))
+
+        assert(minint < minint + 1.0)
+        assert(minint < minint + 0.5)
+        assert(minint <= minint + 0.5)
+        assert(minint - 1.0 < minint)
+        assert(minint - 1.0 <= minint)
+        assert(not (minint + 0.0 < minint))
+        assert(not (minint + 0.5 < minint))
+        assert(not (minint < minint + 0.0))
+        assert(minint + 0.0 <= minint)
+        assert(minint <= minint + 0.0)
+        assert(not (minint + 1.0 <= minint))
+        assert(not (minint + 0.5 <= minint))
+        assert(not (minint <= minint - 1.0))
+    `;
+    lualib.luaL_openlibs(L);
+    if (lauxlib.luaL_loadstring(L, to_luastring(prefix + luaCode)) === lua.LUA_ERRSYNTAX)
+        throw new SyntaxError(lua.lua_tojsstring(L, -1));
+    lua.lua_call(L, 0, 0);
+});
+
+
+test("[test-suite] math: NaN order", () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local NaN = 0/0
+        assert(not (NaN < 0))
+        assert(not (NaN > minint))
+        assert(not (NaN <= -9))
+        assert(not (NaN <= maxint))
+        assert(not (NaN < maxint))
+        assert(not (minint <= NaN))
+        assert(not (minint < NaN))
     `;
     lualib.luaL_openlibs(L);
     if (lauxlib.luaL_loadstring(L, to_luastring(prefix + luaCode)) === lua.LUA_ERRSYNTAX)
@@ -988,7 +991,6 @@ test("[test-suite] math: testing -0 and NaN", () => {
 
     let luaCode = `
         do
-          print("testing -0 and NaN")
           local mz, z = -0.0, 0.0
           assert(mz == z)
           assert(1/mz < 0 and 0 < 1/z)
diff --git a/test/test-suite/sort.test.js b/test/test-suite/sort.test.js
index 154db03..cc33c0c 100644
--- a/test/test-suite/sort.test.js
+++ b/test/test-suite/sort.test.js
@@ -22,7 +22,7 @@ const prefix = `
       table.sort(a, func)
       x = (os.clock() - x) * 1000
       pre = pre or ""
-      print(string.format("%ssorting %d %s elements in %.2f msec.", pre, n, msg, x))
+      -- print(string.format("%ssorting %d %s elements in %.2f msec.", pre, n, msg, x))
       check(a, func)
     end
 
@@ -397,8 +397,8 @@ test("[test-suite] sort: Invert-sorting", () => {
         x = os.clock(); i=0
         table.sort(a, function(x,y) i=i+1; return y<x end)
         x = (os.clock() - x) * 1000
-        print(string.format("Invert-sorting other %d elements in %.2f msec., with %i comparisons",
-              limit, x, i))
+        -- print(string.format("Invert-sorting other %d elements in %.2f msec., with %i comparisons",
+        --       limit, x, i))
         check(a, function(x,y) return y<x end)
 
         table.sort{}  -- empty array
diff --git a/test/test-suite/strings.test.js b/test/test-suite/strings.test.js
index 7003b89..0e37674 100644
--- a/test/test-suite/strings.test.js
+++ b/test/test-suite/strings.test.js
@@ -433,7 +433,7 @@ test("[test-suite] strings: 'format %a %A'", () => {
           end
 
           if not pcall(string.format, "%.3a", 0) then
-            (Message or print)("\\n >>> modifiers for format '%a' not available <<<\\n")
+            -- (Message or print)("\\n >>> modifiers for format '%a' not available <<<\\n")
           else
             assert(string.find(string.format("%+.2A", 12), "^%+0X%x%.%x0P%+?%d$"))
             assert(string.find(string.format("%.4A", -12), "^%-0X%x%.%x000P%+?%d$"))
diff --git a/test/test-suite/tpack.test.js b/test/test-suite/tpack.test.js
index 132956e..3b97d3a 100644
--- a/test/test-suite/tpack.test.js
+++ b/test/test-suite/tpack.test.js
@@ -38,14 +38,14 @@ test("[test-suite] tpack: maximum size for integers", () => {
         assert(1 <= sizeshort and sizeshort <= sizeint and sizeint <= sizelong and
                sizefloat <= sizedouble)
 
-        print("platform:")
-        print(string.format(
-          "\\tshort %d, int %d, long %d, size_t %d, float %d, double %d,\\n\\z
-           \\tlua Integer %d, lua Number %d",
-           sizeshort, sizeint, sizelong, sizesize_t, sizefloat, sizedouble,
-           sizeLI, sizenumber))
-        print("\\t" .. (little and "little" or "big") .. " endian")
-        print("\\talignment: " .. align)
+        -- print("platform:")
+        -- print(string.format(
+        --   "\\tshort %d, int %d, long %d, size_t %d, float %d, double %d,\\n\\z
+        --    \\tlua Integer %d, lua Number %d",
+        --    sizeshort, sizeint, sizelong, sizesize_t, sizefloat, sizedouble,
+        --    sizeLI, sizenumber))
+        -- print("\\t" .. (little and "little" or "big") .. " endian")
+        -- print("\\talignment: " .. align)
     `;
     lualib.luaL_openlibs(L);
     if (lauxlib.luaL_loadstring(L, to_luastring(prefix + luaCode)) === lua.LUA_ERRSYNTAX)
diff --git a/test/test-suite/vararg.test.js b/test/test-suite/vararg.test.js
index 78439f1..0538541 100644
--- a/test/test-suite/vararg.test.js
+++ b/test/test-suite/vararg.test.js
@@ -45,7 +45,7 @@ test("[test-suite] vararg: testing vararg", () => {
         assert(a[1] == b and a[2] == c and a.n == 2)
         a = vararg(call(call, {c12, {1,2}}))
         assert(a.n == 2 and a[1] == 55 and a[2] == 2)
-        a = call(print, {'+'})
+        a = call(function()end, {'+'})
         assert(a == nil)
 
         local t = {1, 10}