diff options
| author | griffin <briang42@easystreet.net> | 2023-09-01 15:17:41 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-09-01 15:17:41 (GMT) |
| commit | 8a8190bc2dce119f561ec7d4b5e840f963b81211 (patch) | |
| tree | 072e0e27854c6d7cb41a47e28dd2bfb13eebe5c6 /tests/get.test | |
| parent | ce4872f00b224d6f0e76bb578b37b7b796dfc19a (diff) | |
| download | tcl-8a8190bc2dce119f561ec7d4b5e840f963b81211.zip tcl-8a8190bc2dce119f561ec7d4b5e840f963b81211.tar.gz tcl-8a8190bc2dce119f561ec7d4b5e840f963b81211.tar.bz2 | |
Fix bug with octal. Add floating point example to doc.
Diffstat (limited to 'tests/get.test')
| -rw-r--r-- | tests/get.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/get.test b/tests/get.test index 2545ac3..66c9c3a 100644 --- a/tests/get.test +++ b/tests/get.test @@ -111,11 +111,11 @@ test get-3.4 {Tcl_GetDouble with iffy numbers} testdoubleobj { } {0.0 0.0 0.0 0.0 0.0 9.0 {expected floating-point number but got "- 0"} 0.0 10.0 2.0 20340000000000000.0 {expected floating-point number but got "_1.0e+2"} {expected floating-point number but got "1_.0e+2"} {expected floating-point number but got "1._0e+2"} {expected floating-point number but got "1.0_e+2"} {expected floating-point number but got "1.0e_+2"} {expected floating-point number but got "1.0e+_2"} {expected floating-point number but got "1.0e+2_"} 1100.0 2.2e+23 {expected floating-point number but got "54321________"}} 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} { + 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} { catch {testgetint $x} x set x } -} {0 10 2 33 1423324 10 255 7 8 {expected integer but got " 0b_1_0 "} {expected integer but got " 0_b1_0 "} {expected integer but got "_33"} {expected integer but got "42_"} {expected integer but got "0_x15"} {expected integer but got "0_o17"} {expected integer but got "0_d19"} {expected integer but got "0x_b"} {expected integer but got "0o_2_0"}} +} {0 10 2 33 1423324 10 255 7 8 {expected integer but got " 0b_1_0 "} {expected integer but got " 0_b1_0 "} {expected integer but got "_33"} {expected integer but got "42_"} {expected integer but got "0_x15"} {expected integer but got "0_o17"} {expected integer but got "0_d19"} {expected integer but got "0x_b"} {expected integer but got "0o_2_0"} 156} # cleanup ::tcltest::cleanupTests |