diff options
| -rw-r--r-- | tests/httpd | 2 | ||||
| -rw-r--r-- | tests/httpold.test | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/httpd b/tests/httpd index 9fd23e7..682556b 100644 --- a/tests/httpd +++ b/tests/httpd @@ -69,7 +69,7 @@ proc httpdRead { sock } { httpd_log $sock Error "bad first line:$line" httpdSockDone $sock } - if {[regexp {[\?&]delay=([^&]+)} val]} { + if {[regexp {(?:^|[\?&])delay=([^&]+)} $data(query) {} val]} { fileevent $sock readable {} after $val [list fileevent $sock readable [list httpdRead $sock]] } diff --git a/tests/httpold.test b/tests/httpold.test index 439ce92..e760c92 100644 --- a/tests/httpold.test +++ b/tests/httpold.test @@ -260,7 +260,7 @@ test httpold-4.12 {httpEvent} -body { set tout {} update set x {} - set token [http_get $url -query delay=500 -timeout 1 -command {lappend x fail}] + set token [http_get $url?delay=500 -timeout 1 -command {lappend x fail}] set i 0; while {$x eq {} && [incr i] < 50} { set tout [after 20 {set x progress}] vwait x |