diff options
| author | stanton <stanton> | 1999-04-07 00:39:10 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-04-07 00:39:10 (GMT) |
| commit | bf7e77650a067dc44ad09e24703d8cdfc2784828 (patch) | |
| tree | 16070bec7c368869a1680b333df12ce7eafe020e | |
| parent | 51a3a712d6e8ce62e7f5f3f4544c251814a65f49 (diff) | |
| download | tcl-bf7e77650a067dc44ad09e24703d8cdfc2784828.zip tcl-bf7e77650a067dc44ad09e24703d8cdfc2784828.tar.gz tcl-bf7e77650a067dc44ad09e24703d8cdfc2784828.tar.bz2 | |
* tests/httpold.test: Fixed broken test that didn't wait long
enough for events to arrive.
| -rw-r--r-- | tests/httpold.test | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/tests/httpold.test b/tests/httpold.test index 4bd2404..d02af34 100644 --- a/tests/httpold.test +++ b/tests/httpold.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: httpold.test,v 1.1.2.8 1999/04/05 23:34:44 welch Exp $ +# RCS: @(#) $Id: httpold.test,v 1.1.2.9 1999/04/07 00:39:10 stanton Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -389,13 +389,12 @@ test http-4.11 {httpEvent} { } {reset} test http-4.12 {httpEvent} { update - set token [http_get $url -timeout 1 -command {#}] - # This combo of update and after 10 is an effort - # to let enough events get through the event loop. - update - after 10 - http_status $token -} {timeout} + set x {} + after 500 {lappend x ok} + set token [http_get $url -timeout 1 -command {lappend x fail}] + vwait x + list [http_status $token] $x +} {timeout ok} test http-5.1 {http_formatQuery} { http_formatQuery name1 value1 name2 "value two" |