Move some tests to a separate script

5 files changed, 33 insertions, 27 deletions

diff --git a/unit_tests/UnitTests.vcxproj b/unit_tests/UnitTests.vcxproj
index 21abfae..79361c5 100644
--- a/unit_tests/UnitTests.vcxproj
+++ b/unit_tests/UnitTests.vcxproj
@@ -967,6 +967,7 @@
   </ItemGroup>
   <ItemGroup>
     <None Include="..\.runsettings" />
+    <None Include="scripts\lane\body_is_a_c_function.lua" />
     <None Include="scripts\lane\tasking_cancelling_with_hook.lua" />
     <None Include="scripts\linda\wake_period.lua" />
     <None Include="UnitTests.makefile" />
diff --git a/unit_tests/UnitTests.vcxproj.filters b/unit_tests/UnitTests.vcxproj.filters
index ce8cb58..dfa642b 100644
--- a/unit_tests/UnitTests.vcxproj.filters
+++ b/unit_tests/UnitTests.vcxproj.filters
@@ -119,5 +119,8 @@
     <None Include="scripts\linda\wake_period.lua">
       <Filter>Scripts\linda</Filter>
     </None>
+    <None Include="scripts\lane\body_is_a_c_function.lua">
+      <Filter>Scripts\lane</Filter>
+    </None>
   </ItemGroup>
 </Project>
\ No newline at end of file
diff --git a/unit_tests/lane_tests.cpp b/unit_tests/lane_tests.cpp
index 3e5da2b..82ca1ad 100644
--- a/unit_tests/lane_tests.cpp
+++ b/unit_tests/lane_tests.cpp
@@ -419,6 +419,7 @@ TEST_CASE("scripted_tests." #DIR "." #FILE) \
     _runner.performTest(FileRunnerParam{ #DIR "/" #FILE, TestType::CONDITION }); \
 }
 
+MAKE_TEST_CASE(lane, body_is_a_c_function, AssertNoLuaError)
 MAKE_TEST_CASE(lane, cooperative_shutdown, AssertNoLuaError)
 #if LUA_VERSION_NUM >= 504 // // warnings are a Lua 5.4 feature
 // NOTE: when this test ends, there are resource leaks and a dangling thread
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
diff --git a/unit_tests/scripts/lane/tasking_basic.lua b/unit_tests/scripts/lane/tasking_basic.lua
index 7a22307..233accf 100644
--- a/unit_tests/scripts/lane/tasking_basic.lua
+++ b/unit_tests/scripts/lane/tasking_basic.lua
@@ -15,33 +15,6 @@ local lanes_linda = assert(lanes.linda)
 -- ##################################################################################################
 -- ##################################################################################################
 
--- 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
-
--- ##################################################################################################
--- ##################################################################################################
--- ##################################################################################################
-
 local function task(a, b, c)
     local new_name = "task("..a..","..b..","..c..")"
     -- test lane naming change