From b1a4ad2b1996936744c679e6ae563986ff701a3a Mon Sep 17 00:00:00 2001
From: Diego Nehab <diego@tecgraf.puc-rio.br>
Date: Fri, 2 Jul 2004 18:44:05 +0000
Subject: Compiles and runs on windows.

---
 test/mimetest.lua |  2 +-
 test/testclnt.lua | 22 ++++++++++++++++++++++
 2 files changed, 23 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/mimetest.lua b/test/mimetest.lua
index 0b3db33..413a83b 100644
--- a/test/mimetest.lua
+++ b/test/mimetest.lua
@@ -8,7 +8,7 @@ local qptest = "qptest.bin"
 local eqptest = "qptest.bin2"
 local dqptest = "qptest.bin3"
 
-local b64test = "luasocket.dylib"
+local b64test = "luasocket.dll"
 local eb64test = "b64test.bin"
 local db64test = "b64test.bin2"
 
diff --git a/test/testclnt.lua b/test/testclnt.lua
index 38dc19a..cdd2c08 100644
--- a/test/testclnt.lua
+++ b/test/testclnt.lua
@@ -437,6 +437,25 @@ function rebind_test()
     print("ok: ", e)
 end
 
+------------------------------------------------------------------------
+function getstats_test()
+    reconnect()
+    local t = 0
+    for i = 1, 25 do
+        local c = math.random(1, 100)
+        remote (string.format ([[
+            str = data:receive(%d)
+            data:send(str)
+        ]], c))
+        c:send(string.rep("a", c))
+        c:receive(c)
+        local r, s, a = c:getstats()
+        assert(r == t, "received count failed")
+        assert(s == t, "sent count failed")
+    end
+    print("ok")
+end
+
 ------------------------------------------------------------------------
 test("method registration")
 test_methods(socket.tcp(), {
@@ -499,6 +518,9 @@ test("accept function: ")
 accept_timeout()
 accept_errors()
 
+test("getstats test")
+getstats_test()
+
 test("character line")
 test_asciiline(1)
 test_asciiline(17)
-- 
cgit v1.2.3-55-g6feb