diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-06 18:28:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-06 18:28:40 (GMT) |
| commit | d98ac60ff6e52cf3ae55107b3b1db3b655c8f5bd (patch) | |
| tree | e360a93de276c29abe8222cdc8a7eb79b2f4ea8f | |
| parent | c9fbc215c42a8cdf8d139433f71b3e3b51b86748 (diff) | |
| download | tcl-d98ac60ff6e52cf3ae55107b3b1db3b655c8f5bd.zip tcl-d98ac60ff6e52cf3ae55107b3b1db3b655c8f5bd.tar.gz tcl-d98ac60ff6e52cf3ae55107b3b1db3b655c8f5bd.tar.bz2 | |
Proposed fix for [fc87e3bddd]: get-3.4.1 fails in -singleproc testing
| -rw-r--r-- | tests/get.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/get.test b/tests/get.test index 90d9035..0281760 100644 --- a/tests/get.test +++ b/tests/get.test @@ -18,6 +18,8 @@ if {"::tcltest" ni [namespace children]} { ::tcltest::loadTestedCommands catch [list package require -exact tcl::test [info patchlevel]] +source [file join [file dirname [info script]] tcltests.tcl] + testConstraint testgetint [llength [info commands testgetint]] testConstraint testdoubleobj [llength [info commands testdoubleobj]] testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}] @@ -115,7 +117,7 @@ test get-3.4.1 {Tcl_GetDouble with iffy numbers} {testdoubleobj deprecated} { catch {testdoubleobj set 1 $x} x set x } -} {9.0} +} {{expected floating-point number but got "09" (looks like invalid octal number)}} test get-3.5 {tcl_GetInt with numeric whitespace (i.e. '_')} testgetint { lmap x {0_0 " 1_0" "0_2 " " 3_3 " 14__23__32___4 " 0x0_a " 0b1111_1111 " 0_07 " " 0o1_0 " " 0b_1_0 " " 0_b1_0 " _33 42_ 0_x15 0_o17 0_d19 0x_b 0o_2_0 0o2__3_4} { |