gatus/golang-modernc-sqlite
1
0
Fork 0
Code Issues Activity

Adding upstream version 1.37.0.

Browse source 
Signed-off-by: Daniel Baumann <daniel@debian.org>
This commit is contained in:
Daniel Baumann 2025-05-17 09:46:10 +02:00
parent 42613ad5c6
commit 271b368104
Signed by: daniel
GPG key ID: FBB4F0E80A80222F
1329 changed files with 4727104 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

42
testdata/tcl/round1.test vendored Normal file
View file

@ -0,0 +1,42 @@
# 2019-05-24
#
# The author disclaims copyright to this source code. In place of
# a legal notice, here is a blessing:
#
# May you do good and not evil.
# May you find forgiveness for yourself and forgive others.
# May you share freely, never taking more than you give.
#
#***********************************************************************
# Test cases for rounding behavior of floating point values.
#
# TESTRUNNER: slow
set testdir [file dirname $argv0]
source $testdir/tester.tcl
set testprefix round1
expr srand(0)
unset -nocomplain iTest
for {set iTest 1} {$iTest<=50000} {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]
set x3 [string range [format %09d $x2] [expr {9-$n}] end]
set r $x1.$x3
set ans [string trimright $r 0]
if {[string match *. $ans]} {set ans ${ans}0}
do_test $iTest/$n/${r}4=>$ans {
set x [db one "SELECT round(${r}4,$n)"]
} $ans
set x4 [string range [format %09d [expr {$x2+1}]] [expr {9-$n}] end]
if {[string trim $x3 9]==""} {incr x1}
set r2 $x1.$x4
set ans [string trimright $r2 0]
if {[string match *. $ans]} {set ans ${ans}0}
do_test $iTest/$n/${r}5=>$ans {
set x [db one "SELECT round(${r}5,$n)"]
} $ans
}
finish_test