Tcl Source Code

Check-in [5d478dc916]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix http-3.29 for machines without IPv6 support.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5d478dc9168645daf5690afafafcd0578ab485f6
User & Date: max 2012-08-09 14:26:04
References
2013-11-11
08:48 Ticket [13d3af3ad5] IPV6 only used for IPV4/IPV6 sockets on windows status still Open with 4 other changes artifact: e4c15b2338 user: oehhar
2013-11-10
17:24 Ticket [13d3af3ad5]: 4 changes artifact: 3f5ee6d698 user: oehhar
Context
2012-08-09
14:34
Complete multi-fd server socket channels on Windows [Bug #3545363]. check-in: aef7ffe46d user: max tags: trunk
14:26
Fix http-3.29 for machines without IPv6 support. check-in: 5d478dc916 user: max tags: trunk
2012-08-08
23:07
Change one '#ifdef' to '#if defined()' for improved consistency within the file. check-in: 211aa43013 user: stwo tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.





1
2
3
4
5
6
7




2010-08-08  Stuart Cassoff  <[email protected]>

	* unix/tclUnixCompat.c: Change one '#ifdef' to '#if defined()' for
	improved consistency within the file.

2012-08-08  Jan Nijtmans  <[email protected]>

>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
2012-08-09  Reinhard Max  <[email protected]>

	* tests/http.test: Fix http-3.29 for machines without IPv6 support.

2010-08-08  Stuart Cassoff  <[email protected]>

	* unix/tclUnixCompat.c: Change one '#ifdef' to '#if defined()' for
	improved consistency within the file.

2012-08-08  Jan Nijtmans  <[email protected]>

Changes to tests/http.test.

388
389
390
391
392
393
394





395
396




397
398
399
400
401
402
403
404
405
406
Host .*
User-Agent .*
Connection close
Content-Type {text/plain;charset=utf-8}
Accept-Encoding .*
Content-Length 5}
test http-3.29 "http::geturl $ipv6url" -body {





    set token [http::geturl $ipv6url -validate 1]
    http::code $token




} -cleanup {
    http::cleanup $token
} -result "HTTP/1.0 200 OK"

test http-4.1 {http::Event} -body {
    set token [http::geturl $url -keepalive 0]
    upvar #0 $token data
    array set meta $data(meta)
    expr {($data(totalsize) == $meta(Content-Length))}
} -cleanup {







>
>
>
>
>
|
<
>
>
>
>

|
|







388
389
390
391
392
393
394
395
396
397
398
399
400

401
402
403
404
405
406
407
408
409
410
411
412
413
414
Host .*
User-Agent .*
Connection close
Content-Type {text/plain;charset=utf-8}
Accept-Encoding .*
Content-Length 5}
test http-3.29 "http::geturl $ipv6url" -body {
    # We only want to see if the URL gets parsed correctly. This is
    # the case if http::geturl succeeds or returns a socket related
    # error. If the parsing is wrong, we'll get a parse error.
    # It'd be better to separate the URL parser from http::geturl, so
    # that it can be tested without also trying to make a connection.
    set error [catch {http::geturl $ipv6url -validate 1} token]

    if {$error && [string match "couldn't open socket: *" $token]} {
            set error 0
    }
    set error
} -cleanup {
    catch { http::cleanup $token }
} -result 0

test http-4.1 {http::Event} -body {
    set token [http::geturl $url -keepalive 0]
    upvar #0 $token data
    array set meta $data(meta)
    expr {($data(totalsize) == $meta(Content-Length))}
} -cleanup {