dany/luasocket
1
0
Fork 0
mirror of https://github.com/lunarmodules/luasocket.git synced 2024-07-05 20:59:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Relaxed timeout tests.

Browse Source
This commit is contained in:
Diego Nehab 2001-01-28 02:18:24 +00:00
parent 159823e200
commit a221087bc0
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
test/testclnt.lua
View File

@ -205,7 +205,7 @@ function blockedtimed_out(t, s, err, o)
pass("got natural cause timeout") pass("got natural cause timeout")
return 1 return 1
end end
elseif 0.9*s > t then elseif s > t then
if o == "send" then if o == "send" then
pass("must have been buffered (may be wrong)") pass("must have been buffered (may be wrong)")
else else
@ -252,14 +252,14 @@ end
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
function returntimed_out(delta, t, err) function returntimed_out(delta, t, err)
if err == "timeout" then if err == "timeout" then
if 1.1*delta >= t then if delta >= t then
pass("got rightfull timeout") pass("got rightfull timeout")
return 1 return 1
else else
fail("shouldn't have gotten timeout") fail("shouldn't have gotten timeout")
end end
elseif 0.9*delta > t then elseif delta > t then
fail("should have gotten timeout") pass(format("but took %fs longer than should have", delta - t))
end end
end end
@ -399,20 +399,21 @@ test_block(80000)
test_block(800000) test_block(800000)
new_test("blocked timeout test") new_test("blocked timeout test")
test_blockedtimeout(80, .5, 1) test_blockedtimeout(80, 1, 2)
test_blockedtimeout(80, 1, 1) test_blockedtimeout(80, 2, 2)
test_blockedtimeout(80, 1.5, 1) test_blockedtimeout(80, 3, 2)
test_blockedtimeout(800, 1, 0) test_blockedtimeout(800, 1, 0)
test_blockedtimeout(8000, 1, 1.5) test_blockedtimeout(8000, 2, 3)
test_blockedtimeout(80000, 1, 0) test_blockedtimeout(80000, 2, 1)
test_blockedtimeout(800000, 0.01, 0) test_blockedtimeout(800000, 0.01, 0)
new_test("return timeout test") new_test("return timeout test")
test_returntimeout(80, 1, 0.5) test_returntimeout(80, 2, 1)
test_returntimeout(80, 0.5, 1) test_returntimeout(80, 1, 2)
test_returntimeout(8000, .5, 1) test_returntimeout(8000, 1, 2)
test_returntimeout(80000, 1, 0.5) test_returntimeout(80000, 2, 1)
test_returntimeout(800000, 1, 0.5) test_returntimeout(800000, 0.1, 0)
test_returntimeout(800000, 2, 1)
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- Close connection and exit server. We are done. -- Close connection and exit server. We are done.