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 | trunk |
| Files: | files | file ages | folders |
| SHA1: |
fa4eb25ecf2d4a292efdad8c8a0a0580 |
| User & Date: | jan.nijtmans 2011-05-06 07:55:07 |
Context
|
2011-05-07
| ||
| 19:33 | fix USE_TCLALLOC so that it can be enabled without editing the Makefile check-in: 11459f0b18 user: mig tags: trunk | |
|
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 | |
|
2011-05-05
| ||
| 18:28 | Stop generating string rep of dict when converting to list. Tolerate NULL interps more completely. check-in: 849162b0bf user: dgp tags: trunk | |
Changes
Changes to tests/string.test.
| ︙ | ︙ | |||
598 599 600 601 602 603 604 |
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}
| | | | | 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 623 |
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
|
| ︙ | ︙ |