a06f17fe2e
floating point values correctly. Improvements to the text->real conversion routine so that it generates +Inf and -Inf at appropriate times. Tickets #3101 and #3060. (CVS 5116) FossilOrigin-Name: 3ff2f1cdc9c57bca56de6cdc0ad5edc95b0606a0
229 lines
6.4 KiB
Plaintext
229 lines
6.4 KiB
Plaintext
# 2008 April 28
|
|
#
|
|
# 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.
|
|
#
|
|
#***********************************************************************
|
|
#
|
|
# Ticket #3060
|
|
#
|
|
# Make sure IEEE floating point NaN values are handled properly.
|
|
# SQLite should always convert NaN into NULL.
|
|
#
|
|
# Also verify that the decimal to IEEE754 binary conversion routines
|
|
# correctly generate 0.0, +Inf, and -Inf as appropriate for numbers
|
|
# out of range.
|
|
#
|
|
# $Id: nan.test,v 1.3 2008/05/11 11:07:07 drh Exp $
|
|
#
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
|
|
do_test nan-1.1 {
|
|
db eval {
|
|
PRAGMA auto_vacuum=OFF;
|
|
PRAGMA page_size=1024;
|
|
CREATE TABLE t1(x FLOAT);
|
|
}
|
|
set ::STMT [sqlite3_prepare db "INSERT INTO t1 VALUES(?)" -1 TAIL]
|
|
sqlite3_bind_double $::STMT 1 NaN
|
|
sqlite3_step $::STMT
|
|
sqlite3_reset $::STMT
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null}
|
|
do_test nan-1.2 {
|
|
sqlite3_bind_double $::STMT 1 +Inf
|
|
sqlite3_step $::STMT
|
|
sqlite3_reset $::STMT
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null inf real}
|
|
do_test nan-1.3 {
|
|
sqlite3_bind_double $::STMT 1 -Inf
|
|
sqlite3_step $::STMT
|
|
sqlite3_reset $::STMT
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null inf real -inf real}
|
|
do_test nan-1.4 {
|
|
sqlite3_bind_double $::STMT 1 -NaN
|
|
sqlite3_step $::STMT
|
|
sqlite3_reset $::STMT
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null inf real -inf real {} null}
|
|
do_test nan-1.5 {
|
|
sqlite3_bind_double $::STMT 1 NaN0
|
|
sqlite3_step $::STMT
|
|
sqlite3_reset $::STMT
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null inf real -inf real {} null {} null}
|
|
do_test nan-1.5 {
|
|
sqlite3_bind_double $::STMT 1 -NaN0
|
|
sqlite3_step $::STMT
|
|
sqlite3_reset $::STMT
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null inf real -inf real {} null {} null {} null}
|
|
do_test nan-1.6 {
|
|
db eval {
|
|
UPDATE t1 SET x=x-x;
|
|
SELECT x, typeof(x) FROM t1;
|
|
}
|
|
} {{} null {} null {} null {} null {} null {} null}
|
|
|
|
do_test nan-2.1 {
|
|
db eval {
|
|
DELETE FROM T1;
|
|
}
|
|
sqlite3_bind_double $::STMT 1 NaN
|
|
sqlite3_step $::STMT
|
|
sqlite3_reset $::STMT
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null}
|
|
sqlite3_finalize $::STMT
|
|
|
|
# SQLite always converts NaN into NULL so it is not possible to write
|
|
# a NaN value into the database file using SQLite. The following series
|
|
# of tests writes a normal floating point value (0.5) into the database,
|
|
# then writes directly into the database file to change the 0.5 into NaN.
|
|
# Then it reads the value of the database to verify it is converted into
|
|
# NULL.
|
|
#
|
|
do_test nan-3.1 {
|
|
db eval {
|
|
DELETE FROM t1;
|
|
INSERT INTO t1 VALUES(0.5);
|
|
PRAGMA auto_vacuum=OFF;
|
|
PRAGMA page_size=1024;
|
|
VACUUM;
|
|
}
|
|
hexio_read test.db 2040 8
|
|
} {3FE0000000000000}
|
|
do_test nan-3.2 {
|
|
db eval {
|
|
SELECT x, typeof(x) FROM t1
|
|
}
|
|
} {0.5 real}
|
|
do_test nan-3.3 {
|
|
db close
|
|
hexio_write test.db 2040 FFF8000000000000
|
|
sqlite3 db test.db
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null}
|
|
do_test nan-3.4 {
|
|
db close
|
|
hexio_write test.db 2040 7FF8000000000000
|
|
sqlite3 db test.db
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null}
|
|
do_test nan-3.5 {
|
|
db close
|
|
hexio_write test.db 2040 FFFFFFFFFFFFFFFF
|
|
sqlite3 db test.db
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null}
|
|
do_test nan-3.6 {
|
|
db close
|
|
hexio_write test.db 2040 7FFFFFFFFFFFFFFF
|
|
sqlite3 db test.db
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null}
|
|
|
|
# Verify that the sqlite3AtoF routine is able to handle extreme
|
|
# numbers.
|
|
#
|
|
do_test nan-4.1 {
|
|
db eval {DELETE FROM t1}
|
|
db eval "INSERT INTO t1 VALUES([string repeat 9 307].0)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {1e+307 real}
|
|
do_test nan-4.2 {
|
|
db eval {DELETE FROM t1}
|
|
db eval "INSERT INTO t1 VALUES([string repeat 9 308].0)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {1e+308 real}
|
|
do_test nan-4.3 {
|
|
db eval {DELETE FROM t1}
|
|
db eval "INSERT INTO t1 VALUES([string repeat 9 309].0)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {inf real}
|
|
do_test nan-4.4 {
|
|
db eval {DELETE FROM t1}
|
|
db eval "INSERT INTO t1 VALUES(-[string repeat 9 307].0)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {-1e+307 real}
|
|
do_test nan-4.5 {
|
|
db eval {DELETE FROM t1}
|
|
db eval "INSERT INTO t1 VALUES(-[string repeat 9 308].0)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {-1e+308 real}
|
|
do_test nan-4.6 {
|
|
db eval {DELETE FROM t1}
|
|
db eval "INSERT INTO t1 VALUES(-[string repeat 9 309].0)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {-inf real}
|
|
do_test nan-4.7 {
|
|
db eval {DELETE FROM t1}
|
|
set big -[string repeat 0 10000][string repeat 9 308].[string repeat 0 10000]
|
|
db eval "INSERT INTO t1 VALUES($big)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {-1e+308 real}
|
|
do_test nan-4.8 {
|
|
db eval {DELETE FROM t1}
|
|
set big [string repeat 0 10000][string repeat 9 308].[string repeat 0 10000]
|
|
db eval "INSERT INTO t1 VALUES($big)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {1e+308 real}
|
|
|
|
|
|
do_test nan-4.10 {
|
|
db eval {DELETE FROM t1}
|
|
db eval "INSERT INTO t1 VALUES(1234.5[string repeat 0 10000]12345)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {1234.5 real}
|
|
do_test nan-4.11 {
|
|
db eval {DELETE FROM t1}
|
|
db eval "INSERT INTO t1 VALUES(-1234.5[string repeat 0 10000]12345)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {-1234.5 real}
|
|
do_test nan-4.12 {
|
|
db eval {DELETE FROM t1}
|
|
set small [string repeat 0 10000].[string repeat 0 323][string repeat 9 10000]
|
|
db eval "INSERT INTO t1 VALUES($small)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {9.88131291682493e-324 real}
|
|
do_test nan-4.13 {
|
|
db eval {DELETE FROM t1}
|
|
set small [string repeat 0 10000].[string repeat 0 324][string repeat 9 10000]
|
|
db eval "INSERT INTO t1 VALUES($small)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {0.0 real}
|
|
do_test nan-4.14 {
|
|
db eval {DELETE FROM t1}
|
|
set small \
|
|
-[string repeat 0 10000].[string repeat 0 323][string repeat 9 10000]
|
|
db eval "INSERT INTO t1 VALUES($small)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {-9.88131291682493e-324 real}
|
|
do_test nan-4.15 {
|
|
db eval {DELETE FROM t1}
|
|
set small \
|
|
-[string repeat 0 10000].[string repeat 0 324][string repeat 9 10000]
|
|
db eval "INSERT INTO t1 VALUES($small)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {0.0 real}
|
|
|
|
do_test nan-4.20 {
|
|
db eval {DELETE FROM t1}
|
|
set big [string repeat 9 10000].0e-9000
|
|
db eval "INSERT INTO t1 VALUES($big)"
|
|
db eval {SELECT x, typeof(x) FROM t1}
|
|
} {{} null}
|
|
|
|
|
|
|
|
finish_test
|