SCO OpenServer 5 and Tcl8.0p1
Gordon Man
Hi,
I am trying to port Tcl8.0p1 onto SCO OpenServer 5. It compiled and
linked okay. However, when I do 'make test', I get these result.
The tests also hangs on 'unixNotfy.test'. Any pointer? Anyone?
Please email me if possible. Thanks in advance.
ps -fu gman
UID PID PPID C STIME TTY TIME CMD
gman 24942 24941 3 14:33:20 ttyp0 00:00:06 tcsh
gman 13625 24973 0 17:14:54 ttyp1 00:00:01 make test
gman 24972 24942 0 14:38:28 ttyp0 00:00:21 xterm
gman 24973 24972 0 14:38:29 ttyp1 00:00:03 tcsh
gman 13634 13625 0 17:14:58 ttyp1 00:00:00 sh -ce LD_LIBRARY_PATH=`pwd`:; export LD_LIBRARY_PATH; \?TCL_LIBRARY=./../libra
gman 13636 13634 0 17:14:58 ttyp1 00:01:12 ./tcltest
gman 13637 13636 0 - - 00:00:00 <defunct>
gman 13633 24973 0 17:14:56 ttyp1 00:00:00 tail -f _outtest
gman 13936 24942 14 17:18:18 ttyp0 00:00:00 ps -fu gman
The output of the 'make test'.
if test ! -f tclsh; then make tclsh; else true; fi
cd dltest; PATH=..:/bin:/usr/bin:/usr/bin/X11:/home/pd/empress/bin:.:/usr/bin/X11:/home/pd/empress/bin:.:/usr/bin/X11:/home/pd/empress/bin:. TCL_LIBRARY=../../library make
cc -belf -Wl,-Bexport tclTestInit.o tclTest.o tclTestObj.o tclUnixTest.o -L/usr3/pd/empress/hymedia.work/hypmedia/local/_pub/tcl8.0/unix -ltcl8.0 -lsocket -lm -lc \
-o tcltest
LD_LIBRARY_PATH=`pwd`:; export LD_LIBRARY_PATH; \
TCL_LIBRARY=./../library; export TCL_LIBRARY; \
( echo cd ./../tests\; source all ) | ./tcltest
append.test
assocd.test
async.test
basic.test
binary.test
case.test
clock.test
cmdAH.test
cmdIL.test
cmdInfo.test
compile.test
concat.test
dcall.test
dstring.test
env.test
error.test
eval.test
event.test
exec.test
execute.test
expr-old.test
expr.test
fCmd.test
==== fCmd-6.23 CopyRenameOneFile: TclpCopyDirectory failed --- (unixOnly xdev) ---
==== Contents of test case:
cleanup /tmp
file mkdir td1/td2/td3
exec chmod 000 td1
set msg [list [catch {file rename td1 /tmp} msg] $msg]
exec chmod 755 td1
set msg
==== Result was:
1 {error renaming "td1" to "/tmp/td1": permission denied}
---- Result should have been:
1 {error renaming "td1": permission denied}
---- fCmd-6.23 FAILED
==== fCmd-6.30 CopyRenameOneFile: TclpRemoveDirectory failed --- (unixOnly) ---
==== Contents of test case:
cleanup
file mkdir foo/bar
file attr foo -perm 040555
set msg [list [catch {file rename foo/bar /tmp} msg] $msg]
set a1 {1 {can't unlink "foo/bar": permission denied}}
set result [expr {$msg == $a1}]
catch {file delete /tmp/bar}
catch {file attr foo -perm 040777}
catch {file delete -force foo}
set result
==== Result was:
0
---- Result should have been:
1
---- fCmd-6.30 FAILED
fileName.test
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test
httpold.test
Running http 1.0 tests in slave interp
bgerror failed to handle background error.
Original error: connection reset by peer
Error in bgerror: invalid command name "bgerror"
bgerror failed to handle background error.
Original error: connection reset by peer
Error in bgerror: invalid command name "bgerror"
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
interp.test
io.test
ioCmd.test
join.test
lindex.test
link.test
linsert.test
list.test
listObj.test
llength.test
load.test
lrange.test
lreplace.test
lsearch.test
macFCmd.test
misc.test
namespace-old.test
namespace.test
obj.test
opt.test
osa.test
skipping: Mac only tests...
parse.test
pid.test
pkg.test
proc-old.test
proc.test
pwd.test
regexp.test
registry.test
rename.test
resource.test
safe.test
scan.test
set-old.test
set.test
socket.test
==== socket-2.9 socket conflict --- (stdio) ---
==== Contents of test case:
set s [socket -server accept 2828]
removeFile script
set f [open script w]
puts $f {set f [socket -server accept 2828]}
close $f
set f [open "|[list $tcltest script]" r]
gets $f
after 100
set x [list [catch {close $f} msg] $msg]
close $s
set x
==== Result was:
0 {}
---- Result should have been:
1 {couldn't open socket: address already in use
while executing
"socket -server accept 2828"
(file "script" line 1)}
---- socket-2.9 FAILED
==== socket-3.1 socket conflict --- (stdio) ---
==== Contents of test case:
removeFile script
set f [open script w]
puts $f {
set f [socket -server accept 2828]
puts ready
gets stdin
close $f
}
close $f
set f [open "|[list $tcltest script]" r+]
gets $f
set x [list [catch {socket -server accept 2828} msg] $msg]
puts $f bye
close $f
set x
==== Result was:
0 sock8
---- Result should have been:
1 {couldn't open socket: address already in use}
---- socket-3.1 FAILED
==== socket-10.6 socket conflict
==== Contents of test case:
set s1 [socket -server accept 2836]
if {[catch {set s2 [socket -server accept 2836]} msg]} {
set result [list 1 $msg]
} else {
set result [list 0 [lindex [fconfigure $s2 -sockname] 2]]
close $s2
}
close $s1
set result
==== Result was:
0 2836
---- Result should have been:
1 {couldn't open socket: address already in use}
---- socket-10.6 FAILED
source.test
split.test
string.test
stringObj.test
subst.test
switch.test
timer.test
trace.test
unixFCmd.test
==== unixFCmd-1.7 TclpRenameFile: EXDEV
==== Contents of test case:
cleanup
file mkdir foo/bar
file attr foo -perm 040555
set msg [list [catch {file rename foo/bar /tmp} msg] $msg]
set a1 {1 {can't unlink "foo/bar": permission denied}}
set result [expr {$msg == $a1}]
catch {file delete /tmp/bar}
catch {file attr foo -perm 040777}
catch {file delete -force foo}
set result
==== Result was:
0
---- Result should have been:
1
---- unixFCmd-1.7 FAILED
unixNotfy.test
^
|________________________ hangs here (waiting for the defunct process?)
--
Gordon Man
gman @ empress.com
Conor Williams
and loopback needs to be turned on my friend...
/c:202115101423:23