OLD | NEW |
| (Empty) |
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 4503599627370497,-1075 | |
27 7 2.2250738585072009e-308 9007199254740991,-1075 | |
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 | |
OLD | NEW |