gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/ieee754.test (about) 1 # 2015-11-06 2 # 3 # The author disclaims copyright to this source code. In place of 4 # a legal notice, here is a blessing: 5 # 6 # May you do good and not evil. 7 # May you find forgiveness for yourself and forgive others. 8 # May you share freely, never taking more than you give. 9 # 10 #*********************************************************************** 11 # 12 # Tests of the iee754 extension 13 # 14 15 set testdir [file dirname $argv0] 16 source $testdir/tester.tcl 17 18 load_static_extension db ieee754 19 20 foreach {id float rep} { 21 1 1.0 1,0 22 2 2.0 2,0 23 3 0.5 1,-1 24 4 1.5 3,-1 25 5 0.0 0,-1075 26 6 4.9406564584124654e-324 1,-1074 27 7 2.2250738585072009e-308 4503599627370495,-1074 28 8 2.2250738585072014e-308 1,-1022 29 } { 30 do_test ieee754-100-$id-1 { 31 db eval "SELECT ieee754($float);" 32 } "ieee754($rep)" 33 do_test ieee754-100-$id-2 { 34 db eval "SELECT ieee754($rep)==$float;" 35 } {1} 36 if {$float!=0.0} { 37 do_test ieee754-100-$id-3 { 38 db eval "SELECT ieee754(-$float);" 39 } "ieee754(-$rep)" 40 do_test ieee754-100-$id-4 { 41 db eval "SELECT ieee754(-$rep)==-$float;" 42 } {1} 43 } 44 } 45 46 do_test ieee754-110 { 47 string tolower [ 48 db eval {SELECT ieee754(1,1024), ieee754(4503599627370495,972);} 49 ] 50 } {inf 1.79769313486232e+308} 51 do_test ieee754-111 { 52 string tolower [ 53 db eval {SELECT ieee754(-1,1024), ieee754(-4503599627370495,972);} 54 ] 55 } {-inf -1.79769313486232e+308} 56 do_execsql_test ieee754-112 { 57 SELECT ieee754(4503599627370495,973) is null; 58 } {1} 59 60 finish_test