summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/httpd18
1 files changed, 17 insertions, 1 deletions
diff --git a/tests/httpd b/tests/httpd
index 1531964..ddfa6bf 100644
--- a/tests/httpd
+++ b/tests/httpd
@@ -58,6 +58,12 @@ proc httpdRead { sock } {
}
return
}
+ # Extra check to handle -1,query,POST case, where we may see eof,
+ # although the data is there, just without a final newline. A proper
+ # server would handle this better.
+ if {[regexp {Content-Length: (\d+)} $line match length]} {
+ set data(length) $length
+ }
# string compare $readCount 0 maps -1 to -1, 0 to 0, and > 0 to 1
@@ -77,10 +83,20 @@ proc httpdRead { sock } {
1,mime,HEAD -
1,mime,POST -
1,mime,GET {
- if [regexp {([^:]+):[ ]*(.*)} $line dummy key value] {
+ if {[regexp {([^:]+):[ ]*(.*)} $line dummy key value]} {
set data(mime,[string tolower $key]) $value
}
}
+ -1,query,POST {
+ if {[info exists data(length)]} {
+ append data(query) [read $sock $data(length)]
+ httpdRespond $sock
+ return
+ }
+ httpd_log $sock Error "unexpected eof on <$data(url)> request"
+ httpdError $sock 404
+ httpdSockDone $sock
+ }
1,query,POST {
append data(query) $line
httpdRespond $sock