Tcl Source Code

Artifact [c38c950882]
Login

Artifact c38c950882088ae48fd2ec3dbe8a3f0d03201eb5aac473dab5088dfb898e2c20:

Attachment "w.tcl-test" to ticket [255c116110] added by bll 2020-07-23 17:02:57.
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`:  TCLLIBPATH="/home/bll/t/tcl-work/tcl/unix/pkgs"  TCL_LIBRARY="/home/bll/t/tcl-work/tcl/library" ./tcltest /home/bll/t/tcl-work/tcl/tests/all.tcl 
Tests running in interp:  /usr/home/bll/t/tcl-work/tcl/unix/tcltest
Tests located in:  /usr/home/bll/t/tcl-work/tcl/tests
Tests running in:  /usr/home/bll/t/tcl-work/tcl/unix
Temporary files stored in /usr/home/bll/t/tcl-work/tcl/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 Thu Jul 23 09:46:06 PDT 2020
aaa_exit.test
append.test
appendComp.test
apply.test
assemble.test
assocd.test
async.test
autoMkindex.test
basic.test
binary.test
case.test
chan.test
chanio.test
clock.test
cmdAH.test
cmdIL.test
cmdInfo.test
cmdMZ.test
compExpr-old.test
compExpr.test
compile.test
concat.test
config.test
coroutine.test
dcall.test
dict.test
dstring.test
encoding.test
env.test
error.test
eval.test
event.test
exec.test
execute.test
expr-old.test
expr.test
fCmd.test
fileName.test
fileSystem.test
fileSystemEncoding.test
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test
http11.test
httpPipeline.test
httpold.test
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
init.test
interp.test
io.test
ioCmd.test
ioTrans.test
iogt.test
join.test
lindex.test
link.test
linsert.test
list.test
listObj.test
llength.test
lmap.test
load.test
lrange.test
lrepeat.test
lreplace.test
lsearch.test
lset.test
lsetComp.test
macOSXFCmd.test
macOSXLoad.test
main.test
mathop.test
misc.test
msgcat.test
namespace-old.test
namespace.test
notify.test
nre.test
obj.test
oo.test
ooNext2.test
opt.test
package.test
parse.test
parseExpr.test
parseOld.test
pid.test
pkgMkIndex.test
platform.test
proc-old.test
proc.test
pwd.test
reg.test
regexp.test
regexpComp.test
registry.test
rename.test
resolver.test
result.test
safe.test
scan.test
security.test
set-old.test
set.test
socket.test


==== socket_inet6-2.13 Bug 1758a0b603 FAILED
==== Contents of test case:

    file delete $path(script)
    set f [open $path(script) w]
    puts $f {
	set server [socket -server accept 0]
	puts [lindex [chan configure $server -sockname] 2]
	proc accept { client host port } {
	    chan configure $client -blocking  0 -buffering line -buffersize 1
	    puts $client [string repeat . 720000]
	    puts ready
	    chan event $client writable [list setup $client]
	}
	proc setup client {
	    chan event $client writable {set forever write}
	    after 5 {set forever timeout}
	}
	vwait forever
	puts $forever
    }
    close $f
    set pipe [open |[list [interpreter] $path(script)] r]
    gets $pipe port
    set sock [socket $localhost $port]
    chan configure $sock -blocking  0 -buffering line
    chan event $sock readable [list read_lines $sock $pipe ]
    proc read_lines { sock pipe } {
	gets $pipe
	gets $sock line
	after idle [list stop $sock $pipe]
	chan event $sock readable {}
    }
    proc stop {sock pipe} {
	variable done
	close $sock
	set done [gets $pipe]
    }
    variable done
    vwait [namespace which -variable done]
    close $pipe
    set done

---- Result was:
timeout
---- Result should have been (exact matching):
write
==== socket_inet6-2.13 FAILED

source.test
split.test
stack.test
string.test
stringComp.test
stringObj.test
subst.test
switch.test
tailcall.test
tcltest.test
thread.test
timer.test
tm.test
trace.test
unixFCmd.test


==== unixFCmd-20.1 SetReadOnlyAttribute FAILED
==== Contents of test case:

    close [open foo.test w]
    list [catch {file attributes foo.test -readonly 1} msg] $msg  [catch {file attribute foo.test -readonly} msg] $msg  [catch {file delete -force -- foo.test}]  [catch {file attributes foo.test -readonly 0} msg] $msg  [catch {file attribute foo.test -readonly} msg] $msg

---- Result was:
1 {could not set flags for file "foo.test": operation not supported} 0 0 0 1 {could not read "foo.test": no such file or directory} 1 {could not read "foo.test": no such file or directory}
---- Result should have been (exact matching):
0 {} 0 1 1 0 {} 0 0
==== unixFCmd-20.1 FAILED

unixFile.test
unixForkEvent.test
unixInit.test
unixNotfy.test
unknown.test
unload.test
uplevel.test
upvar.test
utf.test
util.test
var.test
while-old.test
while.test
winConsole.test
winDde.test
winFCmd.test
winFile.test
winNotify.test
winPipe.test
winTime.test
zlib.test

Tests ended at Thu Jul 23 09:49:08 PDT 2020
all.tcl:	Total	33908	Passed	30524	Skipped	3382	Failed	2
Sourced 150 Test Files.
Files with failing tests: socket.test unixFCmd.test
Number of tests skipped for each constraint:
	9	!ieeeFloatingPoint
	3	asyncPipeChan
	76	bigEndian
	5	bug-3057639
	49	dde
	4	dontCopyLinks
	64	emptyTest
	1	execMknod
	43	fullutf
	2	hasIsoLocale
	1	knownBadTest
	41	knownBug
	100	localeRegexp
	52	longIs32bit
	14	macosxFileAttr
	82	memory
	59	nonPortable
	5	notNetworkFilesystem
	1	notValgrind
	9	nt
	1	pairsTo4bytes
	2	pre388
	1996	serverNeeded
	1	testWithLimit
	1	testexprparser && !ieeeFloatingPoint
	1	testwinclock
	21	testwordend
	197	thread
	21	ucs4
	2	unthreaded
	14	utf16
	2	wideBiggerThanInt
	488	win
	4	winVista