Installing rancid
Tony Fischer
tony.fischer at gmail.com
Tue Dec 5 16:24:09 PST 2006
Hi All -
I'm attempting to install rancid on FreeBSD 6.1 and am not having any luck.
It's a pretty basic install with just oinkmaster installed really (no
updates or anything fancy). The process starts and then simply _stalls_ at a
line stating "==== socket-7.4 FAILED". I'm posting the output of what I
receive when I run the command "make install clean" from the
/usr/ports/net-mgmt/rancid directory. If this isn't the right list I'd be
happy to post it where it needs to go. Thanks for any help!
===> rancid-2.3.1_1 depends on executable: expect - not found
===> Verifying install for expect in /usr/ports/lang/expect
===> expect-5.43.0 depends on shared library: tk84.1 - not found
===> Verifying install for tk84.1 in /usr/ports/x11-toolkits/tk84
===> tk-8.4.13,2 depends on shared library: tcl84 - not found
===> Verifying install for tcl84 in /usr/ports/lang/tcl84
===> Building for tcl-8.4.13_1,1
Warning: tclStubInit.c may be out of date.
Developers may want to run "make genstubs" to regenerate.
This warning can be safely ignored, do not report as a bug!
LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}; export LD_LIBRARY_PATH;
TCL_LIBRARY="/usr/ports/lang/tcl84/work/tcl8.4.13/library"; export
TCL_LIBRARY; ./tcltest
/usr/ports/lang/tcl84/work/tcl8.4.13/unix/../tests/all.tcl
Tests running in interp: /usr/ports/lang/tcl84/work/tcl8.4.13/unix/tcltest
Tests located in: /usr/ports/lang/tcl84/work/tcl8.4.13/tests
Tests running in: /usr/ports/lang/tcl84/work/tcl8.4.13/unix
Temporary files stored in /usr/ports/lang/tcl84/work/tcl8.4.13/unix
Test files run in separate interpreters
Running tests that match: *
Skipping test files that match: l.*.test
Only running test files that match: *.test
Tests began at Tue Dec 05 16:29:22 PST 2006
append.test
appendComp.test
assocd.test
async.test
autoMkindex.test
basic.test
binary.test
case.test
clock.test
cmdAH.test
==== cmdAH-16.3 Tcl_FileObjCmd: readable FAILED
==== Contents of test case:
file reada $gorpfile
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-16.3 FAILED
==== cmdAH-17.2 Tcl_FileObjCmd: writable FAILED
==== Contents of test case:
file writable $gorpfile
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-17.2 FAILED
==== cmdAH-18.2 Tcl_FileObjCmd: executable FAILED
==== Contents of test case:
file executable $gorpfile
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-18.2 FAILED
==== cmdAH-19.11 Tcl_FileObjCmd: exists FAILED
==== Contents of test case:
file delete -force /tmp/tcl.foo.dir/file
file delete -force /tmp/tcl.foo.dir
makeDirectory /tmp/tcl.foo.dir
makeFile 12345 /tmp/tcl.foo.dir/file
file attributes /tmp/tcl.foo.dir -permissions 0000
set result [file exists /tmp/tcl.foo.dir/file]
file attributes /tmp/tcl.foo.dir -permissions 0775
removeFile /tmp/tcl.foo.dir/file
removeDirectory /tmp/tcl.foo.dir
set result
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-19.11 FAILED
==== cmdAH-25.3 Tcl_FileObjCmd: owned FAILED
==== Contents of test case:
file owned /
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-25.3 FAILED
cmdIL.test
cmdInfo.test
cmdMZ.test
compExpr-old.test
compExpr.test
compile.test
concat.test
dcall.test
dstring.test
encoding.test
env.test
error.test
eval.test
event.test
exec.test
execute.test
expr-old.test
expr.test
fCmd.test
==== fCmd-4.11 TclFileMakeDirsCmd: doesn't exist: errno != ENOENT FAILED
==== Contents of test case:
cleanup
file mkdir td1/td2/td3
testchmod 000 td1/td2
set msg [list [catch {file mkdir td1/td2/td3/td4} msg] $msg]
testchmod 755 td1/td2
set msg
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {can't create directory "td1/td2/td3": permission denied}
==== fCmd-4.11 FAILED
==== fCmd-4.14 TclFileMakeDirsCmd: TclpCreateDirectory fails FAILED
==== Contents of test case:
cleanup
file delete -force foo
file mkdir foo
file attr foo -perm 040000
set result [list [catch {file mkdir foo/tf1} msg] $msg]
file delete -force foo
set result
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {can't create directory "foo/tf1": permission denied}
==== fCmd-4.14 FAILED
==== fCmd-6.6 CopyRenameOneFile: errno != ENOENT FAILED
==== Contents of test case:
cleanup
file mkdir td1
testchmod 000 td1
createfile tf1
set msg [list [catch {file rename tf1 td1} msg] $msg]
testchmod 755 td1
set msg
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {error renaming "tf1" to "td1/tf1": permission denied}
==== fCmd-6.6 FAILED
==== fCmd-6.24 CopyRenameOneFile: error uses original name FAILED
==== Contents of test case:
cleanup
file mkdir ~/td1/td2
set td1name [file join [file dirname ~] [file tail ~] td1]
file attributes $td1name -permissions 0000
set msg [list [catch {file copy ~/td1 td1} msg] $msg]
file attributes $td1name -permissions 0755
file delete -force ~/td1
set msg
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {error copying "~/td1": permission denied}
==== fCmd-6.24 FAILED
==== fCmd-6.25 CopyRenameOneFile: error uses original name FAILED
==== Contents of test case:
cleanup
file mkdir td2
file mkdir ~/td1
set td1name [file join [file dirname ~] [file tail ~] td1]
file attributes $td1name -permissions 0000
set msg [list [catch {file copy td2 ~/td1} msg] $msg]
file attributes $td1name -permissions 0755
file delete -force ~/td1
set msg
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {error copying "td2" to "~/td1/td2": permission denied}
==== fCmd-6.25 FAILED
==== fCmd-6.26 CopyRenameOneFile: doesn't use original name FAILED
==== Contents of test case:
cleanup
file mkdir ~/td1/td2
set td2name [file join [file dirname ~] [file tail ~] td1 td2]
file attributes $td2name -permissions 0000
set msg [list [catch {file copy ~/td1 td1} msg] $msg]
file attributes $td2name -permissions 0755
file delete -force ~/td1
set msg
---- Result was:
0 {}
---- Result should have been (regexp matching):
1 {error copying "~/td1" to "td1": ".*td1/td2": permission denied}
==== fCmd-6.26 FAILED
==== fCmd-6.30 CopyRenameOneFile: TclpRemoveDirectory failed FAILED
==== Contents of test case:
cleanup
file mkdir foo/bar
file attr foo -perm 040555
set catchResult [catch {file rename foo/bar /tmp} msg]
set msg [lindex [split $msg :] end]
catch {file delete /tmp/bar}
catch {file attr foo -perm 040777}
catch {file delete -force foo}
list $catchResult $msg
---- Result was:
0 {}
---- Result should have been (exact matching):
1 { permission denied}
==== fCmd-6.30 FAILED
==== fCmd-9.1 file rename: comprehensive: EACCES FAILED
==== Contents of test case:
cleanup
file mkdir td1
file mkdir td2
file attr td2 -perm 040000
set result [list [catch {file rename td1 td2/} msg] $msg]
file delete -force td2
file delete -force td1
set result
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {error renaming "td1" to "td2/td1": permission denied}
==== fCmd-9.1 FAILED
==== fCmd-9.3 file rename: comprehensive: file to new name FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
testchmod 444 tf2
file rename tf1 tf3
file rename tf2 tf4
list [lsort [glob tf*]] [file writable tf3] [file writable tf4]
---- Result was:
{tf3 tf4} 1 1
---- Result should have been (exact matching):
{tf3 tf4} 1 0
==== fCmd-9.3 FAILED
==== fCmd-9.4 file rename: comprehensive: dir to new name FAILED
==== Contents of test case:
cleanup
file mkdir td1 td2
testchmod 555 td2
file rename td1 td3
file rename td2 td4
list [lsort [glob td*]] [file writable td3] [file writable td4]
---- Result was:
{td3 td4} 1 1
---- Result should have been (exact matching):
{td3 td4} 1 0
==== fCmd-9.4 FAILED
==== fCmd-9.5 file rename: comprehensive: file to self FAILED
==== Contents of test case:
cleanup
createfile tf1 tf1
createfile tf2 tf2
testchmod 444 tf2
file rename -force tf1 tf1
file rename -force tf2 tf2
list [contents tf1] [contents tf2] [file writable tf1] [file writable
tf2]
---- Result was:
tf1 tf2 1 1
---- Result should have been (exact matching):
tf1 tf2 1 0
==== fCmd-9.5 FAILED
==== fCmd-9.6 file rename: comprehensive: dir to self FAILED
==== Contents of test case:
cleanup
file mkdir td1
file mkdir td2
testchmod 555 td2
file rename -force td1 .
file rename -force td2 .
list [lsort [glob td*]] [file writable td1] [file writable td2]
---- Result was:
{td1 td2} 1 1
---- Result should have been (exact matching):
{td1 td2} 1 0
==== fCmd-9.6 FAILED
==== fCmd-9.7 file rename: comprehensive: file to existing file FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
createfile tfs1
createfile tfs2
createfile tfs3
createfile tfs4
createfile tfd1
createfile tfd2
createfile tfd3
createfile tfd4
testchmod 444 tfs3
testchmod 444 tfs4
testchmod 444 tfd2
testchmod 444 tfd4
set msg [list [catch {file rename tf1 tf2} msg] $msg]
file rename -force tfs1 tfd1
file rename -force tfs2 tfd2
file rename -force tfs3 tfd3
file rename -force tfs4 tfd4
list [lsort [glob tf*]] $msg [file writable tfd1] [file writable tfd2]
[file writable tfd3] [file writable tfd4]
---- Result was:
{tf1 tf2 tfd1 tfd2 tfd3 tfd4} {1 {error renaming "tf1" to "tf2": file
already exists}} 1 1 1 1
---- Result should have been (exact matching):
{tf1 tf2 tfd1 tfd2 tfd3 tfd4} {1 {error renaming "tf1" to "tf2": file
already exists}} 1 1 0 0
==== fCmd-9.7 FAILED
==== fCmd-9.10 file rename: comprehensive: file to new name and dir FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
file mkdir td1
testchmod 444 tf2
file rename tf1 [file join td1 tf3]
file rename tf2 [file join td1 tf4]
list [catch {glob tf*}] [lsort [glob -directory td1 t*]] [file writable
[file join td1 tf3]] [file writable [file join td1 tf4]]
---- Result was:
1 {td1/tf3 td1/tf4} 1 1
---- Result should have been (exact matching):
1 {td1/tf3 td1/tf4} 1 0
==== fCmd-9.10 FAILED
==== fCmd-10.2 file copy: comprehensive: file to new name FAILED
==== Contents of test case:
cleanup
createfile tf1 tf1
createfile tf2 tf2
testchmod 444 tf2
file copy tf1 tf3
file copy tf2 tf4
list [lsort [glob tf*]] [contents tf3] [contents tf4] [file writable
tf3] [file writable tf4]
---- Result was:
{tf1 tf2 tf3 tf4} tf1 tf2 1 1
---- Result should have been (exact matching):
{tf1 tf2 tf3 tf4} tf1 tf2 1 0
==== fCmd-10.2 FAILED
==== fCmd-10.4 file copy: comprehensive: file to existing file FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
createfile tfs1
createfile tfs2
createfile tfs3
createfile tfs4
createfile tfd1
createfile tfd2
createfile tfd3
createfile tfd4
testchmod 444 tfs3
testchmod 444 tfs4
testchmod 444 tfd2
testchmod 444 tfd4
set msg [list [catch {file copy tf1 tf2} msg] $msg]
file copy -force tfs1 tfd1
file copy -force tfs2 tfd2
file copy -force tfs3 tfd3
file copy -force tfs4 tfd4
list [lsort [glob tf*]] $msg [file writable tfd1] [file writable tfd2]
[file writable tfd3] [file writable tfd4]
---- Result was:
{tf1 tf2 tfd1 tfd2 tfd3 tfd4 tfs1 tfs2 tfs3 tfs4} {1 {error copying "tf1" to
"tf2": file already exists}} 1 1 1 1
---- Result should have been (exact matching):
{tf1 tf2 tfd1 tfd2 tfd3 tfd4 tfs1 tfs2 tfs3 tfs4} {1 {error copying "tf1" to
"tf2": file already exists}} 1 1 0 0
==== fCmd-10.4 FAILED
==== fCmd-10.6 file copy: comprehensive: dir to non-empty dir FAILED
==== Contents of test case:
cleanup
file mkdir tds1
file mkdir tds2
file mkdir [file join tdd1 tds1 xxx]
file mkdir [file join tdd2 tds2 xxx]
testchmod 555 tds2
set a1 [list [catch {file copy -force tds1 tdd1} msg] $msg]
set a2 [list [catch {file copy -force tds2 tdd2} msg] $msg]
list [lsort [glob td*]] $a1 $a2 [file writable tds1] [file writable
tds2]
---- Result was:
{tdd1 tdd2 tds1 tds2} {1 {error copying "tds1" to "tdd1/tds1": file already
exists}} {1 {error copying "tds2" to "tdd2/tds2": file already exists}} 1 1
---- Result should have been (exact matching):
{tdd1 tdd2 tds1 tds2} {1 {error copying "tds1" to "tdd1/tds1": file already
exists}} {1 {error copying "tds2" to "tdd2/tds2": file already exists}} 1 0
==== fCmd-10.6 FAILED
==== fCmd-10.7 file rename: comprehensive: file to new name and dir FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
file mkdir td1
testchmod 444 tf2
file copy tf1 [file join td1 tf3]
file copy tf2 [file join td1 tf4]
list [lsort [glob tf*]] [lsort [glob -directory td1 t*]] [file writable
[file join td1 tf3]] [file writable [file join td1 tf4]]
---- Result was:
{tf1 tf2} {td1/tf3 td1/tf4} 1 1
---- Result should have been (exact matching):
{tf1 tf2} {td1/tf3 td1/tf4} 1 0
==== fCmd-10.7 FAILED
==== fCmd-12.8 renamefile: generic error FAILED
==== Contents of test case:
catch {file delete -force -- tfa}
file mkdir tfa
file mkdir tfa/dir
file attributes tfa -permissions 0555
set result [catch {file rename tfa/dir tfa2}]
file attributes tfa -permissions 0777
file delete -force tfa
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-12.8 FAILED
==== fCmd-13.1 TclCopyFilesCmd: -force option FAILED
==== Contents of test case:
catch {file delete -force -- tfa1}
set s [createfile tfa1]
file copy -force tfa1 tfa2
set result [expr [checkcontent tfa2 $s] && [checkcontent tfa1 $s]]
file delete tfa1 tfa2
set result
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: error deleting "tfa2": directory not empty
while executing
"file delete tfa1 tfa2"
("uplevel" body line 6)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EEXIST {file already exists}
==== fCmd-13.1 FAILED
==== fCmd-13.2 TclCopyFilesCmd: -- option FAILED
==== Contents of test case:
catch {file delete -force -- tfa1}
set s [createfile -tfa1]
file copy -- -tfa1 tfa2
set result [expr [checkcontent tfa2 $s] && [checkcontent -tfa1 $s]]
file delete -- -tfa1 tfa2
set result
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: error deleting "tfa2": directory not empty
while executing
"file delete -- -tfa1 tfa2"
("uplevel" body line 6)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EEXIST {file already exists}
==== fCmd-13.2 FAILED
==== fCmd-13.3 TclCopyFilesCmd: bad option FAILED
==== Contents of test case:
catch {file delete -force -- tfa1}
set s [createfile tfa1]
set r1 [catch {file copy -x tfa1 tfa2}]
set result [expr $r1 && [checkcontent tfa1 $s] && ![file exists tfa2]]
file delete tfa1
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-13.3 FAILED
==== fCmd-14.8 copyfile: copy directory failing FAILED
==== Contents of test case:
catch {file delete -force -- tfa}
file mkdir tfa/dir/a/b/c
file attributes tfa/dir -permissions 0000
set r1 [catch {file copy tfa tfa2}]
file attributes tfa/dir -permissions 0777
set result $r1
file delete -force tfa tfa2
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-14.8 FAILED
==== fCmd-16.9 error while deleting file FAILED
==== Contents of test case:
catch {file delete -force -- tfa}
file mkdir tfa
createfile tfa/a
file attributes tfa -permissions 0555
set result [catch {file delete tfa/a }]
#######
####### If any directory in a tree that is being removed does not
####### have write permission, the process will fail!
####### This is also the case with "rm -rf"
#######
file attributes tfa -permissions 0777
file delete -force tfa
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-16.9 FAILED
==== fCmd-17.1 mkdir stat failing on target but not ENOENT FAILED
==== Contents of test case:
catch {file delete -force -- tfa1}
file mkdir tfa1
file attributes tfa1 -permissions 0555
set result [catch {file mkdir tfa1/tfa2}]
file attributes tfa1 -permissions 0777
file delete -force tfa1
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-17.1 FAILED
==== fCmd-19.2 rmdir error besides EEXIST FAILED
==== Contents of test case:
catch {file delete -force -- tfa}
file mkdir tfa
file mkdir tfa/a
file attributes tfa -permissions 0555
set result [catch {file delete tfa/a}]
file attributes tfa -permissions 0777
file delete -force tfa
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-19.2 FAILED
==== fCmd-20.1 TraverseUnixTree : failure opening a subdirectory directory
FAILED
==== Contents of test case:
catch {file delete -force -- tfa}
file mkdir tfa
file mkdir tfa/a
file attributes tfa/a -permissions 0000
set result [catch {file delete -force tfa}]
file attributes tfa/a -permissions 0777
file delete -force tfa
set result
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: could not set permissions for file "tfa/a": no such file or
directory
while executing
"file attributes tfa/a -permissions 0777"
("uplevel" body line 7)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ENOENT {no such file or directory}
==== fCmd-20.1 FAILED
fileName.test
fileSystem.test
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test
==== http-3.3 http::geturl FAILED
==== Contents of test case:
set token [http::geturl $url]
http::data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.3 FAILED
==== http-3.4 http::geturl FAILED
==== Contents of test case:
set token [http::geturl $url]
http::data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.4 FAILED
==== http-3.5 http::geturl FAILED
==== Contents of test case:
http::config -proxyfilter selfproxy
set token [http::geturl $url]
http::config -proxyfilter http::ProxyRequired
http::data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 3)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.5 FAILED
==== http-3.6 http::geturl FAILED
==== Contents of test case:
http::config -proxyfilter bogus
set token [http::geturl $url]
http::config -proxyfilter http::ProxyRequired
http::data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 3)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.6 FAILED
==== http-3.7 http::geturl FAILED
==== Contents of test case:
set token [http::geturl $url -headers {Pragma no-cache}]
http::data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url -headers {Pragma no-cache}"
invoked from within
"set token [http::geturl $url -headers {Pragma no-cache}]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.7 FAILED
==== http-3.8 http::geturl FAILED
==== Contents of test case:
set token [http::geturl $url -query Name=Value&Foo=Bar -timeout 2000]
http::data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: connect failed
while executing
"http::geturl $url -query Name=Value&Foo=Bar -timeout 2000"
invoked from within
"set token [http::geturl $url -query Name=Value&Foo=Bar -timeout 2000]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.8 FAILED
==== http-3.9 http::geturl FAILED
==== Contents of test case:
set token [http::geturl $url -validate 1]
http::code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url -validate 1"
invoked from within
"set token [http::geturl $url -validate 1]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.9 FAILED
==== http-3.10 http::geturl queryprogress FAILED
==== Contents of test case:
set query foo=bar
set sep ""
set i 0
# Create about 120K of query data
while {$i < 14} {
incr i
append query $sep$query
set sep &
}
proc postProgress {token x y} {
global postProgress
lappend postProgress $y
}
set postProgress {}
set t [http::geturl $posturl -query $query -queryprogress postProgress
-queryblocksize 16384]
http::wait $t
list [http::status $t] [string length $query] $postProgress [http::data
$t]
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $posturl -query $query -queryprogress postProgress
-queryblocksize 16384"
invoked from within
"set t [http::geturl $posturl -query $query -queryprogress postProgress
-queryblocksize 16384]"
("uplevel" body line 17)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.10 FAILED
==== http-3.11 http::geturl querychannel with -command FAILED
==== Contents of test case:
set query foo=bar
set sep ""
set i 0
# Create about 120K of query data
while {$i < 14} {
incr i
append query $sep$query
set sep &
}
set file [makeFile $query outdata]
set fp [open $file]
proc asyncCB {token} {
global postResult
lappend postResult [http::data $token]
}
set postResult [list ]
set t [http::geturl $posturl -querychannel $fp]
http::wait $t
set testRes [list [http::status $t] [string length $query] [http::data
$t]]
# Now do async
http::cleanup $t
close $fp
set fp [open $file]
set t [http::geturl $posturl -querychannel $fp -command asyncCB]
set postResult [list PostStart]
http::wait $t
close $fp
lappend testRes [http::status $t] $postResult
removeFile outdata
set testRes
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $posturl -querychannel $fp"
invoked from within
"set t [http::geturl $posturl -querychannel $fp]"
("uplevel" body line 19)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.11 FAILED
==== http-3.14 http::geturl
http://user:pass@dcw-oink.fpdata.com:59536/a/b/cFAILED
==== Contents of test case:
set token [http::geturl $fullurl -validate 1]
http::code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $fullurl -validate 1"
invoked from within
"set token [http::geturl $fullurl -validate 1]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.14 FAILED
==== http-4.1 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url]
upvar #0 $token data
array set meta $data(meta)
expr ($data(totalsize) == $meta(Content-Length))
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.1 FAILED
==== http-4.2 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url]
upvar #0 $token data
array set meta $data(meta)
string compare $data(type) [string trim $meta(Content-Type)]
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.2 FAILED
==== http-4.3 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url]
http::code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.3 FAILED
==== http-4.4 http::Event FAILED
==== Contents of test case:
set testfile [makeFile "" testfile]
set out [open $testfile w]
set token [http::geturl $url -channel $out]
close $out
set in [open $testfile]
set x [read $in]
close $in
removeFile $testfile
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url -channel $out"
invoked from within
"set token [http::geturl $url -channel $out]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.4 FAILED
==== http-4.5 http::Event FAILED
==== Contents of test case:
set testfile [makeFile "" testfile]
set out [open $testfile w]
set token [http::geturl $url -channel $out]
close $out
upvar #0 $token data
removeFile $testfile
expr $data(currentsize) == $data(totalsize)
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url -channel $out"
invoked from within
"set token [http::geturl $url -channel $out]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.5 FAILED
==== http-4.6 http::Event FAILED
==== Contents of test case:
set testfile [makeFile "" testfile]
set out [open $testfile w]
set token [http::geturl $binurl -channel $out]
close $out
set in [open $testfile]
fconfigure $in -translation binary
set x [read $in]
close $in
removeFile $testfile
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $binurl -channel $out"
invoked from within
"set token [http::geturl $binurl -channel $out]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.6 FAILED
==== http-4.7 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url -progress myProgress]
set progress
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url -progress myProgress"
invoked from within
"set token [http::geturl $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.7 FAILED
==== http-4.8 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url]
http::status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.8 FAILED
==== http-4.9 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url -progress myProgress]
http::code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url -progress myProgress"
invoked from within
"set token [http::geturl $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.9 FAILED
==== http-4.10 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url -progress myProgress]
http::size $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url -progress myProgress"
invoked from within
"set token [http::geturl $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.10 FAILED
==== http-4.11 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url -timeout 1 -command {#}]
http::reset $token
http::status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: connect failed
while executing
"http::geturl $url -timeout 1 -command {#}"
invoked from within
"set token [http::geturl $url -timeout 1 -command {#}]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.11 FAILED
==== http-4.12 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url/?timeout=10 -command {#}]
http::reset $token
http::status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url/?timeout=10 -command {#}"
invoked from within
"set token [http::geturl $url/?timeout=10 -command {#}]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.12 FAILED
==== http-4.13 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url?timeout=30 -timeout 10 -command {#}]
http::wait $token
http::status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: connect failed
while executing
"http::geturl $url?timeout=30 -timeout 10 -command {#}"
invoked from within
"set token [http::geturl $url?timeout=30 -timeout 10 -command {#}]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.13 FAILED
==== http-6.1 http::ProxyRequired FAILED
==== Contents of test case:
http::config -proxyhost [info hostname] -proxyport $port
set token [http::geturl $url]
http::wait $token
http::config -proxyhost {} -proxyport {}
upvar #0 $token data
set data(body)
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 3)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-6.1 FAILED
httpold.test
==== httpold-3.3 http_get FAILED
==== Contents of test case:
set token [http_get $url]
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.3 FAILED
==== httpold-3.4 http_get FAILED
==== Contents of test case:
set token [http_get $url]
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.4 FAILED
==== httpold-3.5 http_get FAILED
==== Contents of test case:
http_config -proxyfilter selfproxy
set token [http_get $url]
http_config -proxyfilter httpProxyRequired
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $phost $pport"
(procedure "http_get" line 59)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 3)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.5 FAILED
==== httpold-3.6 http_get FAILED
==== Contents of test case:
http_config -proxyfilter bogus
set token [http_get $url]
http_config -proxyfilter httpProxyRequired
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 3)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.6 FAILED
==== httpold-3.7 http_get FAILED
==== Contents of test case:
set token [http_get $url -headers {Pragma no-cache}]
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -headers {Pragma no-cache}"
invoked from within
"set token [http_get $url -headers {Pragma no-cache}]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.7 FAILED
==== httpold-3.8 http_get FAILED
==== Contents of test case:
set token [http_get $url -query Name=Value&Foo=Bar]
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -query Name=Value&Foo=Bar"
invoked from within
"set token [http_get $url -query Name=Value&Foo=Bar]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.8 FAILED
==== httpold-3.9 http_get FAILED
==== Contents of test case:
set token [http_get $url -validate 1]
http_code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -validate 1"
invoked from within
"set token [http_get $url -validate 1]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.9 FAILED
==== httpold-4.1 httpEvent FAILED
==== Contents of test case:
set token [http_get $url]
upvar #0 $token data
array set meta $data(meta)
expr ($data(totalsize) == $meta(Content-Length))
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.1 FAILED
==== httpold-4.2 httpEvent FAILED
==== Contents of test case:
set token [http_get $url]
upvar #0 $token data
array set meta $data(meta)
string compare $data(type) [string trim $meta(Content-Type)]
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.2 FAILED
==== httpold-4.3 httpEvent FAILED
==== Contents of test case:
set token [http_get $url]
http_code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.3 FAILED
==== httpold-4.4 httpEvent FAILED
==== Contents of test case:
set testfile [makeFile "" testfile]
set out [open $testfile w]
set token [http_get $url -channel $out]
close $out
set in [open $testfile]
set x [read $in]
close $in
removeFile $testfile
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -channel $out"
invoked from within
"set token [http_get $url -channel $out]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.4 FAILED
==== httpold-4.5 httpEvent FAILED
==== Contents of test case:
set testfile [makeFile "" testfile]
set out [open $testfile w]
set token [http_get $url -channel $out]
close $out
upvar #0 $token data
removeFile $testfile
expr $data(currentsize) == $data(totalsize)
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -channel $out"
invoked from within
"set token [http_get $url -channel $out]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.5 FAILED
==== httpold-4.6 httpEvent FAILED
==== Contents of test case:
set testfile [makeFile "" testfile]
set out [open $testfile w]
set token [http_get $binurl -channel $out]
close $out
set in [open $testfile]
fconfigure $in -translation binary
set x [read $in]
close $in
removeFile $testfile
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $binurl -channel $out"
invoked from within
"set token [http_get $binurl -channel $out]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.6 FAILED
==== httpold-4.7 httpEvent FAILED
==== Contents of test case:
set token [http_get $url -progress myProgress]
set progress
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -progress myProgress"
invoked from within
"set token [http_get $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.7 FAILED
==== httpold-4.8 httpEvent FAILED
==== Contents of test case:
set token [http_get $url]
http_status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.8 FAILED
==== httpold-4.9 httpEvent FAILED
==== Contents of test case:
set token [http_get $url -progress myProgress]
http_code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -progress myProgress"
invoked from within
"set token [http_get $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.9 FAILED
==== httpold-4.10 httpEvent FAILED
==== Contents of test case:
set token [http_get $url -progress myProgress]
http_size $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -progress myProgress"
invoked from within
"set token [http_get $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.10 FAILED
==== httpold-4.11 httpEvent FAILED
==== Contents of test case:
set token [http_get $url -timeout 1 -command {#}]
http_reset $token
http_status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -timeout 1 -command {#}"
invoked from within
"set token [http_get $url -timeout 1 -command {#}]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.11 FAILED
==== httpold-4.12 httpEvent FAILED
==== Contents of test case:
update
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
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -timeout 1 -command {lappend x fail}"
invoked from within
"set token [http_get $url -timeout 1 -command {lappend x fail}]"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.12 FAILED
==== httpold-6.1 httpProxyRequired FAILED
==== Contents of test case:
update
http_config -proxyhost [info hostname] -proxyport $port
set token [http_get $url]
http_wait $token
http_config -proxyhost {} -proxyport {}
upvar #0 $token data
set data(body)
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-6.1 FAILED
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
init.test
: Total 24 Passed 24 Skipped 0 Failed 0
interp.test
io.test
==== io-29.34 Tcl_Close, async flush on close, using sockets FAILED
==== Contents of test case:
variable c 0
variable x running
set l
abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz
proc writelots {s l} {
for {set i 0} {$i < 2000} {incr i} {
puts $s $l
}
}
proc accept {s a p} {
variable x
fileevent $s readable [namespace code [list readit $s]]
fconfigure $s -blocking off
set x accepted
}
proc readit {s} {
variable c
variable x
set l [gets $s]
if {[eof $s]} {
close $s
set x done
} elseif {([string length $l] > 0) || ![fblocked $s]} {
incr c
}
}
set ss [socket -server [namespace code accept] 0]
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
vwait [namespace which -variable x]
fconfigure $cs -blocking off
writelots $cs $l
close $cs
close $ss
vwait [namespace which -variable x]
set c
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket [info hostname] [lindex [fconfigure $ss -sockname] 2]"
invoked from within
"set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]"
("uplevel" body line 29)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== io-29.34 FAILED
==== io-29.35 Tcl_Close vs fileevent vs multiple interpreters FAILED
==== Contents of test case:
# On Mac, this test screws up sockets such that subsequent tests using
port 2828
# either cause errors or panic().
catch {interp delete x}
catch {interp delete y}
interp create x
interp create y
set s [socket -server [namespace code accept] 0]
proc accept {s a p} {
puts $s hello
close $s
}
set c [socket [info hostname] [lindex [fconfigure $s -sockname] 2]]
interp share {} $c x
interp share {} $c y
close $c
x eval {
proc readit {s} {
gets $s
if {[eof $s]} {
close $s
}
}
}
y eval {
proc readit {s} {
gets $s
if {[eof $s]} {
close $s
}
}
}
x eval "fileevent $c readable \{readit $c\}"
y eval "fileevent $c readable \{readit $c\}"
y eval [list close $c]
update
close $s
interp delete x
interp delete y
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket [info hostname] [lindex [fconfigure $s -sockname] 2]"
invoked from within
"set c [socket [info hostname] [lindex [fconfigure $s -sockname] 2]]"
("uplevel" body line 14)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== io-29.35 FAILED
==== io-51.1 Test old socket deletion on Macintosh FAILED
==== Contents of test case:
set x 0
set result ""
proc accept {s a p} {
variable x
variable wait
fconfigure $s -blocking off
puts $s "sock[incr x]"
close $s
set wait done
}
set ss [socket -server [namespace code accept] 0]
variable wait ""
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
vwait [namespace which -variable wait]
lappend result [gets $cs]
close $cs
set wait ""
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
vwait [namespace which -variable wait]
lappend result [gets $cs]
close $cs
set wait ""
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
vwait [namespace which -variable wait]
lappend result [gets $cs]
close $cs
set wait ""
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
vwait [namespace which -variable wait]
lappend result [gets $cs]
close $cs
close $ss
set result
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket [info hostname] [lindex [fconfigure $ss -sockname] 2]"
invoked from within
"set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]"
("uplevel" body line 14)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== io-51.1 FAILED
==== io-54.1 Recursive channel events FAILED
==== Contents of test case:
# This test checks to see if file events are delivered during recursive
# event loops when there is buffered data on the channel.
proc accept {s a p} {
variable as
fconfigure $s -translation lf
puts $s "line 1\nline2\nline3"
flush $s
set as $s
}
proc readit {s next} {
variable x
variable result
lappend result $next
if {$next == 1} {
fileevent $s readable [namespace code [list readit $s 2]]
vwait [namespace which -variable x]
}
incr x
}
set ss [socket -server [namespace code accept] 0]
# We need to delay on some systems until the creation of the
# server socket completes.
set done 0
for {set i 0} {$i < 10} {incr i} {
if {![catch {set cs [socket [info hostname] [lindex [fconfigure $ss
-sockname] 2]]}]} {
set done 1
break
}
after 100
}
if {$done == 0} {
close $ss
error "failed to connect to server"
}
variable result {}
variable x 0
variable as
vwait [namespace which -variable as]
fconfigure $cs -translation lf
lappend result [gets $cs]
fconfigure $cs -blocking off
fileevent $cs readable [namespace code [list readit $cs 1]]
set a [after 2000 [namespace code { set x failure }]]
vwait [namespace which -variable x]
after cancel $a
close $as
close $ss
close $cs
list $result $x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: failed to connect to server
while executing
"error "failed to connect to server""
invoked from within
"if {$done == 0} {
close $ss
error "failed to connect to server"
}"
("uplevel" body line 35)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== io-54.1 FAILED
ioCmd.test
ioUtil.test
iogt.test
join.test
lindex.test
link.test
linsert.test
list.test
listObj.test
llength.test
load.test
lrange.test
lreplace.test
lsearch.test
lset.test
lsetComp.test
macFCmd.test
main.test
misc.test
msgcat.test
namespace-old.test
namespace.test
notify.test
obj.test
opt.test
osa.test
package.test
parse.test
parseExpr.test
parseOld.test
pid.test
pkg.test
: Total 139 Passed 138 Skipped 1 Failed 0
pkgMkIndex.test
platform.test
proc-old.test
proc.test
pwd.test
reg.test
regexp.test
regexpComp.test
registry.test
rename.test
resource.test
result.test
safe.test
scan.test
security.test
set-old.test
set.test
socket.test
==== socket-2.10 close on accept, accepted socket lives FAILED
==== Contents of test case:
set done 0
set timer [after 20000 "set done timed_out"]
set ss [socket -server accept 0]
proc accept {s a p} {
global ss
close $ss
fileevent $s readable "readit $s"
fconfigure $s -trans lf
}
proc readit {s} {
global done
gets $s
close $s
set done 1
}
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
puts $cs hello
close $cs
vwait done
after cancel $timer
set done
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket [info hostname] [lindex [fconfigure $ss -sockname] 2]"
invoked from within
"set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]"
("uplevel" body line 17)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== socket-2.10 FAILED
==== socket-5.1 byte order problems, socket numbers, htons FAILED
==== Contents of test case:
set x {couldn't open socket: not owner}
if {![catch {socket -server dodo 0x1} msg]} {
set x {htons problem, should be disallowed, are you running as SU?}
close $msg
}
set x
---- Result was:
htons problem, should be disallowed, are you running as SU?
---- Result should have been (exact matching):
couldn't open socket: not owner
==== socket-5.1 FAILED
==== socket-5.3 byte order problems, socket numbers, htons FAILED
==== Contents of test case:
set x {couldn't open socket: not owner}
if {![catch {socket -server dodo 21} msg]} {
set x {htons problem, should be disallowed, are you running as SU?}
close $msg
}
set x
---- Result was:
htons problem, should be disallowed, are you running as SU?
---- Result should have been (exact matching):
couldn't open socket: not owner
==== socket-5.3 FAILED
==== socket-7.4 testing socket specific options FAILED
==== Contents of test case:
set s [socket -server accept 0]
proc accept {s a p} {
global x
set x [fconfigure $s -sockname]
close $s
}
set listen [lindex [fconfigure $s -sockname] 2]
set s1 [socket [info hostname] $listen]
set timer [after 10000 "set x timed_out"]
vwait x
after cancel $timer
close $s
close $s1
set l ""
lappend l [expr {[lindex $x 2] == $listen}] [llength $x]
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket [info hostname] $listen"
invoked from within
"set s1 [socket [info hostname] $listen]"
("uplevel" body line 9)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== socket-7.4 FAILED
^C
dcw-oink# whoami
root
dcw-oink#
More information about the freebsd-questions
mailing list