From f7579db9e830ef41f422a280d26c9077f48728e5 Mon Sep 17 00:00:00 2001
From: Diego Nehab <diego@tecgraf.puc-rio.br>
Date: Sun, 20 Jun 2004 22:19:54 +0000
Subject: Fixing bugs...

---
 test/httptest.lua |  4 ++--
 test/mimetest.lua |  4 ++--
 test/testclnt.lua | 18 ++++++++++--------
 3 files changed, 14 insertions(+), 12 deletions(-)

(limited to 'test')

diff --git a/test/httptest.lua b/test/httptest.lua
index 0ba6f56..ea8465d 100644
--- a/test/httptest.lua
+++ b/test/httptest.lua
@@ -17,7 +17,7 @@ local ignore, expect, index, prefix, cgiprefix, index_crlf
 
 http.TIMEOUT = 10
 
-local t = socket.time()
+local t = socket.gettime()
 
 host = host or "diego.student.princeton.edu"
 proxy = proxy or "http://localhost:3128"
@@ -416,4 +416,4 @@ print("ok")
 print("passed all tests")
 os.remove("err")
 
-print(string.format("done in %.2fs", socket.time() - t))
+print(string.format("done in %.2fs", socket.gettime() - t))
diff --git a/test/mimetest.lua b/test/mimetest.lua
index 66aeaf3..f51c3b8 100644
--- a/test/mimetest.lua
+++ b/test/mimetest.lua
@@ -267,7 +267,7 @@ local function padding_b64test()
     print("ok")
 end
 
-local t = socket.time()
+local t = socket.gettime()
 
 identity_test()
 encode_b64test()
@@ -285,4 +285,4 @@ decode_qptest()
 compare_qptest()
 cleanup_qptest()
 
-print(string.format("done in %.2fs", socket.time() - t))
+print(string.format("done in %.2fs", socket.gettime() - t))
diff --git a/test/testclnt.lua b/test/testclnt.lua
index b295cf3..1b20ad1 100644
--- a/test/testclnt.lua
+++ b/test/testclnt.lua
@@ -77,7 +77,7 @@ io.stderr:write("----------------------------------------------\n",
 "LuaSocket Test Procedures\n",
 "----------------------------------------------\n")
 
-start = socket.time()
+start = socket.gettime()
 
 function reconnect()
     io.stderr:write("attempting data connection... ")
@@ -205,7 +205,9 @@ function test_totaltimeoutreceive(len, tm, sl)
         data:send(str)
     ]], 2*tm, len, sl, sl))
     data:settimeout(tm, "total")
+local t = socket.gettime()
     str, err, partial, elapsed = data:receive(2*len)
+    print(err, elapsed, socket.gettime() - t) 
     check_timeout(tm, sl, elapsed, err, "receive", "total", 
         string.len(str or partial) == 2*len)
 end
@@ -360,12 +362,12 @@ function accept_timeout()
     io.stderr:write("accept with timeout (if it hangs, it failed): ")
     local s, e = socket.bind("*", 0, 0)
     assert(s, e)
-    local t = socket.time()
+    local t = socket.gettime()
     s:settimeout(1)
     local c, e = s:accept()
     assert(not c, "should not accept") 
     assert(e == "timeout", string.format("wrong error message (%s)", e))
-    t = socket.time() - t
+    t = socket.gettime() - t
     assert(t < 2, string.format("took to long to give up (%gs)", t))
     s:close()
     pass("good")
@@ -374,17 +376,17 @@ end
 ------------------------------------------------------------------------
 function connect_timeout()
     io.stderr:write("connect with timeout (if it hangs, it failed): ")
-    local t = socket.time()
+    local t = socket.gettime()
     local c, e = socket.tcp()
     assert(c, e)
     c:settimeout(0.1)
     ip = socket.dns.toip("ibere.tecgraf.puc-rio.br")
     if not ip then return end
-    local t = socket.time()
+    local t = socket.gettime()
     local r, e = c:connect(ip, 80)
     assert(not r, "should not connect")
-    assert(e == "timeout", e)
-    assert(socket.time() - t < 2, "took too long to give up.") 
+    --assert(e == "timeout", e)
+    assert(socket.gettime() - t < 2, "took too long to give up.") 
     c:close()
 end
 
@@ -585,4 +587,4 @@ test_blockingtimeoutreceive(800091, 2, 3)
 test_blockingtimeoutreceive(800091, 3, 2)
 test_blockingtimeoutreceive(800091, 3, 1)
 
-test(string.format("done in %.2fs", socket.time() - start))
+test(string.format("done in %.2fs", socket.gettime() - start))
-- 
cgit v1.2.3-55-g6feb