From ce9fd9bdca0caa6a33ce37a01f41593ca42ba95b Mon Sep 17 00:00:00 2001
From: daurnimator <quae@daurnimator.com>
Date: Mon, 2 Apr 2018 22:44:25 +1000
Subject: Start moving test suite from tape => jest

---
 test/load.test.js | 115 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 115 insertions(+)
 create mode 100644 test/load.test.js

(limited to 'test/load.test.js')

diff --git a/test/load.test.js b/test/load.test.js
new file mode 100644
index 0000000..3c03eec
--- /dev/null
+++ b/test/load.test.js
@@ -0,0 +1,115 @@
+"use strict";
+
+const {toByteCode} = require("./tests.js");
+
+const lua = require('../src/lua.js');
+const lauxlib = require('../src/lauxlib.js');
+const lualib = require('../src/lualib.js');
+const {to_luastring} = require("../src/fengaricore.js");
+
+test('luaL_loadstring', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local a = "hello world"
+        return a
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+    expect(lua.lua_tojsstring(L, -1))
+        .toBe("hello world");
+});
+
+
+test('load', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local f = load("return 'js running lua running lua'")
+        return f()
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+    expect(lua.lua_tojsstring(L, -1))
+        .toBe("js running lua running lua");
+});
+
+
+test('luaL_loadbuffer', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local a = "hello world"
+        return a
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        let bc = toByteCode(luaCode);
+        lauxlib.luaL_loadbuffer(L, bc, null, to_luastring("test"));
+        lua.lua_call(L, 0, -1);
+    }
+    expect(lua.lua_tojsstring(L, -1))
+        .toBe("hello world");
+});
+
+// TODO: test stdin
+test('loadfile', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local f = assert(loadfile("test/loadfile-test.lua"))
+        return f()
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+    expect(lua.lua_tojsstring(L, -1))
+        .toBe("hello world");
+});
+
+
+test('loadfile (binary)', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local f = assert(loadfile("test/loadfile-test.bc"))
+        return f()
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+    expect(lua.lua_tojsstring(L, -1))
+        .toBe("hello world");
+});
+
+
+test('dofile', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        return dofile("test/loadfile-test.lua")
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+    expect(lua.lua_tojsstring(L, -1))
+        .toBe("hello world");
+});
-- 
cgit v1.2.3-70-g09d2