/ Check-in [ed250b4e]
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

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: ed250b4e18ea042d681bbe8d7ed00895564f4525c22928a003a84585b4756ec3
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: b84e7057 user: drh tags: trunk
00:17
Disable the new rounding tests on systems without long double support. check-in: ed250b4e user: drh tags: trunk
2019-05-24
22:58
Improvements to rounding behavior in the round() and printf() functions. check-in: 641b2d21 user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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]