Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | comment fix |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | core-8-5-branch |
Files: | files | file ages | folders |
SHA1: |
c7d2de48faef2ff7540436e384f24577 |
User & Date: | jan.nijtmans 2011-05-06 07:54:24 |
Context
2011-05-07
| ||
19:30 | fix USE_TCLALLOC so that it can be enabled without editing the Makefile check-in: a569696f48 user: mig tags: core-8-5-branch | |
2011-05-06
| ||
07:55 | comment fix check-in: fa4eb25ecf user: jan.nijtmans tags: trunk | |
07:54 | comment fix check-in: c7d2de48fa user: jan.nijtmans tags: core-8-5-branch | |
07:53 | comment fix check-in: ec6283e0a7 user: jan.nijtmans tags: core-8-4-branch | |
2011-05-05
| ||
16:53 | Tolerate NULL interps more completely. check-in: e7adc1255d user: dgp tags: core-8-5-branch | |
Changes
Changes to tests/string.test.
︙ | ︙ | |||
597 598 599 600 601 602 603 | set result "" set numbers [list 1.0 +1.0 ++1.0 +-1.0 -+1.0 -1.0 --1.0 "- +1.0"] foreach num $numbers { lappend result [string is double -strict $num] } set result } {1 1 0 0 0 1 0 0} | | | | | 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 | set result "" set numbers [list 1.0 +1.0 ++1.0 +-1.0 -+1.0 -1.0 --1.0 "- +1.0"] foreach num $numbers { lappend result [string is double -strict $num] } set result } {1 1 0 0 0 1 0 0} test string-6.92 {string is integer, 32-bit overflow} { # Bug 718878 set x 0x100000000 list [string is integer -failindex var $x] $var } {0 -1} test string-6.93 {string is integer, 32-bit overflow} { # Bug 718878 set x 0x100000000 append x "" list [string is integer -failindex var $x] $var } {0 -1} test string-6.94 {string is integer, 32-bit overflow} { # Bug 718878 set x 0x100000000 list [string is integer -failindex var [expr {$x}]] $var } {0 -1} test string-6.95 {string is wideinteger, true} { string is wideinteger +1234567890 } 1 |
︙ | ︙ |