dany/luasocket
1
0
Fork 0
mirror of https://github.com/lunarmodules/luasocket.git synced 2024-11-08 06:18:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

Updated for release 1.2.1.

Browse Source 
Added '*w' pattern test.
This commit is contained in:
Diego Nehab 2001-03-07 22:38:54 +00:00
parent bbb4b3e2c1
commit 22396d34f5
2 changed files with 48 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
test/testclnt.lua
View File

@ -1,31 +1,10 @@
-----------------------------------------------------------------------------
-- LuaSocket automated test module
-- client.lua
-- testclnt.lua
-- This is the client module. It connects with the server module and executes
-- all tests.
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
-- Prints a header to separate the test phases
-- Input
-- test: test phase name
-----------------------------------------------------------------------------
function new_test(test)
write("----------------------------------------------\n",
test, "\n",
"----------------------------------------------\n")
end
-----------------------------------------------------------------------------
-- Get host and port from command line
-----------------------------------------------------------------------------
HOST = "127.0.0.1"
PORT = 2020
if arg then
HOST = arg[1] or HOST
PORT = arg[2] or PORT
end
-----------------------------------------------------------------------------
-- Read command definitions
-----------------------------------------------------------------------------
@ -113,6 +92,27 @@ function test_asciiline(len)
else fail("lines don't match") end
end
-----------------------------------------------------------------------------
-- Tests multiple pattern transmission
-- Input
-- len: length of line to be tested
-----------------------------------------------------------------------------
function test_multiple()
local p1 = "unix line\n"
local p2 = "dos line\r\n"
local p3 = "raw bytes"
local bp1, bp2, bp3
reconnect()
send_command(ECHO_BLOCK, strlen(p1)+strlen(p2)+strlen(p3))
err = data:send(p1, p2, p3)
if err then fail(err) end
bp1, bp2, bp3, err = data:receive("*lu", "*l", strlen(p3))
if err then fail(err) end
if bp1.."\n" == p1 and bp2.."\r\n" == p2 and bp3 == p3 then
pass("patterns match")
else fail("patterns don't match") end
end
-----------------------------------------------------------------------------
-- Tests closed connection detection
-----------------------------------------------------------------------------
@ -295,9 +295,27 @@ function test_returntimeout(len, t, s)
else fail("blocks don't match") end
end
-----------------------------------------------------------------------------
-- Tests return-timeout conformance
-- Tests read patterns
-----------------------------------------------------------------------------
function test_word()
local b1 = " \t one two three \n this_is_a_very"
local b2 = "_big_word "
send_command(ECHO_BLOCK, strlen(b1)+strlen(b2))
err = data:send(b1, b2)
local a1, a2, a3, a4
a1, a2, a3, a4, err = data:receive("*w", "*w", "*w", "*w")
if err then fail(err) end
_, err = data:receive(1) -- get last space
if err then fail(err) end
if a1 ~= "one" or a2 ~= "two" or a3 ~= "three" or
a4 ~= "this_is_a_very_big_word" then fail("'*w' failed") end
pass("'*w' is ok")
end
function test_patterns()
local dos_line1 = "this the first dos line"
local dos_line2 = "this is another dos line"
@ -333,6 +351,7 @@ function test_patterns()
back = data:receive(strlen(block))
if back ~= block then fail("number failed") end
pass("number is ok")
test_word()
send_command(ECHO_BLOCK, strlen(block))
send_command(SLEEP, 1)
send_command(CLOSE)
@ -356,12 +375,16 @@ test_command(ECHO_BLOCK, 12234)
test_command(SLEEP, 1111)
test_command(ECHO_LINE)
--a = [[
new_test("connection close test")
test_closed()
new_test("read pattern test")
test_patterns()
new_test("multiple pattern test")
test_multiple()
new_test("character string test")
test_asciiline(1)
test_asciiline(17)
@ -414,6 +437,7 @@ test_returntimeout(8000, 1, 2)
test_returntimeout(80000, 2, 1)
test_returntimeout(800000, 0.1, 0)
test_returntimeout(800000, 2, 1)
--]]
-----------------------------------------------------------------------------
-- Close connection and exit server. We are done.

12
test/testsrvr.lua
View File

@ -1,6 +1,6 @@
-----------------------------------------------------------------------------
-- LuaSocket automated test module
-- server.lua
-- testsrvr.lua
-- This is the server module. It's completely controled by the client module
-- by the use of a control connection.
-----------------------------------------------------------------------------
@ -11,16 +11,6 @@
assert(dofile("testcmd.lua"))
test_debug_mode()
-----------------------------------------------------------------------------
-- Get host and port from command line
-----------------------------------------------------------------------------
HOST = "localhost"
PORT = 2020
if arg then
HOST = arg[1] or HOST
PORT = arg[2] or PORT
end
-----------------------------------------------------------------------------
-- Start control connection
-----------------------------------------------------------------------------