2017-05-21 19:50:59 -04:00
|
|
|
use std::fmt;
|
|
|
|
use std::result::Result;
|
|
|
|
use std::error::Error;
|
|
|
|
use std::panic::catch_unwind;
|
|
|
|
|
|
|
|
use super::*;
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_set_get() {
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.set("foo", "bar").unwrap();
|
|
|
|
lua.set("baz", "baf").unwrap();
|
|
|
|
assert_eq!(lua.get::<_, String>("foo").unwrap(), "bar");
|
|
|
|
assert_eq!(lua.get::<_, String>("baz").unwrap(), "baf");
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_load() {
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.load(r#"
|
|
|
|
res = 'foo'..'bar'
|
|
|
|
"#,
|
|
|
|
None)
|
|
|
|
.unwrap();
|
|
|
|
assert_eq!(lua.get::<_, String>("res").unwrap(), "foobar");
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_eval() {
|
|
|
|
let lua = Lua::new();
|
|
|
|
assert_eq!(lua.eval::<i32>("1 + 1").unwrap(), 2);
|
|
|
|
assert_eq!(lua.eval::<bool>("false == false").unwrap(), true);
|
|
|
|
assert_eq!(lua.eval::<i32>("return 1 + 2").unwrap(), 3);
|
|
|
|
match lua.eval::<()>("if true then") {
|
|
|
|
Err(LuaError(LuaErrorKind::IncompleteStatement(_), _)) => {}
|
|
|
|
r => panic!("expected IncompleteStatement, got {:?}", r),
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_table() {
|
|
|
|
let lua = Lua::new();
|
|
|
|
|
|
|
|
lua.set("table", lua.create_empty_table().unwrap()).unwrap();
|
|
|
|
let table1: LuaTable = lua.get("table").unwrap();
|
|
|
|
let table2: LuaTable = lua.get("table").unwrap();
|
|
|
|
|
|
|
|
table1.set("foo", "bar").unwrap();
|
|
|
|
table2.set("baz", "baf").unwrap();
|
|
|
|
|
|
|
|
assert_eq!(table2.get::<_, String>("foo").unwrap(), "bar");
|
|
|
|
assert_eq!(table1.get::<_, String>("baz").unwrap(), "baf");
|
|
|
|
|
|
|
|
lua.load(r#"
|
|
|
|
table1 = {1, 2, 3, 4, 5}
|
|
|
|
table2 = {}
|
|
|
|
table3 = {1, 2, nil, 4, 5}
|
|
|
|
"#,
|
|
|
|
None)
|
|
|
|
.unwrap();
|
|
|
|
|
|
|
|
let table1 = lua.get::<_, LuaTable>("table1").unwrap();
|
|
|
|
let table2 = lua.get::<_, LuaTable>("table2").unwrap();
|
|
|
|
let table3 = lua.get::<_, LuaTable>("table3").unwrap();
|
|
|
|
|
|
|
|
assert_eq!(table1.length().unwrap(), 5);
|
|
|
|
assert_eq!(table1.pairs::<i64, i64>().unwrap(),
|
|
|
|
vec![(1, 1), (2, 2), (3, 3), (4, 4), (5, 5)]);
|
|
|
|
assert_eq!(table2.length().unwrap(), 0);
|
|
|
|
assert_eq!(table2.pairs::<i64, i64>().unwrap(), vec![]);
|
|
|
|
assert_eq!(table2.array_values::<i64>().unwrap(), vec![]);
|
|
|
|
assert_eq!(table3.length().unwrap(), 5);
|
|
|
|
assert_eq!(table3.array_values::<Option<i64>>().unwrap(),
|
|
|
|
vec![Some(1), Some(2), None, Some(4), Some(5)]);
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_function() {
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.load(r#"
|
|
|
|
function concat(arg1, arg2)
|
|
|
|
return arg1 .. arg2
|
|
|
|
end
|
|
|
|
"#,
|
|
|
|
None)
|
|
|
|
.unwrap();
|
|
|
|
|
|
|
|
let concat = lua.get::<_, LuaFunction>("concat").unwrap();
|
2017-05-22 03:09:59 -04:00
|
|
|
assert_eq!(concat.call::<_, String>(hlist!["foo", "bar"]).unwrap(),
|
2017-05-21 19:50:59 -04:00
|
|
|
"foobar");
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_bind() {
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.load(r#"
|
|
|
|
function concat(...)
|
|
|
|
local res = ""
|
|
|
|
for _, s in pairs({...}) do
|
|
|
|
res = res..s
|
|
|
|
end
|
|
|
|
return res
|
|
|
|
end
|
|
|
|
"#,
|
|
|
|
None)
|
|
|
|
.unwrap();
|
|
|
|
|
|
|
|
let mut concat = lua.get::<_, LuaFunction>("concat").unwrap();
|
|
|
|
concat = concat.bind("foo").unwrap();
|
|
|
|
concat = concat.bind("bar").unwrap();
|
2017-05-22 03:09:59 -04:00
|
|
|
concat = concat.bind(hlist!["baz", "baf"]).unwrap();
|
|
|
|
assert_eq!(concat.call::<_, String>(hlist!["hi", "wut"]).unwrap(),
|
2017-05-21 19:50:59 -04:00
|
|
|
"foobarbazbafhiwut");
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_rust_function() {
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.load(r#"
|
|
|
|
function lua_function()
|
|
|
|
return rust_function()
|
|
|
|
end
|
|
|
|
|
|
|
|
-- Test to make sure chunk return is ignored
|
|
|
|
return 1
|
|
|
|
"#,
|
|
|
|
None)
|
|
|
|
.unwrap();
|
|
|
|
|
|
|
|
let lua_function = lua.get::<_, LuaFunction>("lua_function").unwrap();
|
|
|
|
let rust_function = lua.create_function(|lua, _| lua.pack("hello")).unwrap();
|
|
|
|
|
|
|
|
lua.set("rust_function", rust_function).unwrap();
|
|
|
|
assert_eq!(lua_function.call::<_, String>(()).unwrap(), "hello");
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_user_data() {
|
|
|
|
struct UserData1(i64);
|
|
|
|
struct UserData2(Box<i64>);
|
|
|
|
|
|
|
|
impl LuaUserDataType for UserData1 {};
|
|
|
|
impl LuaUserDataType for UserData2 {};
|
|
|
|
|
|
|
|
let lua = Lua::new();
|
|
|
|
|
|
|
|
let userdata1 = lua.create_userdata(UserData1(1)).unwrap();
|
|
|
|
let userdata2 = lua.create_userdata(UserData2(Box::new(2))).unwrap();
|
|
|
|
|
|
|
|
assert!(userdata1.is::<UserData1>());
|
|
|
|
assert!(!userdata1.is::<UserData2>());
|
|
|
|
assert!(userdata2.is::<UserData2>());
|
|
|
|
assert!(!userdata2.is::<UserData1>());
|
|
|
|
|
|
|
|
assert_eq!(userdata1.borrow::<UserData1>().unwrap().0, 1);
|
|
|
|
assert_eq!(*userdata2.borrow::<UserData2>().unwrap().0, 2);
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_methods() {
|
|
|
|
struct UserData(i64);
|
|
|
|
|
|
|
|
impl LuaUserDataType for UserData {
|
|
|
|
fn add_methods(methods: &mut LuaUserDataMethods<Self>) {
|
|
|
|
methods.add_method("get_value", |lua, data, _| lua.pack(data.0));
|
|
|
|
methods.add_method_mut("set_value", |lua, data, args| {
|
|
|
|
data.0 = lua.unpack(args)?;
|
|
|
|
lua.pack(())
|
|
|
|
});
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
let lua = Lua::new();
|
|
|
|
let userdata = lua.create_userdata(UserData(42)).unwrap();
|
|
|
|
lua.set("userdata", userdata.clone()).unwrap();
|
|
|
|
lua.load(r#"
|
|
|
|
function get_it()
|
|
|
|
return userdata:get_value()
|
|
|
|
end
|
|
|
|
|
|
|
|
function set_it(i)
|
|
|
|
return userdata:set_value(i)
|
|
|
|
end
|
|
|
|
"#,
|
|
|
|
None)
|
|
|
|
.unwrap();
|
|
|
|
let get = lua.get::<_, LuaFunction>("get_it").unwrap();
|
|
|
|
let set = lua.get::<_, LuaFunction>("set_it").unwrap();
|
|
|
|
assert_eq!(get.call::<_, i64>(()).unwrap(), 42);
|
|
|
|
userdata.borrow_mut::<UserData>().unwrap().0 = 64;
|
|
|
|
assert_eq!(get.call::<_, i64>(()).unwrap(), 64);
|
|
|
|
set.call::<_, ()>(100).unwrap();
|
|
|
|
assert_eq!(get.call::<_, i64>(()).unwrap(), 100);
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_metamethods() {
|
|
|
|
#[derive(Copy, Clone)]
|
|
|
|
struct UserData(i64);
|
|
|
|
|
|
|
|
impl LuaUserDataType for UserData {
|
|
|
|
fn add_methods(methods: &mut LuaUserDataMethods<Self>) {
|
|
|
|
methods.add_method("get", |lua, data, _| lua.pack(data.0));
|
|
|
|
methods.add_meta_function(LuaMetaMethod::Add, |lua, args| {
|
2017-05-22 03:09:59 -04:00
|
|
|
let hlist_pat![lhs, rhs] = lua.unpack::<HList![UserData, UserData]>(args)?;
|
2017-05-21 19:50:59 -04:00
|
|
|
lua.pack(UserData(lhs.0 + rhs.0))
|
|
|
|
});
|
|
|
|
methods.add_meta_function(LuaMetaMethod::Sub, |lua, args| {
|
2017-05-22 03:09:59 -04:00
|
|
|
let hlist_pat![lhs, rhs] = lua.unpack::<HList![UserData, UserData]>(args)?;
|
2017-05-21 19:50:59 -04:00
|
|
|
lua.pack(UserData(lhs.0 - rhs.0))
|
|
|
|
});
|
|
|
|
methods.add_meta_method(LuaMetaMethod::Index, |lua, data, args| {
|
|
|
|
let index = lua.unpack::<LuaString>(args)?;
|
|
|
|
if index.get()? == "inner" {
|
|
|
|
lua.pack(data.0)
|
|
|
|
} else {
|
|
|
|
Err("no such custom index".into())
|
|
|
|
}
|
|
|
|
});
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.set("userdata1", UserData(7)).unwrap();
|
|
|
|
lua.set("userdata2", UserData(3)).unwrap();
|
|
|
|
assert_eq!(lua.eval::<UserData>("userdata1 + userdata2").unwrap().0, 10);
|
|
|
|
assert_eq!(lua.eval::<UserData>("userdata1 - userdata2").unwrap().0, 4);
|
|
|
|
assert_eq!(lua.eval::<i64>("userdata1:get()").unwrap(), 7);
|
|
|
|
assert_eq!(lua.eval::<i64>("userdata2.inner").unwrap(), 3);
|
|
|
|
assert!(lua.eval::<()>("userdata2.nonexist_field").is_err());
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_scope() {
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.load(r#"
|
|
|
|
touter = {
|
|
|
|
tin = {1, 2, 3}
|
|
|
|
}
|
|
|
|
"#,
|
|
|
|
None)
|
|
|
|
.unwrap();
|
|
|
|
|
|
|
|
// Make sure that table gets do not borrow the table, but instead just borrow lua.
|
|
|
|
let tin;
|
|
|
|
{
|
|
|
|
let touter = lua.get::<_, LuaTable>("touter").unwrap();
|
|
|
|
tin = touter.get::<_, LuaTable>("tin").unwrap();
|
|
|
|
}
|
|
|
|
|
|
|
|
assert_eq!(tin.get::<_, i64>(1).unwrap(), 1);
|
|
|
|
assert_eq!(tin.get::<_, i64>(2).unwrap(), 2);
|
|
|
|
assert_eq!(tin.get::<_, i64>(3).unwrap(), 3);
|
|
|
|
|
|
|
|
// Should not compile, don't know how to test that
|
|
|
|
// struct UserData;
|
|
|
|
// impl LuaUserDataType for UserData {};
|
|
|
|
// let userdata_ref;
|
|
|
|
// {
|
|
|
|
// let touter = lua.get::<_, LuaTable>("touter").unwrap();
|
|
|
|
// touter.set("userdata", lua.create_userdata(UserData).unwrap()).unwrap();
|
|
|
|
// let userdata = touter.get::<_, LuaUserData>("userdata").unwrap();
|
|
|
|
// userdata_ref = userdata.borrow::<UserData>();
|
|
|
|
// }
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_lua_multi() {
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.load(r#"
|
|
|
|
function concat(arg1, arg2)
|
|
|
|
return arg1 .. arg2
|
|
|
|
end
|
|
|
|
|
|
|
|
function mreturn()
|
|
|
|
return 1, 2, 3, 4, 5, 6
|
|
|
|
end
|
|
|
|
"#,
|
|
|
|
None)
|
|
|
|
.unwrap();
|
|
|
|
|
|
|
|
let concat = lua.get::<_, LuaFunction>("concat").unwrap();
|
|
|
|
let mreturn = lua.get::<_, LuaFunction>("mreturn").unwrap();
|
|
|
|
|
2017-05-22 03:09:59 -04:00
|
|
|
assert_eq!(concat.call::<_, String>(hlist!["foo", "bar"]).unwrap(),
|
2017-05-21 19:50:59 -04:00
|
|
|
"foobar");
|
2017-05-22 03:09:59 -04:00
|
|
|
let hlist_pat![a, b] = mreturn.call::<_, HList![u64, u64]>(hlist![]).unwrap();
|
2017-05-21 19:50:59 -04:00
|
|
|
assert_eq!((a, b), (1, 2));
|
2017-05-22 03:09:59 -04:00
|
|
|
let hlist_pat![a, b, LuaVariadic(v)] = mreturn.call::<_, HList![u64, u64, LuaVariadic<u64>]>(hlist![]).unwrap();
|
2017-05-21 19:50:59 -04:00
|
|
|
assert_eq!((a, b), (1, 2));
|
|
|
|
assert_eq!(v, vec![3, 4, 5, 6]);
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_coercion() {
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.load(r#"
|
|
|
|
int = 123
|
|
|
|
str = "123"
|
|
|
|
num = 123.0
|
|
|
|
"#,
|
|
|
|
None)
|
|
|
|
.unwrap();
|
|
|
|
|
|
|
|
assert_eq!(lua.get::<_, String>("int").unwrap(), "123");
|
|
|
|
assert_eq!(lua.get::<_, i32>("str").unwrap(), 123);
|
|
|
|
assert_eq!(lua.get::<_, i32>("num").unwrap(), 123);
|
|
|
|
}
|
|
|
|
|
|
|
|
#[test]
|
|
|
|
fn test_error() {
|
|
|
|
#[derive(Debug)]
|
|
|
|
pub struct TestError;
|
|
|
|
|
|
|
|
impl fmt::Display for TestError {
|
|
|
|
fn fmt(&self, fmt: &mut fmt::Formatter) -> Result<(), fmt::Error> {
|
|
|
|
write!(fmt, "test error")
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
impl Error for TestError {
|
|
|
|
fn description(&self) -> &str {
|
|
|
|
"test error"
|
|
|
|
}
|
|
|
|
|
|
|
|
fn cause(&self) -> Option<&Error> {
|
|
|
|
None
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.load(r#"
|
|
|
|
function no_error()
|
|
|
|
end
|
|
|
|
|
|
|
|
function lua_error()
|
|
|
|
error("this is a lua error")
|
|
|
|
end
|
|
|
|
|
|
|
|
function rust_error()
|
|
|
|
rust_error_function()
|
|
|
|
end
|
|
|
|
|
|
|
|
function test_pcall()
|
|
|
|
local testvar = 0
|
|
|
|
|
|
|
|
pcall(function(arg)
|
|
|
|
testvar = testvar + arg
|
|
|
|
error("should be ignored")
|
|
|
|
end, 3)
|
|
|
|
|
|
|
|
local function handler(err)
|
|
|
|
testvar = testvar + err
|
|
|
|
return "should be ignored"
|
|
|
|
end
|
|
|
|
|
|
|
|
xpcall(function()
|
|
|
|
error(5)
|
|
|
|
end, handler)
|
|
|
|
|
|
|
|
if testvar ~= 8 then
|
|
|
|
error("testvar had the wrong value, pcall / xpcall misbehaving "..testvar)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
function understand_recursion()
|
|
|
|
understand_recursion()
|
|
|
|
end
|
|
|
|
"#,
|
|
|
|
None)
|
|
|
|
.unwrap();
|
|
|
|
|
|
|
|
let rust_error_function =
|
|
|
|
lua.create_function(|_, _| Err(LuaExternalError(Box::new(TestError)).into()))
|
|
|
|
.unwrap();
|
|
|
|
lua.set("rust_error_function", rust_error_function).unwrap();
|
|
|
|
|
|
|
|
let no_error = lua.get::<_, LuaFunction>("no_error").unwrap();
|
|
|
|
let lua_error = lua.get::<_, LuaFunction>("lua_error").unwrap();
|
|
|
|
let rust_error = lua.get::<_, LuaFunction>("rust_error").unwrap();
|
|
|
|
let test_pcall = lua.get::<_, LuaFunction>("test_pcall").unwrap();
|
|
|
|
let understand_recursion = lua.get::<_, LuaFunction>("understand_recursion").unwrap();
|
|
|
|
|
|
|
|
assert!(no_error.call::<_, ()>(()).is_ok());
|
|
|
|
match lua_error.call::<_, ()>(()) {
|
|
|
|
Err(LuaError(LuaErrorKind::ScriptError(_), _)) => {}
|
|
|
|
Err(_) => panic!("error is not ScriptError kind"),
|
|
|
|
_ => panic!("error not thrown"),
|
|
|
|
}
|
|
|
|
match rust_error.call::<_, ()>(()) {
|
|
|
|
Err(LuaError(LuaErrorKind::ExternalError(e), _)) => {
|
|
|
|
assert_eq!(e.description(), "test error")
|
|
|
|
}
|
|
|
|
Err(_) => panic!("error is not ExternalError kind"),
|
|
|
|
_ => panic!("error not thrown"),
|
|
|
|
}
|
|
|
|
|
|
|
|
test_pcall.call::<_, ()>(()).unwrap();
|
|
|
|
|
|
|
|
assert!(understand_recursion.call::<_, ()>(()).is_err());
|
|
|
|
|
|
|
|
match catch_unwind(|| -> LuaResult<()> {
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.load(r#"
|
|
|
|
function rust_panic()
|
|
|
|
pcall(function () rust_panic_function() end)
|
|
|
|
end
|
|
|
|
"#,
|
|
|
|
None)?;
|
|
|
|
let rust_panic_function = lua.create_function(|_, _| {
|
|
|
|
panic!("expected panic, this panic should be caught in rust")
|
|
|
|
})?;
|
|
|
|
lua.set("rust_panic_function", rust_panic_function)?;
|
|
|
|
|
|
|
|
let rust_panic = lua.get::<_, LuaFunction>("rust_panic")?;
|
|
|
|
|
|
|
|
rust_panic.call::<_, ()>(())
|
|
|
|
}) {
|
|
|
|
Ok(Ok(_)) => panic!("no panic was detected, pcall caught it!"),
|
|
|
|
Ok(Err(e)) => panic!("error during panic test {:?}", e),
|
|
|
|
Err(_) => {}
|
|
|
|
};
|
|
|
|
|
|
|
|
match catch_unwind(|| -> LuaResult<()> {
|
|
|
|
let lua = Lua::new();
|
|
|
|
lua.load(r#"
|
|
|
|
function rust_panic()
|
|
|
|
xpcall(function() rust_panic_function() end, function() end)
|
|
|
|
end
|
|
|
|
"#,
|
|
|
|
None)?;
|
|
|
|
let rust_panic_function = lua.create_function(|_, _| {
|
|
|
|
panic!("expected panic, this panic should be caught in rust")
|
|
|
|
})?;
|
|
|
|
lua.set("rust_panic_function", rust_panic_function)?;
|
|
|
|
|
|
|
|
let rust_panic = lua.get::<_, LuaFunction>("rust_panic")?;
|
|
|
|
|
|
|
|
rust_panic.call::<_, ()>(())
|
|
|
|
}) {
|
|
|
|
Ok(Ok(_)) => panic!("no panic was detected, xpcall caught it!"),
|
|
|
|
Ok(Err(e)) => panic!("error during panic test {:?}", e),
|
|
|
|
Err(_) => {}
|
|
|
|
};
|
|
|
|
}
|