99 lines
2.5 KiB
Nix
99 lines
2.5 KiB
Nix
{ pkgs ? import <nixpkgs> { } }:
|
|
|
|
let
|
|
nix2lua = import ./lib.nix;
|
|
inherit (nix2lua) toLua mkLuaNil mkLuaRaw mkNamedField;
|
|
inherit (builtins) tryEval;
|
|
|
|
failed = { success = false; value = false; };
|
|
in
|
|
pkgs.lib.runTests {
|
|
"test returns null" = {
|
|
expr = toLua null;
|
|
expected = null;
|
|
};
|
|
"test returns nil" = {
|
|
expr = toLua mkLuaNil;
|
|
expected = "nil";
|
|
};
|
|
"test returns a lua string" = {
|
|
expr = toLua "hello world";
|
|
expected = "\"hello world\"";
|
|
};
|
|
"test returns an integer number" = {
|
|
expr = toLua 10;
|
|
expected = "10";
|
|
};
|
|
"test returns a negative integer number" = {
|
|
expr = toLua (-10);
|
|
expected = "-10";
|
|
};
|
|
"test returns a float number" = {
|
|
expr = toLua 10.1;
|
|
expected = "10.100000";
|
|
};
|
|
"test returns true" = {
|
|
expr = toLua true;
|
|
expected = "true";
|
|
};
|
|
"test returns false" = {
|
|
expr = toLua false;
|
|
expected = "false";
|
|
};
|
|
"test returns table with all primitive types" = {
|
|
expr = toLua [ "hello" 10 10.1 true ];
|
|
expected = "{ \"hello\", 10, 10.100000, true }";
|
|
};
|
|
"test returns table without null values" = {
|
|
expr = toLua [ null "hello" null 10 null 10.1 null true null ];
|
|
expected = "{ \"hello\", 10, 10.100000, true }";
|
|
};
|
|
"test returns named table" = {
|
|
expr = toLua {
|
|
foo = "hello";
|
|
int = 10;
|
|
float = 10.1;
|
|
success = true;
|
|
fail = false;
|
|
};
|
|
expected = "{ [\"fail\"] = false, [\"float\"] = 10.100000, [\"foo\"] = \"hello\", [\"int\"] = 10, [\"success\"] = true }";
|
|
};
|
|
"test returns named table without nullable items" = {
|
|
expr = toLua { foo = "hello"; bar = null; };
|
|
expected = "{ [\"foo\"] = \"hello\" }";
|
|
};
|
|
"test returns recursive named table" = {
|
|
expr = toLua {
|
|
first = {
|
|
second = {
|
|
last = "hello";
|
|
};
|
|
};
|
|
};
|
|
expected = "{ [\"first\"] = { [\"second\"] = { [\"last\"] = \"hello\" } } }";
|
|
};
|
|
"test return recursive table" = {
|
|
expr = toLua [ [ [ "foo" ] "bar" ] ];
|
|
expected = "{ { { \"foo\" }, \"bar\" } }";
|
|
};
|
|
"test returns table with one named field" = {
|
|
expr = toLua [
|
|
"foo"
|
|
(mkNamedField "foo" "hello")
|
|
10
|
|
];
|
|
expected = "{ \"foo\", [\"foo\"] = \"hello\", 10 }";
|
|
};
|
|
"test returns raw string" = {
|
|
expr = toLua (mkLuaRaw "hello");
|
|
expected = "hello";
|
|
};
|
|
"test returns path as string" = {
|
|
expr = toLua /foo/bar;
|
|
expected = "\"/foo/bar\"";
|
|
};
|
|
"test throws an error when you try to use named field withoun table" = {
|
|
expr = tryEval (toLua (mkNamedField "foo" "bar"));
|
|
expected = failed;
|
|
};
|
|
}
|