Posted to tcl by egavilan at Mon Jan 14 23:40:52 GMT 2019view pretty

emiliano@cabernet:~/src/tcl/unix$ uname -a
NetBSD cabernet.vinotinto.com.ar 8.0_STABLE NetBSD 8.0_STABLE (GENERIC) #0: Fri Jan 11 15:56:48 UTC 2019  mkrepro@mkrepro.NetBSD.org:/usr/src/sys/arch/i386/compile/GENERIC i386

emiliano@cabernet:~/src/tcl/unix$ fossil info
project-name: Tcl Source Code
repository:   /home/emiliano/src/tcl/../tcl.fossil
local-root:   /home/emiliano/src/tcl/
config-db:    /home/emiliano/.fossil
project-code: 1ec9da4c469c29f4717e2a967fe6b916d9c8c06e
checkout:     d269eeed5de99416018d628da90b152cfbfbe418 2019-01-14 20:03:36 UTC
parent:       b7639c0e3d0c9c9aa0f8c84798586aa08bf175da 2019-01-13 15:47:18 UTC
merged-from:  f051b4e59834321bfcee597ef45b0a7bbc421dd2 2019-01-14 19:59:19 UTC
tags:         trunk
comment:      merge 8.7 (mingw/win-autoconf build, etc) (user: sebres)
check-ins:    24120

emiliano@cabernet:~/src/tcl/unix$ make test-tcl TESTFLAGS="-file string.test"  
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/emiliano/src/tcl/unix/pkgs"  TCL_LIBRARY="/home/emiliano/src/tcl/library" ./tcltest /home/emiliano/src/tcl/tests/all.tcl -file string.test
Tests running in interp:  /home/emiliano/src/tcl/unix/tcltest
Tests located in:  /home/emiliano/src/tcl/tests
Tests running in:  /home/emiliano/src/tcl/unix
Temporary files stored in /home/emiliano/src/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:  string.test
Tests began at Mon Jan 14 20:36:24 -03 2019
string.test


==== string-6.102.0 string is wideinteger, false on overflow FAILED
==== Contents of test case:

    list [run {string is wideinteger -fail var +[largest_int]0}] $var

---- Result was:
0 4294967295
---- Result should have been (exact matching):
0 -1
==== string-6.102.0 FAILED



==== string-31.9a.0 string is dict FAILED
==== Contents of test case:

    set x {}
    list [string is dict -failindex x {a b c}] $x

---- Result was:
0 4294967295
---- Result should have been (exact matching):
0 -1
==== string-31.9a.0 FAILED



==== string-6.102.1 string is wideinteger, false on overflow FAILED
==== Contents of test case:

    list [run {string is wideinteger -fail var +[largest_int]0}] $var

---- Result was:
0 4294967295
---- Result should have been (exact matching):
0 -1
==== string-6.102.1 FAILED



==== string-31.9a.1 string is dict FAILED
==== Contents of test case:

    set x {}
    list [string is dict -failindex x {a b c}] $x

---- Result was:
0 4294967295
---- Result should have been (exact matching):
0 -1
==== string-31.9a.1 FAILED


Tests ended at Mon Jan 14 20:36:24 -03 2019
all.tcl:	Total	1285	Passed	1273	Skipped	8	Failed	4
Sourced 1 Test Files.
Files with failing tests: string.test
Number of tests skipped for each constraint:
	8	memory

Comments

Posted by sebres at Tue Jan 15 16:50:15 GMT 2019 [text] [code]

fixed.