1 files changed, 26 insertions, 0 deletions

diff --git a/tests/hangtest.lua b/tests/hangtest.lua
new file mode 100644
index 0000000..d0bbea4
--- /dev/null
+++ b/tests/hangtest.lua
@@ -0,0 +1,26 @@
+--

+-- Test case for hang on [1]s and :join()s.

+--

+

+require "lanes"

+

+local function ret(b)

+    return b

+end

+local lgen = lanes.gen("*", {}, ret)

+

+for i=1,10000 do

+    local ln = lgen(i)

+

+    print( "getting result for "..i )

+

+    -- Hangs here forever every few hundred runs or so,

+    -- can be illustrated by putting another print() statement

+    -- after, which will never be called.

+    --

+    local result = ln[1];

+

+    assert (result == i);

+end

+

+print "Finished!"