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-4-branch |
| Files: | files | file ages | folders |
| SHA1: |
ec6283e0a7128adaa23a8f70966cb495 |
| User & Date: | jan.nijtmans 2011-05-06 07:53:17 |
Context
|
2011-05-07
| ||
| 19:22 | fix USE_TCLALLOC so that it can be enabled without editing the Makefile check-in: b255be58d9 user: mig tags: core-8-4-branch | |
|
2011-05-06
| ||
| 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-04-28
| ||
| 13:28 | minor comment fix check-in: f8646598bd user: jan.nijtmans tags: core-8-4-branch | |
Changes
Changes to tests/string.test.
| ︙ | ︙ | |||
594 595 596 597 598 599 600 |
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}
| | | | | 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 |
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}
catch {rename largest_int {}}
|
| ︙ | ︙ |