summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--tests/httpd3
2 files changed, 6 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 61eb568..3384da0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -13,6 +13,9 @@
2004-08-18 Kevin Kenny <kennykb@acm.org>
+ * tests/httpd (httpdRespond): Corrected an abuse of the [clock]
+ command that caused test failures for some values of [clock clicks].
+
* doc/clock.n
* generic/tclBasic.c (Tcl_CreateInterp, Tcl_HideUnsafeCommands):
* generic/tclClock.c (all):
@@ -57,7 +60,7 @@
Scheffers, Peter da Silva and Richard Suchenwirth-Bauersachs.
*** POTENTIAL INCOMPATIBILITY ***
-
+
2004-08-16 Miguel Sofer <msofer@users.sf.net>
* doc/SetVar.3:
diff --git a/tests/httpd b/tests/httpd
index 2bef362..f41c3c1 100644
--- a/tests/httpd
+++ b/tests/httpd
@@ -201,7 +201,8 @@ proc httpdRespond { sock } {
} else {
puts $sock "HTTP/1.0 200 Data follows"
}
- puts $sock "Date: [clock format [clock clicks]]"
+ puts $sock "Date: [clock format [clock seconds] \
+ -format {%a, %d %b %Y %H:%M:%S %Z}]"
puts $sock "Content-Type: $type"
puts $sock "Content-Length: [string length $html]"
puts $sock ""