From c8b402e00442cd249397d4d33d2723a1f08a8108 Mon Sep 17 00:00:00 2001
From: Diego Nehab <diego@tecgraf.puc-rio.br>
Date: Sun, 18 Jul 2004 22:56:14 +0000
Subject: Changed send function.

---
 test/testclnt.lua | 86 +++++++++++++++++++++++++++++++++++++++----------------
 test/testsrvr.lua | 33 ++++++---------------
 2 files changed, 70 insertions(+), 49 deletions(-)

(limited to 'test')

diff --git a/test/testclnt.lua b/test/testclnt.lua
index f98a504..356350a 100644
--- a/test/testclnt.lua
+++ b/test/testclnt.lua
@@ -25,7 +25,7 @@ function remote(...)
     s = string.gsub(s, "\n", ";")
     s = string.gsub(s, "%s+", " ")
     s = string.gsub(s, "^%s*", "")
-    control:send(s, "\n")
+    control:send(s .. "\n")
     control:receive()
 end
 
@@ -120,7 +120,7 @@ function test_mixed(len)
     local bp1, bp2, bp3, bp4
 remote (string.format("str = data:receive(%d)", 
             string.len(p1)+string.len(p2)+string.len(p3)+string.len(p4)))
-    sent, err = data:send(p1, p2, p3, p4)
+    sent, err = data:send(p1..p2..p3..p4)
     if err then fail(err) end
 remote "data:send(str); data:close()"
     bp1, err = data:receive()
@@ -144,9 +144,9 @@ function test_asciiline(len)
     str10 = string.rep("aZb.c#dAe?", math.floor(len/10))
     str = str .. str10
 remote "str = data:receive()"
-    sent, err = data:send(str, "\n")
+    sent, err = data:send(str.."\n")
     if err then fail(err) end
-remote "data:send(str, '\\n')"
+remote "data:send(str ..'\\n')"
     back, err = data:receive()
     if err then fail(err) end
     if back == str then pass("lines match")
@@ -162,9 +162,9 @@ function test_rawline(len)
             math.floor(len/10))
     str = str .. str10
 remote "str = data:receive()"
-    sent, err = data:send(str, "\n")
+    sent, err = data:send(str.."\n")
     if err then fail(err) end
-remote "data:send(str, '\\n')"
+remote "data:send(str..'\\n')"
     back, err = data:receive()
     if err then fail(err) end
     if back == str then pass("lines match")
@@ -457,7 +457,62 @@ function getstats_test()
     print("ok")
 end
 
+
 ------------------------------------------------------------------------
+function test_nonblocking(size) 
+    reconnect()
+remote(string.format([[
+    data:send(string.rep("a", %d))
+    socket.sleep(0.5)
+    data:send(string.rep("b", %d))
+]], size, size))
+    local err = "timeout"
+    local part = ""
+    local str
+    data:settimeout(0)
+    while 1 do
+        str, err, part = data:receive(2*size - string.len(part), part)
+        if err ~= "timeout" then break end
+    end
+    assert(str == (string.rep("a", size) .. string.rep("b", size)))
+    reconnect()
+remote(string.format([[
+    str = data:receive(%d)
+    socket.sleep(0.5)
+    str = data:receive(%d, str)
+    str = data:receive("*l", str)
+    data:send(str)
+    data:send("\n")
+]], size, size))
+    data:settimeout(0)
+    local sofar = 1
+    while 1 do
+        _, err, part = data:send(str, sofar)
+        if err ~= "timeout" then break end
+        sofar = sofar + part
+    end
+    data:send("\n")
+    data:settimeout(-1)
+    local back = data:receive()
+    assert(back == str)
+    print("ok")
+end
+
+
+------------------------------------------------------------------------
+test("non-blocking transfer")
+test_nonblocking(1)
+test_nonblocking(17)
+test_nonblocking(200)
+test_nonblocking(4091)
+test_nonblocking(80199)
+test_nonblocking(8000000)
+test_nonblocking(80199)
+test_nonblocking(4091)
+test_nonblocking(200)
+test_nonblocking(17)
+test_nonblocking(1)
+
 test("method registration")
 test_methods(socket.tcp(), {
     "accept",
@@ -548,7 +603,6 @@ test_mixed(1)
 
 
 test("binary line")
-reconnect()
 test_rawline(1)
 test_rawline(17)
 test_rawline(200)
@@ -562,24 +616,6 @@ test_rawline(17)
 test_rawline(1)
 
 test("raw transfer")
-reconnect()
-test_raw(1)
-test_raw(17)
-test_raw(200)
-test_raw(4091)
-test_raw(80199)
-test_raw(8000000)
-test_raw(80199)
-test_raw(4091)
-test_raw(200)
-test_raw(17)
-test_raw(1)
-
-test("non-blocking transfer")
-reconnect()
--- the value is not important, we only want 
--- to test non-blocking I/O anyways
-data:settimeout(200)
 test_raw(1)
 test_raw(17)
 test_raw(200)
diff --git a/test/testsrvr.lua b/test/testsrvr.lua
index 969f95b..23e3850 100644
--- a/test/testsrvr.lua
+++ b/test/testsrvr.lua
@@ -1,29 +1,14 @@
-socket = require"socket"
-
-host = host or "localhost"
-port = port or "8080"
-
-server, error = socket.bind(host, port)
-if not server then print("server: " .. tostring(error)) os.exit() end
-ack = "\n"
+socket = require("socket");
+host = host or "localhost";
+port = port or "8080";
+server = assert(socket.bind(host, port));
+ack = "\n";
 while 1 do
     print("server: waiting for client connection...");
-    control, error = server:accept()
-    assert(control, error)
-    -- control:setoption("nodelay", true)
+    control = assert(server:accept());
     while 1 do 
-        command, error = control:receive()
-        if error then
-            control:close()
-            print("server: closing connection...")
-            break
-        end
-        sent, error = control:send(ack)
-        if error then
-            control:close()
-            print("server: closing connection...")
-            break
-        end
-        (loadstring(command))()
+        command = assert(control:receive());
+        assert(control:send(ack));
+        (loadstring(command))();
     end
 end
-- 
cgit v1.2.3-55-g6feb