database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-27 20:41:58 +03:00
Code Activity

Update a couple test scripts to account for more floating point variation under various Windows-based versions of TCL.

Browse Source 
Update a couple test scripts to account for more floating point display variation in Windows-based versions of TCL.

FossilOrigin-Name: a4a8402bfec381dd23b7a96c2f4b52c0dd728a7a
This commit is contained in:
shaneh
2011-06-20 17:41:41 +00:00
parent 051eb38a26
commit 4f529e87fe
4 changed files with 148 additions and 149 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
test/tester.tcl
View File

@ -355,7 +355,8 @@ proc do_test {name cmd expected} {
}
proc realnum_normalize {r} {
string map {1.#INF inf} [regsub -all {(e[+-])0+} $r {\1}]
# different TCL versions display floating point values differently.
string map {1.#INF inf Inf inf .0e e} [regsub -all {(e[+-])0+} $r {\1}]
}
proc do_realnum_test {name cmd expected} {
uplevel [list do_test $name [