Posted to tcl by hypnotoad at Mon Oct 01 14:33:45 GMT 2018view pretty

basra:unix seandeelywoods$ fossil status
repository:   /Users/seandeelywoods/odie/download/tcl.fos
local-root:   /Users/seandeelywoods/build/odie/tcl/
config-db:    /Users/seandeelywoods/.fossil
checkout:     7e7c72ccc93704e917a0e8a95947d9fcc7d41d18 2018-08-14 05:43:17 UTC
parent:       4e7f200965f6c32ae9df0c5701f3b5e183899f09 2018-08-10 18:57:53 UTC
child:        e3cb60581fd70c9d1eeccc47ea9d666b54e48e88 2018-08-17 22:21:12 UTC
merged-into:  c9c0d2919963deafdc2a9a5c5eee53c64ef86926 2018-08-14 08:46:22 UTC
tags:         core-8-branch
comment:      Reposition the MODULE_SCOPE definition so that packages like tbcload don't get an
              error when they include tclPort.h. (user: pooryorick)
basra:unix seandeelywoods$ make test
DYLD_LIBRARY_PATH=`pwd`: TCLLIBPATH="/Users/seandeelywoods/build/odie/tcl/unix/pkgs" TCL_LIBRARY="/Users/seandeelywoods/build/odie/tcl/library" ./tcltest /Users/seandeelywoods/build/odie/tcl/tests/all.tcl 
Tests running in interp:  /Users/seandeelywoods/build/odie/tcl/unix/tcltest
Tests located in:  /Users/seandeelywoods/build/odie/tcl/tests
Tests running in:  /Users/seandeelywoods/build/odie/tcl/unix
Temporary files stored in /Users/seandeelywoods/build/odie/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 Mon Oct 01 10:27:15 EDT 2018
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
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test
Running httpd in thread tid0x700008d68000
http11.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


==== macOSXFCmd-2.7 MacOSXSetFileAttribute - rsrclength FAILED
==== Contents of test case:

    catch {file delete -force -- foo.test}
    close [open foo.test w]
    catch {
	set f [open foo.test/..namedfork/rsrc w]
	fconfigure $f -translation lf -eofchar {}
	puts -nonewline $f "foo"
	close $f
    }
    list [catch {file attributes foo.test -rsrclength} msg] $msg  [catch {file attributes foo.test -rsrclength 0} msg] $msg  [catch {file attributes foo.test -rsrclength} msg] $msg  [file delete -force -- foo.test]

---- Result was:
0 3 0 {} 0 3 {}
---- Result should have been (exact matching):
0 3 0 {} 0 0 {}
==== macOSXFCmd-2.7 FAILED



==== macOSXFCmd-4.1 TclMacOSXMatchType FAILED
==== Contents of test case:

    file mkdir globtest
    cd globtest
    foreach f {bar baz foo inv inw .nv reg} {
	catch {file delete -force -- $f.test}
	close [open $f.test w]
    }
    catch {file delete -force -- dir.test}
    file mkdir dir.test
    catch {
	file attributes bar.test -type FOOT
	file attributes baz.test -creator FOOC -type FOOT
	file attributes foo.test -creator FOOC
	file attributes inv.test -hidden 1
	file attributes inw.test -hidden 1 -type FOOT
	file attributes dir.test -hidden 1
    }
    set res [list  [catch {glob *.test} msg] $msg  [catch {glob -types FOOT *.test} msg] $msg  [catch {glob -types {{macintosh type FOOT}} *.test} msg] $msg  [catch {glob -types FOOTT *.test} msg] $msg  [catch {glob -types {{macintosh type FOOTT}} *.test} msg] $msg  [catch {glob -types {{macintosh type {}}} *.test} msg] $msg  [catch {glob -types {{macintosh creator FOOC}} *.test} msg] $msg  [catch {glob -types {{macintosh creator FOOC} {macintosh type FOOT}} *.test} msg] $msg  [catch {glob -types hidden *.test} msg] $msg  [catch {glob -types {hidden FOOT} *.test} msg] $msg  ]
    cd ..
    file delete -force globtest
    set res

