All pastes #539646 Raw Edit

Untitled

public text v1 · immutable
·published 2007-06-05 09:05 UTC
rendered paste body
Running httpd in thread 1077942624

==== http-4.15 http::Event FAILED
==== Contents of test case:

    # This test may fail if you use a proxy server.  That is to be
    # expected and is not a problem with Tcl.
    set code [catch {
        set token [http::geturl //not_a_host.tcl.tk -timeout 1000 -command {#}]
        http::wait $token
        http::status $token
    } err]
    # error code varies among platforms.
    list $code [string match "couldn't open socket*" $err]

---- Result was:
0 0
---- Result should have been (exact matching):
1 1
==== http-4.15 FAILED