Persist LuaFunctions & add tests

test/results/serialize function.ans

@@ -0,0 +1,7 @@
+--# run #--
+--- text ---
+| {}"" {}"bar1" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/results/serialize lua function.ans

@@ -0,0 +1,7 @@
+--# run #--
+--- text ---
+| {}"" {}"2" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/results/serialize.ans

@@ -0,0 +1,11 @@
+--# run #--
+--- text ---
+| {}"" {}"43" {}"" |
+--- text ---
+| {}"" {}"[2, \"\", 5]" {}"" |
+--- text ---
+| {}"" {}"*{\"f\":\"b\", 1:2, 2:\"\", 3:\"ok\"}" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/run.lua

@@ -88,6 +88,8 @@ local function run(path, interactive)
 		run_loop(parallel_state, write_output, interactive)
 		write_output("--# main script #--")
 	end)
+	state:define("serialize", "(value)", function(state, value) return ast.String:new(value:serialize(state)) end, true)
+	state:define("deserialize", "(str::string)", function(state, str) return ast.abstract.Node:deserialize(state, str.string) end, true)
 
 	local run_state = state:branch()
 

test/tests/serialize function.ans

@@ -0,0 +1,10 @@
+:f = ()
+_
+	:$_+_(a::string, b)
+		"{a}{b}"
+
+	:a=1
+	f = $(x)
+		x+a
+
+|{(f!serialize!deserialize)("bar")}

test/tests/serialize lua function.ans

@@ -0,0 +1,7 @@
+:f = ()
+_
+	:a=1
+	f = $()
+		1+a
+
+|{(f!serialize!deserialize)!}

test/tests/serialize.ans

@@ -0,0 +1,13 @@
+:x = 43
+
+|{x!serialize!deserialize}
+
+:l = [2, "", 5]
+
+|{l!serialize!deserialize}
+
+:t = *{2, "", 5}
+t(3) = "ok"
+t("f") = "b"
+
+|{t!serialize!deserialize}