Support cargo test command

Author: khvzak

.gitignore

@@ -1,2 +1,3 @@
 /.vscode
 /target
+/tests/time.txt

Cargo.lock

@@ -1,5 +1,5 @@
 [package]
-name = "lua53-rs"
+name = "rustmoon"
 version = "0.1.0"
 edition = "2021"
 build = "build/build.rs"

Cargo.toml

@@ -20,4 +20,4 @@ fn main() {
     }
 }
 
-extern crate lua53_rs;
+extern crate rustmoon;

src/bin/lua.rs

@@ -5,7 +5,7 @@
 use libc::c_int;
 
 use crate::lstate::lua_State;
-use crate::types::{lua_Number, LUA_MULTRET};
+use crate::types::{lua_KContext, lua_KFunction, lua_Number, LUA_MULTRET};
 
 pub(crate) unsafe fn api_incr_top(L: *mut lua_State) {
     (*L).top = (*L).top.add(1);
@@ -29,7 +29,30 @@ pub unsafe fn lua_pop(L: *mut lua_State, n: c_int) {
     lua_settop(L, -n - 1)
 }
 
+pub unsafe fn lua_call(L: *mut lua_State, n: c_int, r: c_int) {
+    lua_callk(L, n, r, 0, None)
+}
+
+pub unsafe fn lua_pcall(L: *mut lua_State, n: c_int, r: c_int, f: c_int) -> c_int {
+    lua_pcallk(L, n, r, f, 0, None)
+}
+
 extern "C" {
     pub fn lua_version(L: *mut lua_State) -> *const lua_Number;
     pub fn lua_settop(L: *mut lua_State, idx: c_int);
+    pub fn lua_pcallk(
+        L: *mut lua_State,
+        nargs: c_int,
+        nresults: c_int,
+        errfunc: c_int,
+        ctx: lua_KContext,
+        k: lua_KFunction,
+    ) -> c_int;
+    pub fn lua_callk(
+        L: *mut lua_State,
+        nargs: c_int,
+        nresults: c_int,
+        ctx: lua_KContext,
+        k: lua_KFunction,
+    );
 }

src/lapi.rs

@@ -20,4 +20,8 @@ extern "C" {
         openf: lua_CFunction,
         glb: c_int,
     );
+    pub fn luaL_newstate() -> *mut lua_State;
+    pub fn luaL_loadstring(L: *mut lua_State, s: *const c_char) -> c_int;
+    pub fn luaL_loadfilex(L: *mut lua_State, filename: *const c_char, mode: *const c_char)
+        -> c_int;
 }

src/lauxlib.rs

@@ -14,8 +14,6 @@ pub(crate) mod lstate;
 #[macro_use]
 pub(crate) mod lobject;
 
-pub(crate) mod lapi;
-pub(crate) mod lauxlib;
 pub(crate) mod ldebug;
 pub(crate) mod ldo;
 pub(crate) mod ldump;
@@ -34,4 +32,8 @@ pub(crate) mod ltm;
 pub(crate) mod lundump;
 pub(crate) mod lvm;
 pub(crate) mod lzio;
-pub(crate) mod types;
+
+pub mod lapi;
+pub mod lauxlib;
+pub mod lualib;
+pub mod types;

src/lib.rs

@@ -0,0 +1 @@
+pub use crate::linit::luaL_openlibs;

src/lualib.rs

@@ -1,3 +1,4 @@
+#[macro_export]
 macro_rules! cstr {
     ($s:expr) => {
         concat!($s, "\0") as *const str as *const [::std::os::raw::c_char]

src/macros.rs

@@ -0,0 +1,29 @@
+use std::env;
+use std::ptr;
+
+use rustmoon::cstr;
+use rustmoon::lapi::lua_call;
+use rustmoon::lauxlib::{luaL_loadfilex, luaL_loadstring, luaL_newstate};
+use rustmoon::lualib::luaL_openlibs;
+use rustmoon::types::LUA_OK;
+
+#[test]
+fn test_all() {
+    unsafe {
+        let state = luaL_newstate();
+        luaL_openlibs(state);
+
+        // Skip non-portable tests
+        if luaL_loadstring(state, cstr!("_port=true")) != LUA_OK {
+            panic!("Failed to load Lua code");
+        }
+        lua_call(state, 0, 0);
+
+        // Run the tests suit
+        env::set_current_dir("tests").unwrap();
+        if luaL_loadfilex(state, cstr!("all.lua"), ptr::null()) != LUA_OK {
+            panic!("Failed to load `all.lua`");
+        }
+        lua_call(state, 0, 0);
+    }
+}