summaryrefslogtreecommitdiff
path: root/tests/lapi.js
diff options
context:
space:
mode:
Diffstat (limited to 'tests/lapi.js')
-rw-r--r--tests/lapi.js544
1 files changed, 0 insertions, 544 deletions
diff --git a/tests/lapi.js b/tests/lapi.js
deleted file mode 100644
index 56859d8..0000000
--- a/tests/lapi.js
+++ /dev/null
@@ -1,544 +0,0 @@
-"use strict";
-
-const test = require('tape');
-
-const tests = require("./tests.js");
-const toByteCode = tests.toByteCode;
-
-const lua = require('../src/lua.js');
-const lauxlib = require("../src/lauxlib.js");
-const {to_luastring} = require("../src/fengaricore.js");
-
-test('luaL_newstate, lua_pushnil, luaL_typename', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushnil(L);
-
- }, "JS Lua program ran without error");
-
- t.deepEqual(
- lauxlib.luaL_typename(L, -1),
- "nil".split('').map(e => e.charCodeAt(0)),
- "Correct element(s) on the stack"
- );
-});
-
-
-test('lua_pushnumber', function (t) {
- let L;
-
- t.plan(3);
-
- t.doesNotThrow(function () {
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushnumber(L, 10.5);
-
- }, "JS Lua program ran without error");
-
- t.deepEqual(
- lauxlib.luaL_typename(L, -1),
- "number".split('').map(e => e.charCodeAt(0)),
- "Correct element(s) on the stack"
- );
-
- t.strictEqual(
- lua.lua_tonumber(L, -1),
- 10.5,
- "top is correct"
- );
-});
-
-
-test('lua_pushinteger', function (t) {
- let L;
-
- t.plan(3);
-
- t.doesNotThrow(function () {
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushinteger(L, 10);
-
- }, "JS Lua program ran without error");
-
- t.deepEqual(
- lauxlib.luaL_typename(L, -1),
- "number".split('').map(e => e.charCodeAt(0)),
- "Correct element(s) on the stack"
- );
-
- t.strictEqual(
- lua.lua_tointeger(L, -1),
- 10,
- "top is correct"
- );
-});
-
-
-test('lua_pushliteral', function (t) {
- let L;
-
- t.plan(3);
-
- t.doesNotThrow(function () {
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushliteral(L, "hello");
-
- }, "JS Lua program ran without error");
-
- t.deepEqual(
- lauxlib.luaL_typename(L, -1),
- "string".split('').map(e => e.charCodeAt(0)),
- "Correct element(s) on the stack"
- );
-
- t.strictEqual(
- lua.lua_tojsstring(L, -1),
- "hello",
- "top is correct"
- );
-});
-
-
-test('lua_pushboolean', function (t) {
- let L;
-
- t.plan(3);
-
- t.doesNotThrow(function () {
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushboolean(L, true);
-
- }, "JS Lua program ran without error");
-
- t.deepEqual(
- lauxlib.luaL_typename(L, -1),
- "boolean".split('').map(e => e.charCodeAt(0)),
- "Correct element(s) on the stack"
- );
-
- t.strictEqual(
- lua.lua_toboolean(L, -1),
- true,
- "top is correct"
- );
-});
-
-
-test('lua_pushvalue', function (t) {
- let L;
-
- t.plan(5);
-
- t.doesNotThrow(function () {
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushliteral(L, "hello");
-
- lua.lua_pushvalue(L, -1);
-
- }, "JS Lua program ran without error");
-
- t.deepEqual(
- lauxlib.luaL_typename(L, -1),
- "string".split('').map(e => e.charCodeAt(0)),
- "Correct element(s) on the stack"
- );
-
- t.deepEqual(
- lauxlib.luaL_typename(L, -2),
- "string".split('').map(e => e.charCodeAt(0)),
- "Correct element(s) on the stack"
- );
-
- t.strictEqual(
- lua.lua_tojsstring(L, -1),
- "hello",
- "Correct element(s) on the stack"
- );
-
- t.strictEqual(
- lua.lua_tojsstring(L, -2),
- "hello",
- "Correct element(s) on the stack"
- );
-});
-
-
-test('lua_pushjsclosure', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
-
- let fn = function(L) {
- return 0;
- };
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushliteral(L, "a value associated to the C closure");
- lua.lua_pushjsclosure(L, fn, 1);
-
- }, "JS Lua program ran without error");
-
- t.deepEqual(
- lauxlib.luaL_typename(L, -1),
- "function".split('').map(e => e.charCodeAt(0)),
- "Correct element(s) on the stack"
- );
-});
-
-
-test('lua_pushjsfunction', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
-
- let fn = function(L) {
- return 0;
- };
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushjsfunction(L, fn);
-
- }, "JS Lua program ran without error");
-
- t.deepEqual(
- lauxlib.luaL_typename(L, -1),
- "function".split('').map(e => e.charCodeAt(0)),
- "Correct element(s) on the stack"
- );
-});
-
-
-test('lua_call (calling a light JS function)', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
-
- let fn = function(L) {
- lua.lua_pushliteral(L, "hello");
- return 1;
- };
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushjsfunction(L, fn);
-
- lua.lua_call(L, 0, 1);
-
- }, "JS Lua program ran without error");
-
- t.strictEqual(
- lua.lua_tojsstring(L, -1),
- "hello",
- "top is correct"
- );
-});
-
-
-test('lua_call (calling a JS closure)', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
-
- let fn = function(L) {
- lua.lua_pushstring(L, lua.lua_tostring(L, lua.lua_upvalueindex(1)));
- return 1;
- };
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushliteral(L, "upvalue hello !");
- lua.lua_pushjsclosure(L, fn, 1);
-
- lua.lua_call(L, 0, 1);
-
- }, "JS Lua program ran without error");
-
- t.strictEqual(
- lua.lua_tojsstring(L, -1),
- "upvalue hello !",
- "top is correct"
- );
-});
-
-
-test('lua_pcall (calling a light JS function)', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
-
- let fn = function(L) {
- lua.lua_pushliteral(L, "hello");
- return 1;
- };
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushjsfunction(L, fn);
-
- lua.lua_pcall(L, 0, 1, 0);
-
- }, "JS Lua program ran without error");
-
- t.strictEqual(
- lua.lua_tojsstring(L, -1),
- "hello",
- "top is correct"
- );
-});
-
-
-test('lua_pcall that breaks', function (t) {
- let L;
-
- t.plan(1);
-
- t.doesNotThrow(function () {
-
- let fn = function(L) {
- return "undefined_value";
- };
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushjsfunction(L, fn);
-
- lua.lua_pcall(L, 0, 1, 0);
-
- }, "JS Lua program ran without error");
-
- console.log(L.stack[L.top - 1].value);
-});
-
-
-test('lua_pop', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_pushliteral(L, "hello");
- lua.lua_pushliteral(L, "world");
-
- lua.lua_pop(L, 1);
-
- }, "JS Lua program ran without error");
-
- t.strictEqual(
- lua.lua_tojsstring(L, -1),
- "hello",
- "Correct element(s) on the stack"
- );
-});
-
-
-test('lua_load with no chunkname', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
- L = lauxlib.luaL_newstate();
-
- lua.lua_load(L, function(L, s) { let r = s.code; s.code = null; return r; }, {code: to_luastring("return 'hello'")}, null, null);
-
- lua.lua_call(L, 0, 1);
- }, "JS Lua program ran without error");
-
- t.strictEqual(
- lua.lua_tojsstring(L, -1),
- "hello",
- "Correct element(s) on the stack"
- );
-});
-
-test('lua_load and lua_call it', function (t) {
- let luaCode = `
- local a = "JS > Lua > JS \\\\o/"
- return a
- `, L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
-
- let bc = toByteCode(luaCode);
-
- L = lauxlib.luaL_newstate();
-
- lua.lua_load(L, function(L, s) { let r = s.bc; s.bc = null; return r; }, {bc: bc}, to_luastring("test-lua_load"), to_luastring("binary"));
-
- lua.lua_call(L, 0, 1);
-
- }, "JS Lua program ran without error");
-
- t.strictEqual(
- lua.lua_tojsstring(L, -1),
- "JS > Lua > JS \\o/",
- "Correct element(s) on the stack"
- );
-});
-
-
-test('lua script reads js upvalues', function (t) {
- let luaCode = `
- return js .. " world"
- `, L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
-
- L = lauxlib.luaL_newstate();
-
- lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
- lua.lua_pushliteral(L, "hello");
- lua.lua_setglobal(L, to_luastring("js"));
-
- lua.lua_call(L, 0, 1);
-
- }, "JS Lua program ran without error");
-
- t.strictEqual(
- lua.lua_tojsstring(L, -1),
- "hello world",
- "Correct element(s) on the stack"
- );
-});
-
-
-test('lua_createtable', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
- L = lauxlib.luaL_newstate();
-
- lua.lua_createtable(L, 3, 3);
-
- }, "JS Lua program ran without error");
-
- t.ok(
- lua.lua_istable(L, -1),
- "Correct element(s) on the stack"
- );
-});
-
-
-test('lua_newtable', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
- L = lauxlib.luaL_newstate();
-
- lua.lua_newtable(L);
-
- }, "JS Lua program ran without error");
-
- t.ok(
- lua.lua_istable(L, -1),
- "Correct element(s) on the stack"
- );
-});
-
-
-test('lua_settable, lua_gettable', function (t) {
- let L;
-
- t.plan(2);
-
- t.doesNotThrow(function () {
- L = lauxlib.luaL_newstate();
-
- lua.lua_newtable(L);
-
- lua.lua_pushliteral(L, "key");
- lua.lua_pushliteral(L, "value");
-
- lua.lua_settable(L, -3);
-
- lua.lua_pushliteral(L, "key");
- lua.lua_gettable(L, -2);
-
- }, "JS Lua program ran without error");
-
- t.strictEqual(
- lua.lua_tojsstring(L, -1),
- "value",
- "Correct element(s) on the stack"
- );
-});
-
-test('lua_atnativeerror', function(t) {
- t.plan(7);
-
- let L = lauxlib.luaL_newstate();
- let errob = {};
-
- lua.lua_pushcfunction(L, function(L) {
- throw errob;
- });
- t.strictEqual(lua.lua_pcall(L, 0, 0, 0), -1, "without a native error handler pcall should be -1");
- lua.lua_pop(L, 1);
-
-
- lua.lua_atnativeerror(L, function(L) {
- let e = lua.lua_touserdata(L, 1);
- t.strictEqual(e, errob);
- lua.lua_pushstring(L, to_luastring("runtime error!"));
- return 1;
- });
- lua.lua_pushcfunction(L, function(L) {
- throw errob;
- });
- t.strictEqual(lua.lua_pcall(L, 0, 0, 0), lua.LUA_ERRRUN, "should return lua.LUA_ERRRUN");
- t.strictEqual(lua.lua_tojsstring(L, -1), "runtime error!");
- lua.lua_pop(L, 1);
-
-
- lua.lua_atnativeerror(L, function(L) {
- let e = lua.lua_touserdata(L, 1);
- t.strictEqual(e, errob);
- lauxlib.luaL_error(L, to_luastring("runtime error!"));
- });
- lua.lua_pushcfunction(L, function(L) {
- throw errob;
- });
- t.strictEqual(lua.lua_pcall(L, 0, 0, 0), lua.LUA_ERRRUN, "luaL_error from a native error handler should result in LUA_ERRRUN");
- t.strictEqual(lua.lua_tojsstring(L, -1), "runtime error!");
- lua.lua_pop(L, 1);
-});
generated by cgit v1.2.3-70-g09d2 (git 2.47.0) at 2024-11-16 22:52:45 +0000