diff options
Diffstat (limited to 'tests/basic.lua')
-rw-r--r-- | tests/basic.lua | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/basic.lua b/tests/basic.lua index 97783cb..f44c75f 100644 --- a/tests/basic.lua +++ b/tests/basic.lua | |||
@@ -76,7 +76,7 @@ end | |||
76 | PRINT("\n\n", "---=== Tasking (basic) ===---", "\n\n") | 76 | PRINT("\n\n", "---=== Tasking (basic) ===---", "\n\n") |
77 | 77 | ||
78 | local function task(a, b, c) | 78 | local function task(a, b, c) |
79 | set_debug_threadname("task("..a..","..b..","..c..")") | 79 | lane_threadname("task("..a..","..b..","..c..")") |
80 | --error "111" -- testing error messages | 80 | --error "111" -- testing error messages |
81 | assert(hey) | 81 | assert(hey) |
82 | local v=0 | 82 | local v=0 |
@@ -329,7 +329,7 @@ SLEEP(1) | |||
329 | PRINT("\n\n", "---=== Stdlib naming ===---", "\n\n") | 329 | PRINT("\n\n", "---=== Stdlib naming ===---", "\n\n") |
330 | 330 | ||
331 | local function dump_g(_x) | 331 | local function dump_g(_x) |
332 | set_debug_threadname "dump_g" | 332 | lane_threadname "dump_g" |
333 | assert(print) | 333 | assert(print) |
334 | print("### dumping _G for '" .. _x .. "'") | 334 | print("### dumping _G for '" .. _x .. "'") |
335 | for k, v in pairs(_G) do | 335 | for k, v in pairs(_G) do |
@@ -339,7 +339,7 @@ local function dump_g(_x) | |||
339 | end | 339 | end |
340 | 340 | ||
341 | local function io_os_f(_x) | 341 | local function io_os_f(_x) |
342 | set_debug_threadname "io_os_f" | 342 | lane_threadname "io_os_f" |
343 | assert(print) | 343 | assert(print) |
344 | print("### checking io and os libs existence for '" .. _x .. "'") | 344 | print("### checking io and os libs existence for '" .. _x .. "'") |
345 | assert(io) | 345 | assert(io) |
@@ -348,7 +348,7 @@ local function io_os_f(_x) | |||
348 | end | 348 | end |
349 | 349 | ||
350 | local function coro_f(_x) | 350 | local function coro_f(_x) |
351 | set_debug_threadname "coro_f" | 351 | lane_threadname "coro_f" |
352 | assert(print) | 352 | assert(print) |
353 | print("### checking coroutine lib existence for '" .. _x .. "'") | 353 | print("### checking coroutine lib existence for '" .. _x .. "'") |
354 | assert(coroutine) | 354 | assert(coroutine) |
@@ -388,7 +388,7 @@ PRINT("\n\n", "---=== Comms criss cross ===---", "\n\n") | |||
388 | -- | 388 | -- |
389 | local tc= lanes_gen("io", {gc_cb = gc_cb}, | 389 | local tc= lanes_gen("io", {gc_cb = gc_cb}, |
390 | function(linda, ch_in, ch_out) | 390 | function(linda, ch_in, ch_out) |
391 | set_debug_threadname("criss cross " .. ch_in .. " -> " .. ch_out) | 391 | lane_threadname("criss cross " .. ch_in .. " -> " .. ch_out) |
392 | local function STAGE(str) | 392 | local function STAGE(str) |
393 | io.stderr:write(ch_in..": "..str.."\n") | 393 | io.stderr:write(ch_in..": "..str.."\n") |
394 | linda:send(nil, ch_out, str) | 394 | linda:send(nil, ch_out, str) |
@@ -488,7 +488,7 @@ PRINT("\n\n", "---=== :join test ===---", "\n\n") | |||
488 | 488 | ||
489 | local S= lanes_gen("table", {gc_cb = gc_cb}, | 489 | local S= lanes_gen("table", {gc_cb = gc_cb}, |
490 | function(arg) | 490 | function(arg) |
491 | set_debug_threadname "join test lane" | 491 | lane_threadname "join test lane" |
492 | set_finalizer(function() end) | 492 | set_finalizer(function() end) |
493 | aux= {} | 493 | aux= {} |
494 | for i, v in ipairs(arg) do | 494 | for i, v in ipairs(arg) do |