Changes to various test scripts so that they pass on windows.

FossilOrigin-Name: 1586244b6d86d5a98af8c6f7a8324672e02df9c3

test/tester.tcl

@@ -354,6 +354,15 @@ proc do_test {name cmd expected} {
   flush stdout
 }
 
+proc realnum_normalize {r} {
+  string map {1.#INF inf} [regsub -all {(e[+-])0+} $r {\1}]
+}
+proc do_realnum_test {name cmd expected} {
+  uplevel [list do_test $name [
+    subst -nocommands { realnum_normalize [ $cmd ] }
+  ] [realnum_normalize $expected]]
+}
+
 proc fix_testname {varname} {
   upvar $varname testname
   if {[info exists ::testprefix]