1 files changed, 28 insertions, 0 deletions

diff --git a/unit_tests/scripts/lane/body_is_a_c_function.lua b/unit_tests/scripts/lane/body_is_a_c_function.lua
new file mode 100644
index 0000000..d8d329f
--- /dev/null
+++ b/unit_tests/scripts/lane/body_is_a_c_function.lua
@@ -0,0 +1,28 @@
+local lanes = require "lanes".configure()
+
+-- ##################################################################################################
+-- ##################################################################################################
+-- ##################################################################################################
+
+-- we can create a generator where the lane body is a C function
+do
+    local b, g = pcall(lanes.gen, "*", print)
+    assert(b == true and type(g) == "function")
+    -- we can start the lane
+    local b, h = pcall(g, "hello")
+    -- the lane runs normally
+    h:join()
+    assert(h.status == "done")
+end
+
+-- we can create a generator where the lane body is a C function that raises an error
+do
+    local b, g = pcall(lanes.gen, "*", error)
+    assert(b == true and type(g) == "function")
+    -- we can start the lane
+    local b, h = pcall(g, "this is an error")
+    -- this provides the error that occurred in the lane
+    local s, e, t = h:join()
+    assert(h.status == "error")
+    assert(s == nil and e == "this is an error" and t == nil)
+end