Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Disable the new rounding tests on systems without long double support. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ed250b4e18ea042d681bbe8d7ed00895 |
| User & Date: | drh 2019-05-25 00:17:26 |
Context
|
2019-05-25
| ||
| 13:14 | Add new cases to speedtest1 for measuring performance of binary to/from decimal conversions of floating point values. (check-in: b84e7057c0 user: drh tags: trunk) | |
| 00:17 | Disable the new rounding tests on systems without long double support. (check-in: ed250b4e18 user: drh tags: trunk) | |
|
2019-05-24
| ||
| 22:58 | Improvements to rounding behavior in the round() and printf() functions. (check-in: 641b2d2105 user: drh tags: trunk) | |
Changes
Changes to test/round1.test.
10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
#***********************************************************************
# Test cases for rounding behavior of floating point values.
#
set testdir [file dirname $argv0]
source $testdir/tester.tcl
set testprefix round1
expr srand(0)
unset -nocomplain iTest
for {set iTest 1} {$iTest<=10000} {incr iTest} {
set x1 [expr int(rand()*100000)]
set x2 [expr int(rand()*100000)+1000*int(rand()*10000)]
set n [expr int(rand()*8)+1]
|
> > > > > |
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
#*********************************************************************** # Test cases for rounding behavior of floating point values. # set testdir [file dirname $argv0] source $testdir/tester.tcl set testprefix round1 if {$::longdouble_size<=8} { finish_test return } expr srand(0) unset -nocomplain iTest for {set iTest 1} {$iTest<=10000} {incr iTest} { set x1 [expr int(rand()*100000)] set x2 [expr int(rand()*100000)+1000*int(rand()*10000)] set n [expr int(rand()*8)+1] |