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.