effil/tests/lua/smoke_test.lua

267 lines
7.7 KiB
Lua

TestSmoke = {}
function TestSmoke:tearDown()
log "TearDown() collect garbage"
collectgarbage()
end
function TestSmoke:testSharedTableTypes()
local effil = require('libeffil')
local share = effil.share()
share["number"] = 100500
share["string"] = "string value"
share["bool"] = true
share["function"] = function(left, right) return left + right end
local thread_factory = effil.thread(
function(share)
share["child.number"] = share["number"]
share["child.string"] = share["string"]
share["child.bool"] = share["bool"]
share["child.function"] = share["function"](11,45)
end
)
local thread = thread_factory(share)
thread:wait()
log "Check values"
test.assertEquals(share["child.number"], share["number"])
test.assertEquals(share["child.string"], share["string"])
test.assertEquals(share["child.bool"], share["bool"])
test.assertEquals(share["child.function"], share["function"](11,45))
end
function TestSmoke:testThreadCancel()
local effil = require('libeffil')
local thread_runner = effil.thread(
function()
local startTime = os.time()
while ( (os.time() - startTime) <= 10) do --[[ Just sleep ]] end
end
)
test.assertFalse(thread_runner:stepwise(true))
local thread = thread_runner()
sleep(2) -- let thread starts working
thread:cancel()
test.assertTrue(wait(2, function() return thread:status() ~= 'running' end))
test.assertEquals(thread:status(), 'canceled')
end
function TestSmoke:testThreadPauseAndResume()
local effil = require('libeffil')
local data = effil.share()
data.value = 0
local thread_runner = effil.thread(
function(data)
while true do
data.value = data.value + 1
end
end
)
test.assertFalse(thread_runner:stepwise(true))
local thread = thread_runner(data)
test.assertTrue(wait(2, function() return data.value > 100 end))
thread:pause()
test.assertTrue(wait(2, function() return thread:status() == "paused" end))
local savedValue = data.value
sleep(3)
test.assertEquals(data.value, savedValue)
thread:resume()
test.assertTrue(wait(5, function() return (data.value - savedValue) > 100 end))
thread:cancel()
thread:wait()
end
function TestSmoke:testThreadPauseAndStop()
local effil = require('libeffil')
log "Create thread"
local data = effil.share()
data.value = 0
local thread_runner = effil.thread(
function(data)
while true do
data.value = data.value + 1
end
end
)
test.assertFalse(thread_runner:stepwise(true))
local thread = thread_runner(data)
test.assertTrue(wait(2, function() return data.value > 100 end))
thread:pause()
test.assertTrue(wait(2, function() return thread:status() == "paused" end))
local savedValue = data.value
sleep(3)
test.assertEquals(data.value, savedValue)
thread:cancel()
test.assertTrue(wait(2, function() return thread:status() == "canceled" end))
thread:wait()
end
function TestSmoke:testThreadPauseAndStop()
local effil = require('libeffil')
log "Create thread"
local data = effil.share()
data.value = 0
local thread_runner = effil.thread(
function(data)
while true do
data.value = data.value + 1
end
end
)
test.assertFalse(thread_runner:stepwise(true))
local thread = thread_runner(data)
test.assertTrue(wait(2, function() return data.value > 100 end))
thread:pause()
test.assertTrue(wait(2, function() return thread:status() == "paused" end))
local savedValue = data.value
sleep(3)
test.assertEquals(data.value, savedValue)
thread:cancel()
test.assertTrue(wait(2, function() return thread:status() == "canceled" end))
thread:wait()
end
function TestSmoke:testRecursiveTables()
local effil = require('libeffil')
local share = effil.share()
local magic_number = 42
share["subtable1"] = effil.share()
share["subtable1"]["subtable1"] = effil.share()
share["subtable1"]["subtable2"] = share["subtable1"]["subtable1"]
share["subtable2"] = share["subtable1"]["subtable1"]
share["magic_number"] = magic_number
local thread_factory = effil.thread(
function(share)
share["subtable1"]["subtable1"]["magic_number"] = share["magic_number"]
share["magic_number"] = nil
end
)
local thread = thread_factory(share)
thread:wait()
log "Check values"
test.assertEquals(share["subtable1"]["subtable1"]["magic_number"], magic_number)
test.assertEquals(share["subtable1"]["subtable2"]["magic_number"], magic_number)
test.assertEquals(share["subtable2"]["magic_number"], magic_number)
test.assertEquals(share["magic_number"], nil)
end
function TestSmoke:testThisThreadFunctions()
local effil = require('libeffil')
local share = effil.share()
local thread_factory = effil.thread(
function(share)
share["child.id"] = require('libeffil').thread_id()
end
)
local thread = thread_factory(share)
thread:wait()
log "Check values"
test.assertString(share["child.id"])
test.assertNumber(tonumber(share["child.id"]))
test.assertNotEquals(share["child.id"], effil.thread_id())
effil.yield() -- just call it
local function check_time(real_time, use_time, metric)
local start_time = os.time()
effil.sleep(use_time, metric)
test.assertAlmostEquals(os.time(), start_time + real_time, 1)
end
check_time(4, 4, nil) -- seconds by default
check_time(4, 4, 's')
check_time(4, 4000, 'ms')
check_time(60, 1, 'm')
end
function TestSmoke:testCheckThreadReturns()
local effil = require('libeffil')
local share = effil.share()
share.value = "some value"
local thread_factory = effil.thread(
function(share)
return 100500, "string value", true, share, function(a,b) return a + b end
end
)
local thread = thread_factory(share)
local status, returns = thread:wait()
log "Check values"
test.assertEquals(status, "completed")
test.assertNumber(returns[1])
test.assertEquals(returns[1], 100500)
test.assertString(returns[2])
test.assertEquals(returns[2], "string value")
test.assertBoolean(returns[3])
test.assertTrue(returns[3])
test.assertUserdata(returns[4])
test.assertEquals(returns[4].value, share.value)
test.assertFunction(returns[5])
test.assertEquals(returns[5](11, 89), 100)
end
function TestSmoke:testCheckPairsInterating()
local effil = require('libeffil')
local share = effil.share()
local data = { 0, 0, 0, ["key1"] = 0, ["key2"] = 0, ["key3"] = 0 }
for k, _ in pairs(data) do
share[k] = k .. "-value"
end
for k,v in pairs(share) do
test.assertEquals(data[k], 0)
data[k] = 1
test.assertEquals(v, k .. "-value")
end
for k,v in pairs(data) do
log("Check: " .. k)
test.assertEquals(v, 1)
end
for k,v in ipairs(share) do
test.assertEquals(data[k], 1)
data[k] = 2
test.assertEquals(v, k .. "-value")
end
for k,v in ipairs(data) do
log("Check: " .. k)
test.assertEquals(v, 2)
end
end
function TestSmoke:testCheckLengthOperator()
local effil = require('libeffil')
local share = effil.share()
share[1] = 10
share[2] = 20
share[3] = 30
share[4] = 40
log "Check values"
test.assertEquals(#share, 4)
share[3] = nil
test.assertEquals(#share, 2)
share[1] = nil
test.assertEquals(#share, 0)
end