diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-10-23 16:20:18 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-10-23 16:20:18 (GMT) |
| commit | 172896b15a2b5b8a1163c9de824e20297a876ed5 (patch) | |
| tree | 6074d964f252d4293d75e502e72d89b131206e3e /tests/get.test | |
| parent | e9b584f81b87c299c819443f22bc5a81b20fff38 (diff) | |
| download | tcl-172896b15a2b5b8a1163c9de824e20297a876ed5.zip tcl-172896b15a2b5b8a1163c9de824e20297a876ed5.tar.gz tcl-172896b15a2b5b8a1163c9de824e20297a876ed5.tar.bz2 | |
Implementation branch for TIP 114 - Eliminate Octal Parsing...
Diffstat (limited to 'tests/get.test')
| -rw-r--r-- | tests/get.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/get.test b/tests/get.test index d6a7206..c82b7e5 100644 --- a/tests/get.test +++ b/tests/get.test @@ -98,17 +98,17 @@ test get-3.2 {Tcl_GetDouble(FromObj), bad numbers} { } {0 1 0 1 1 {expected floating-point number but got "++1.0"} 1 {expected floating-point number but got "+-1.0"} 1 {expected floating-point number but got "-+1.0"} 0 -1 1 {expected floating-point number but got "--1.0"} 1 {expected floating-point number but got "- +1.0"}} # Bug 7114ac6141 test get-3.3 {tcl_GetInt with iffy numbers} testgetint { - lmap x {0 " 0" "0 " " 0 " " 0xa " " 007 " " 0o10 " " 0b10 "} { + lmap x {0 " 0" "0 " " 0 " " 0xa " " 010 " " 0o10 " " 0b10 "} { catch {testgetint 44 $x} x set x } -} {44 44 44 44 54 51 52 46} +} {44 44 44 44 54 54 52 46} test get-3.4 {Tcl_GetDouble with iffy numbers} testdoubleobj { - lmap x {0 0.0 " .0" ".0 " " 0e0 " "07" "- 0" "-0" "0o12" "0b10"} { + lmap x {0 0.0 " .0" ".0 " " 0e0 " "09" "- 0" "-0" "0o12" "0b10"} { catch {testdoubleobj set 1 $x} x set x } -} {0.0 0.0 0.0 0.0 0.0 7.0 {expected floating-point number but got "- 0"} 0.0 10.0 2.0} +} {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} # cleanup ::tcltest::cleanupTests |