cleaned up test suite so most of the tests pass on Windows

1 files changed, 9 insertions, 1 deletions

diff --git a/tests/defs b/tests/defs
index 28f028e..772e30f 100644
--- a/tests/defs
+++ b/tests/defs
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: defs,v 1.3 1998/09/14 18:40:08 stanton Exp $
+# RCS: @(#) $Id: defs,v 1.4 1998/11/02 23:04:13 stanton Exp $
 
 if ![info exists VERBOSE] {
     set VERBOSE 0
@@ -170,6 +170,14 @@ if {$tcl_platform(platform) == "unix"} {
     set testConfig(asyncPipeClose) 1
 }
 
+# Test to see if we have a broken version of sprintf with respect to the
+# "e" format of floating-point numbers.
+
+set testConfig(eformat) 1
+if {[string compare "[format %g 5e-5]" "5e-05"] != 0} {
+    set testConfig(eformat) 0
+    puts "(will skip tests that depend on the \"e\" format of floating-point numbers)"
+}
 # Test to see if execed commands such as cat, echo, rm and so forth are
 # present on this machine.