---- Result was:
0 {foo.test bar.test reg.test baz.test dir.test inv.test inw.test} 0 {bar.test baz.test inw.test} 0 {bar.test baz.test inw.test} 1 {bad argument to "-types": FOOTT} 1 {expected Macintosh OS type but got "FOOTT": } 0 {foo.test reg.test inv.test} 0 {foo.test baz.test} 0 baz.test 0 {.nv.test dir.test inv.test inw.test} 0 inw.test
---- Result should have been (exact matching):
0 {bar.test baz.test dir.test foo.test inv.test inw.test reg.test} 0 {bar.test baz.test inw.test} 0 {bar.test baz.test inw.test} 1 {bad argument to "-types": FOOTT} 1 {expected Macintosh OS type but got "FOOTT": } 0 {foo.test inv.test reg.test} 0 {baz.test foo.test} 0 baz.test 0 {.nv.test dir.test inv.test inw.test} 0 inw.test
==== macOSXFCmd-4.1 FAILED

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
process.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_inet-5.1 byte order problems, socket numbers, htons FAILED
==== Contents of test case:

    if {![catch {socket -server dodo 0x1} msg]} {
	close $msg
        return {htons problem, should be disallowed, are you running as SU?}
    }
    return {couldn't open socket: not owner}

---- 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_inet-5.1 FAILED



==== socket_inet-5.3 byte order problems, socket numbers, htons FAILED
==== Contents of test case:

    if {![catch {socket -server dodo 21} msg]} {
	close $msg
	return {htons problem, should be disallowed, are you running as SU?}
    }
    return {couldn't open socket: not owner}

---- 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_inet-5.3 FAILED



==== socket_inet6-5.1 byte order problems, socket numbers, htons FAILED
==== Contents of test case:

    if {![catch {socket -server dodo 0x1} msg]} {
	close $msg
        return {htons problem, should be disallowed, are you running as SU?}
    }
    return {couldn't open socket: not owner}

---- 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_inet6-5.1 FAILED



==== socket_inet6-5.3 byte order problems, socket numbers, htons FAILED
==== Contents of test case:

    if {![catch {socket -server dodo 21} msg]} {
	close $msg
	return {htons problem, should be disallowed, are you running as SU?}
    }
    return {couldn't open socket: not owner}

---- 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_inet6-5.3 FAILED



==== socket-14.14 testing fileevent readable on failed async socket connect FAILED
==== Contents of test case:

    # Test for bug 581937ab1e

    set a1 [after 5000 {set x timeout}]
    # This connect should fail
    set s [socket -async localhost [randport]]
    fileevent $s readable {set x readable}
    vwait x
    set x

---- Result was:
timeout
---- Result should have been (exact matching):
readable
==== socket-14.14 FAILED

source.test
split.test
stack.test
string.test
stringObj.test
subst.test
switch.test
tailcall.test
tcltest.test
thread.test
timer.test
tm.test
trace.test
unixFCmd.test
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 Mon Oct 01 10:31:59 EDT 2018
all.tcl:	Total	33754	Passed	32644	Skipped	1103	Failed	7
Sourced 147 Test Files.
Files with failing tests: macOSXFCmd.test socket.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
	2	hasIsoLocale
	1	knownBadTest
	41	knownBug
	2	largefileSupport
	100	localeRegexp
	48	longIs32bit
	88	memory
	47	nonPortable
	1	notDarwin9
	5	notNetworkFilesystem
	1	notValgrind
	1	obsolete
	3	singleTestInterp
	1	testexprparser && !ieeeFloatingPoint
	1	testwinclock
	21	testwordend
	2	wideBiggerThanInt
	506	win
	4	winVista
	6	xdev