summaryrefslogtreecommitdiffstats
path: root/tests/format.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2019-07-31 08:51:37 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2019-07-31 08:51:37 (GMT)
commitec84d91a805145aa911a00d4b5f53a8e4513276d (patch)
tree31b731828830c63fb6a6dc6e5d32cc74dc5df7f3 /tests/format.test
parentd4d4aa830739f769c305b523fc4c7000c451845e (diff)
parent3ab4e9ca24a8f7e98e3f7e3040130ba4e3caf2dc (diff)
downloadtcl-ec84d91a805145aa911a00d4b5f53a8e4513276d.zip
tcl-ec84d91a805145aa911a00d4b5f53a8e4513276d.tar.gz
tcl-ec84d91a805145aa911a00d4b5f53a8e4513276d.tar.bz2
Merge 8.6
Diffstat (limited to 'tests/format.test')
-rw-r--r--tests/format.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/format.test b/tests/format.test
index 1bf46a1..3640376 100644
--- a/tests/format.test
+++ b/tests/format.test
@@ -20,6 +20,7 @@ testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}]
testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}]
testConstraint wideIs64bit [expr {wide(0x8000000000000000) < 0}]
testConstraint pointerIs64bit [expr {$tcl_platform(pointerSize) >= 8}]
+testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}]
test format-1.1 {integer formatting} {
format "%*d %d %d %d" 6 34 16923 -12 -1
@@ -263,13 +264,13 @@ test format-6.1 {floating-point zeroes} {eformat} {
test format-6.2 {floating-point zeroes} {eformat} {
format "%.4e %.4f %.4g" 0.0 0.0 0.0 0.0
} {0.0000e+00 0.0000 0}
-test format-6.3 {floating-point zeroes} {eformat} {
+test format-6.3 {floating-point zeroes} {eformat knownMsvcBug} {
format "%#.4e %#.4f %#.4g" 0.0 0.0 0.0 0.0
} {0.0000e+00 0.0000 0.000}
test format-6.4 {floating-point zeroes} {eformat} {
format "%.0e %.0f %.0g" 0.0 0.0 0.0 0.0
} {0e+00 0 0}
-test format-6.5 {floating-point zeroes} {eformat} {
+test format-6.5 {floating-point zeroes} {eformat knownMsvcBug} {
format "%#.0e %#.0f %#.0g" 0.0 0.0 0.0 0.0
} {0.e+00 0. 0.}
test format-6.6 {floating-point zeroes} {