test/func4.test

   1 # 2013 March 10
   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 # This file implements regression tests for SQLite library. The focus of
  12 # this file is testing the tointeger() and toreal() functions.
  13 #
  14 # Several of the toreal() tests are disabled on platforms where floating
  15 # point precision is not high enough to represent their constant integer
  16 # expression arguments as double precision floating point values.
  17 #
  18 set testdir [file dirname $argv0]
  19 source $testdir/tester.tcl
  20 set saved_tcl_precision $tcl_precision
  21 set tcl_precision 0
  22 load_static_extension db totype
  23
  24 set highPrecision(1) [expr \
  25     {[db eval {SELECT tointeger(9223372036854775807 + 1);}] eq {{}}}]
  26
  27 do_execsql_test func4-1.1 {
  28   SELECT tointeger(NULL);
  29 } {{}}
  30 do_execsql_test func4-1.2 {
  31   SELECT tointeger('');
  32 } {{}}
  33 do_execsql_test func4-1.3 {
  34   SELECT tointeger('   ');
  35 } {{}}
  36 do_execsql_test func4-1.4 {
  37   SELECT tointeger('1234');
  38 } {1234}
  39 do_execsql_test func4-1.5 {
  40   SELECT tointeger('   1234');
  41 } {{}}
  42 do_execsql_test func4-1.6 {
  43   SELECT tointeger('bad');
  44 } {{}}
  45 do_execsql_test func4-1.7 {
  46   SELECT tointeger('0xBAD');
  47 } {{}}
  48 do_execsql_test func4-1.8 {
  49   SELECT tointeger('123BAD');
  50 } {{}}
  51 do_execsql_test func4-1.9 {
  52   SELECT tointeger('0x123BAD');
  53 } {{}}
  54 do_execsql_test func4-1.10 {
  55   SELECT tointeger('123NO');
  56 } {{}}
  57 do_execsql_test func4-1.11 {
  58   SELECT tointeger('0x123NO');
  59 } {{}}
  60 do_execsql_test func4-1.12 {
  61   SELECT tointeger('-0x1');
  62 } {{}}
  63 do_execsql_test func4-1.13 {
  64   SELECT tointeger('-0x0');
  65 } {{}}
  66 do_execsql_test func4-1.14 {
  67   SELECT tointeger('0x0');
  68 } {{}}
  69 do_execsql_test func4-1.15 {
  70   SELECT tointeger('0x1');
  71 } {{}}
  72 do_execsql_test func4-1.16 {
  73   SELECT tointeger(-1);
  74 } {-1}
  75 do_execsql_test func4-1.17 {
  76   SELECT tointeger(-0);
  77 } {0}
  78 do_execsql_test func4-1.18 {
  79   SELECT tointeger(0);
  80 } {0}
  81 do_execsql_test func4-1.19 {
  82   SELECT tointeger(1);
  83 } {1}
  84 do_execsql_test func4-1.20 {
  85   SELECT tointeger(-1.79769313486232e308 - 1);
  86 } {{}}
  87 do_execsql_test func4-1.21 {
  88   SELECT tointeger(-1.79769313486232e308);
  89 } {{}}
  90 do_execsql_test func4-1.22 {
  91   SELECT tointeger(-1.79769313486232e308 + 1);
  92 } {{}}
  93 do_execsql_test func4-1.23 {
  94   SELECT tointeger(-9223372036854775808 - 1);
  95 } {-9223372036854775808}
  96 do_execsql_test func4-1.24 {
  97   SELECT tointeger(-9223372036854775808);
  98 } {-9223372036854775808}
  99 do_execsql_test func4-1.25 {
 100   SELECT tointeger(-9223372036854775808 + 1);
 101 } {-9223372036854775807}
 102 do_execsql_test func4-1.26 {
 103   SELECT tointeger(-9223372036854775807 - 1);
 104 } {-9223372036854775808}
 105 do_execsql_test func4-1.27 {
 106   SELECT tointeger(-9223372036854775807);
 107 } {-9223372036854775807}
 108 do_execsql_test func4-1.28 {
 109   SELECT tointeger(-9223372036854775807 + 1);
 110 } {-9223372036854775806}
 111 do_execsql_test func4-1.29 {
 112   SELECT tointeger(-2147483648 - 1);
 113 } {-2147483649}
 114 do_execsql_test func4-1.30 {
 115   SELECT tointeger(-2147483648);
 116 } {-2147483648}
 117 do_execsql_test func4-1.31 {
 118   SELECT tointeger(-2147483648 + 1);
 119 } {-2147483647}
 120 do_execsql_test func4-1.32 {
 121   SELECT tointeger(2147483647 - 1);
 122 } {2147483646}
 123 do_execsql_test func4-1.33 {
 124   SELECT tointeger(2147483647);
 125 } {2147483647}
 126 do_execsql_test func4-1.34 {
 127   SELECT tointeger(2147483647 + 1);
 128 } {2147483648}
 129 do_execsql_test func4-1.35 {
 130   SELECT tointeger(9223372036854775807 - 1);
 131 } {9223372036854775806}
 132 do_execsql_test func4-1.36 {
 133   SELECT tointeger(9223372036854775807);
 134 } {9223372036854775807}
 135 if {$highPrecision(1)} {
 136   do_execsql_test func4-1.37 {
 137     SELECT tointeger(9223372036854775807 + 1);
 138   } {{}}
 139 }
 140 do_execsql_test func4-1.38 {
 141   SELECT tointeger(1.79769313486232e308 - 1);
 142 } {{}}
 143 do_execsql_test func4-1.39 {
 144   SELECT tointeger(1.79769313486232e308);
 145 } {{}}
 146 do_execsql_test func4-1.40 {
 147   SELECT tointeger(1.79769313486232e308 + 1);
 148 } {{}}
 149 do_execsql_test func4-1.41 {
 150   SELECT tointeger(4503599627370496 - 1);
 151 } {4503599627370495}
 152 do_execsql_test func4-1.42 {
 153   SELECT tointeger(4503599627370496);
 154 } {4503599627370496}
 155 do_execsql_test func4-1.43 {
 156   SELECT tointeger(4503599627370496 + 1);
 157 } {4503599627370497}
 158 do_execsql_test func4-1.44 {
 159   SELECT tointeger(9007199254740992 - 1);
 160 } {9007199254740991}
 161 do_execsql_test func4-1.45 {
 162   SELECT tointeger(9007199254740992);
 163 } {9007199254740992}
 164 do_execsql_test func4-1.46 {
 165   SELECT tointeger(9007199254740992 + 1);
 166 } {9007199254740993}
 167 do_execsql_test func4-1.47 {
 168   SELECT tointeger(9223372036854775807 - 1);
 169 } {9223372036854775806}
 170 do_execsql_test func4-1.48 {
 171   SELECT tointeger(9223372036854775807);
 172 } {9223372036854775807}
 173 if {$highPrecision(1)} {
 174   do_execsql_test func4-1.49 {
 175     SELECT tointeger(9223372036854775807 + 1);
 176   } {{}}
 177   do_execsql_test func4-1.50 {
 178     SELECT tointeger(9223372036854775808 - 1);
 179   } {{}}
 180   do_execsql_test func4-1.51 {
 181     SELECT tointeger(9223372036854775808);
 182   } {{}}
 183   do_execsql_test func4-1.52 {
 184     SELECT tointeger(9223372036854775808 + 1);
 185   } {{}}
 186 }
 187 do_execsql_test func4-1.53 {
 188   SELECT tointeger(18446744073709551616 - 1);
 189 } {{}}
 190 do_execsql_test func4-1.54 {
 191   SELECT tointeger(18446744073709551616);
 192 } {{}}
 193 do_execsql_test func4-1.55 {
 194   SELECT tointeger(18446744073709551616 + 1);
 195 } {{}}
 196
 197 ifcapable floatingpoint {
 198   set highPrecision(2) [expr \
 199       {[db eval {SELECT toreal(-9223372036854775808 + 1);}] eq {{}}}]
 200
 201   do_execsql_test func4-2.1 {
 202     SELECT toreal(NULL);
 203   } {{}}
 204   do_execsql_test func4-2.2 {
 205     SELECT toreal('');
 206   } {{}}
 207   do_execsql_test func4-2.3 {
 208     SELECT toreal('   ');
 209   } {{}}
 210   do_execsql_test func4-2.4 {
 211     SELECT toreal('1234');
 212   } {1234.0}
 213   do_execsql_test func4-2.5 {
 214     SELECT toreal('   1234');
 215   } {{}}
 216   do_execsql_test func4-2.6 {
 217     SELECT toreal('bad');
 218   } {{}}
 219   do_execsql_test func4-2.7 {
 220     SELECT toreal('0xBAD');
 221   } {{}}
 222   do_execsql_test func4-2.8 {
 223     SELECT toreal('123BAD');
 224   } {{}}
 225   do_execsql_test func4-2.9 {
 226     SELECT toreal('0x123BAD');
 227   } {{}}
 228   do_execsql_test func4-2.10 {
 229     SELECT toreal('123NO');
 230   } {{}}
 231   do_execsql_test func4-2.11 {
 232     SELECT toreal('0x123NO');
 233   } {{}}
 234   do_execsql_test func4-2.12 {
 235     SELECT toreal('-0x1');
 236   } {{}}
 237   do_execsql_test func4-2.13 {
 238     SELECT toreal('-0x0');
 239   } {{}}
 240   do_execsql_test func4-2.14 {
 241     SELECT toreal('0x0');
 242   } {{}}
 243   do_execsql_test func4-2.15 {
 244     SELECT toreal('0x1');
 245   } {{}}
 246   do_execsql_test func4-2.16 {
 247     SELECT toreal(-1);
 248   } {-1.0}
 249   do_execsql_test func4-2.17 {
 250     SELECT toreal(-0);
 251   } {0.0}
 252   do_execsql_test func4-2.18 {
 253     SELECT toreal(0);
 254   } {0.0}
 255   do_execsql_test func4-2.19 {
 256     SELECT toreal(1);
 257   } {1.0}
 258   do_execsql_test func4-2.20 {
 259     SELECT toreal(-1.79769313486232e308 - 1);
 260   } {-Inf}
 261   do_execsql_test func4-2.21 {
 262     SELECT toreal(-1.79769313486232e308);
 263   } {-Inf}
 264   do_execsql_test func4-2.22 {
 265     SELECT toreal(-1.79769313486232e308 + 1);
 266   } {-Inf}
 267   do_execsql_test func4-2.23 {
 268     SELECT toreal(-9223372036854775808 - 1);
 269   } {-9.223372036854776e+18}
 270   do_execsql_test func4-2.24 {
 271     SELECT toreal(-9223372036854775808);
 272   } {-9.223372036854776e+18}
 273   if {$highPrecision(2)} {
 274     do_execsql_test func4-2.25 {
 275       SELECT toreal(-9223372036854775808 + 1);
 276     } {{}}
 277   }
 278   do_execsql_test func4-2.26 {
 279     SELECT toreal(-9223372036854775807 - 1);
 280   } {-9.223372036854776e+18}
 281   if {$highPrecision(2)} {
 282     do_execsql_test func4-2.27 {
 283       SELECT toreal(-9223372036854775807);
 284     } {{}}
 285     do_execsql_test func4-2.28 {
 286       SELECT toreal(-9223372036854775807 + 1);
 287     } {{}}
 288   }
 289   do_execsql_test func4-2.29 {
 290     SELECT toreal(-2147483648 - 1);
 291   } {-2147483649.0}
 292   do_execsql_test func4-2.30 {
 293     SELECT toreal(-2147483648);
 294   } {-2147483648.0}
 295   do_execsql_test func4-2.31 {
 296     SELECT toreal(-2147483648 + 1);
 297   } {-2147483647.0}
 298   do_execsql_test func4-2.32 {
 299     SELECT toreal(2147483647 - 1);
 300   } {2147483646.0}
 301   do_execsql_test func4-2.33 {
 302     SELECT toreal(2147483647);
 303   } {2147483647.0}
 304   do_execsql_test func4-2.34 {
 305     SELECT toreal(2147483647 + 1);
 306   } {2147483648.0}
 307   if {$highPrecision(2)} {
 308     do_execsql_test func4-2.35 {
 309       SELECT toreal(9223372036854775807 - 1);
 310     } {{}}
 311     if {$highPrecision(1)} {
 312       do_execsql_test func4-2.36 {
 313         SELECT toreal(9223372036854775807);
 314       } {{}}
 315     }
 316   }
 317   do_execsql_test func4-2.37 {
 318     SELECT toreal(9223372036854775807 + 1);
 319   } {9.223372036854776e+18}
 320   do_execsql_test func4-2.38 {
 321     SELECT toreal(1.79769313486232e308 - 1);
 322   } {Inf}
 323   do_execsql_test func4-2.39 {
 324     SELECT toreal(1.79769313486232e308);
 325   } {Inf}
 326   do_execsql_test func4-2.40 {
 327     SELECT toreal(1.79769313486232e308 + 1);
 328   } {Inf}
 329   do_execsql_test func4-2.41 {
 330     SELECT toreal(4503599627370496 - 1);
 331   } {4503599627370495.0}
 332   do_execsql_test func4-2.42 {
 333     SELECT toreal(4503599627370496);
 334   } {4503599627370496.0}
 335   do_execsql_test func4-2.43 {
 336     SELECT toreal(4503599627370496 + 1);
 337   } {4503599627370497.0}
 338   do_execsql_test func4-2.44 {
 339     SELECT toreal(9007199254740992 - 1);
 340   } {9007199254740991.0}
 341   do_execsql_test func4-2.45 {
 342     SELECT toreal(9007199254740992);
 343   } {9007199254740992.0}
 344   if {$highPrecision(2)} {
 345     do_execsql_test func4-2.46 {
 346       SELECT toreal(9007199254740992 + 1);
 347     } {{}}
 348   }
 349   do_execsql_test func4-2.47 {
 350     SELECT toreal(9007199254740992 + 2);
 351   } {9007199254740994.0}
 352   do_execsql_test func4-2.48 {
 353     SELECT toreal(tointeger(9223372036854775808) - 1);
 354   } {{}}
 355   if {$highPrecision(1)} {
 356     do_execsql_test func4-2.49 {
 357       SELECT toreal(tointeger(9223372036854775808));
 358     } {{}}
 359     do_execsql_test func4-2.50 {
 360       SELECT toreal(tointeger(9223372036854775808) + 1);
 361     } {{}}
 362   }
 363   do_execsql_test func4-2.51 {
 364     SELECT toreal(tointeger(18446744073709551616) - 1);
 365   } {{}}
 366   do_execsql_test func4-2.52 {
 367     SELECT toreal(tointeger(18446744073709551616));
 368   } {{}}
 369   do_execsql_test func4-2.53 {
 370     SELECT toreal(tointeger(18446744073709551616) + 1);
 371   } {{}}
 372 }
 373
 374 ifcapable check {
 375   do_execsql_test func4-3.1 {
 376     CREATE TABLE t1(
 377       x INTEGER CHECK(tointeger(x) IS NOT NULL)
 378     );
 379   } {}
 380   do_test func4-3.2 {
 381     catchsql {
 382       INSERT INTO t1 (x) VALUES (NULL);
 383     }
 384   } {1 {CHECK constraint failed: t1}}
 385   do_test func4-3.3 {
 386     catchsql {
 387       INSERT INTO t1 (x) VALUES (NULL);
 388     }
 389   } {1 {CHECK constraint failed: t1}}
 390   do_test func4-3.4 {
 391     catchsql {
 392       INSERT INTO t1 (x) VALUES ('');
 393     }
 394   } {1 {CHECK constraint failed: t1}}
 395   do_test func4-3.5 {
 396     catchsql {
 397       INSERT INTO t1 (x) VALUES ('bad');
 398     }
 399   } {1 {CHECK constraint failed: t1}}
 400   do_test func4-3.6 {
 401     catchsql {
 402       INSERT INTO t1 (x) VALUES ('1234bad');
 403     }
 404   } {1 {CHECK constraint failed: t1}}
 405   do_test func4-3.7 {
 406     catchsql {
 407       INSERT INTO t1 (x) VALUES ('1234.56bad');
 408     }
 409   } {1 {CHECK constraint failed: t1}}
 410   do_test func4-3.8 {
 411     catchsql {
 412       INSERT INTO t1 (x) VALUES (1234);
 413     }
 414   } {0 {}}
 415   do_test func4-3.9 {
 416     catchsql {
 417       INSERT INTO t1 (x) VALUES (1234.56);
 418     }
 419   } {1 {CHECK constraint failed: t1}}
 420   do_test func4-3.10 {
 421     catchsql {
 422       INSERT INTO t1 (x) VALUES ('1234');
 423     }
 424   } {0 {}}
 425   do_test func4-3.11 {
 426     catchsql {
 427       INSERT INTO t1 (x) VALUES ('1234.56');
 428     }
 429   } {1 {CHECK constraint failed: t1}}
 430   do_test func4-3.12 {
 431     catchsql {
 432       INSERT INTO t1 (x) VALUES (ZEROBLOB(4));
 433     }
 434   } {1 {CHECK constraint failed: t1}}
 435   do_test func4-3.13 {
 436     catchsql {
 437       INSERT INTO t1 (x) VALUES (X'');
 438     }
 439   } {1 {CHECK constraint failed: t1}}
 440   do_test func4-3.14 {
 441     catchsql {
 442       INSERT INTO t1 (x) VALUES (X'1234');
 443     }
 444   } {1 {CHECK constraint failed: t1}}
 445   do_test func4-3.15 {
 446     catchsql {
 447       INSERT INTO t1 (x) VALUES (X'12345678');
 448     }
 449   } {1 {CHECK constraint failed: t1}}
 450   do_test func4-3.16 {
 451     catchsql {
 452       INSERT INTO t1 (x) VALUES ('1234.00');
 453     }
 454   } {1 {CHECK constraint failed: t1}}
 455   do_test func4-3.17 {
 456     catchsql {
 457       INSERT INTO t1 (x) VALUES (1234.00);
 458     }
 459   } {0 {}}
 460   do_test func4-3.18 {
 461     catchsql {
 462       INSERT INTO t1 (x) VALUES ('-9223372036854775809');
 463     }
 464   } {1 {CHECK constraint failed: t1}}
 465   if {$highPrecision(1)} {
 466     do_test func4-3.19 {
 467       catchsql {
 468         INSERT INTO t1 (x) VALUES (9223372036854775808);
 469       }
 470     } {1 {CHECK constraint failed: t1}}
 471   }
 472   do_execsql_test func4-3.20 {
 473     SELECT x FROM t1 ORDER BY x;
 474   } {1234 1234 1234}
 475
 476   ifcapable floatingpoint {
 477     do_execsql_test func4-4.1 {
 478       CREATE TABLE t2(
 479         x REAL CHECK(toreal(x) IS NOT NULL)
 480       );
 481     } {}
 482     do_test func4-4.2 {
 483       catchsql {
 484         INSERT INTO t2 (x) VALUES (NULL);
 485       }
 486     } {1 {CHECK constraint failed: t2}}
 487     do_test func4-4.3 {
 488       catchsql {
 489         INSERT INTO t2 (x) VALUES (NULL);
 490       }
 491     } {1 {CHECK constraint failed: t2}}
 492     do_test func4-4.4 {
 493       catchsql {
 494         INSERT INTO t2 (x) VALUES ('');
 495       }
 496     } {1 {CHECK constraint failed: t2}}
 497     do_test func4-4.5 {
 498       catchsql {
 499         INSERT INTO t2 (x) VALUES ('bad');
 500       }
 501     } {1 {CHECK constraint failed: t2}}
 502     do_test func4-4.6 {
 503       catchsql {
 504         INSERT INTO t2 (x) VALUES ('1234bad');
 505       }
 506     } {1 {CHECK constraint failed: t2}}
 507     do_test func4-4.7 {
 508       catchsql {
 509         INSERT INTO t2 (x) VALUES ('1234.56bad');
 510       }
 511     } {1 {CHECK constraint failed: t2}}
 512     do_test func4-4.8 {
 513       catchsql {
 514         INSERT INTO t2 (x) VALUES (1234);
 515       }
 516     } {0 {}}
 517     do_test func4-4.9 {
 518       catchsql {
 519         INSERT INTO t2 (x) VALUES (1234.56);
 520       }
 521     } {0 {}}
 522     do_test func4-4.10 {
 523       catchsql {
 524         INSERT INTO t2 (x) VALUES ('1234');
 525       }
 526     } {0 {}}
 527     do_test func4-4.11 {
 528       catchsql {
 529         INSERT INTO t2 (x) VALUES ('1234.56');
 530       }
 531     } {0 {}}
 532     do_test func4-4.12 {
 533       catchsql {
 534         INSERT INTO t2 (x) VALUES (ZEROBLOB(4));
 535       }
 536     } {1 {CHECK constraint failed: t2}}
 537     do_test func4-4.13 {
 538       catchsql {
 539         INSERT INTO t2 (x) VALUES (X'');
 540       }
 541     } {1 {CHECK constraint failed: t2}}
 542     do_test func4-4.14 {
 543       catchsql {
 544         INSERT INTO t2 (x) VALUES (X'1234');
 545       }
 546     } {1 {CHECK constraint failed: t2}}
 547     do_test func4-4.15 {
 548       catchsql {
 549         INSERT INTO t2 (x) VALUES (X'12345678');
 550       }
 551     } {1 {CHECK constraint failed: t2}}
 552     do_execsql_test func4-4.16 {
 553       SELECT x FROM t2 ORDER BY x;
 554     } {1234.0 1234.0 1234.56 1234.56}
 555   }
 556 }
 557
 558 ifcapable floatingpoint {
 559   do_execsql_test func4-5.1 {
 560     SELECT tointeger(toreal('1234'));
 561   } {1234}
 562   do_execsql_test func4-5.2 {
 563     SELECT tointeger(toreal(-1));
 564   } {-1}
 565   do_execsql_test func4-5.3 {
 566     SELECT tointeger(toreal(-0));
 567   } {0}
 568   do_execsql_test func4-5.4 {
 569     SELECT tointeger(toreal(0));
 570   } {0}
 571   do_execsql_test func4-5.5 {
 572     SELECT tointeger(toreal(1));
 573   } {1}
 574   do_execsql_test func4-5.6 {
 575     SELECT tointeger(toreal(-9223372036854775808 - 1));
 576   } {-9223372036854775808}
 577   do_execsql_test func4-5.7 {
 578     SELECT tointeger(toreal(-9223372036854775808));
 579   } {-9223372036854775808}
 580   if {$highPrecision(2)} {
 581     do_execsql_test func4-5.8 {
 582       SELECT tointeger(toreal(-9223372036854775808 + 1));
 583     } {{}}
 584   }
 585   do_execsql_test func4-5.9 {
 586     SELECT tointeger(toreal(-2147483648 - 1));
 587   } {-2147483649}
 588   do_execsql_test func4-5.10 {
 589     SELECT tointeger(toreal(-2147483648));
 590   } {-2147483648}
 591   do_execsql_test func4-5.11 {
 592     SELECT tointeger(toreal(-2147483648 + 1));
 593   } {-2147483647}
 594   do_execsql_test func4-5.12 {
 595     SELECT tointeger(toreal(2147483647 - 1));
 596   } {2147483646}
 597   do_execsql_test func4-5.13 {
 598     SELECT tointeger(toreal(2147483647));
 599   } {2147483647}
 600   do_execsql_test func4-5.14 {
 601     SELECT tointeger(toreal(2147483647 + 1));
 602   } {2147483648}
 603   do_execsql_test func4-5.15 {
 604     SELECT tointeger(toreal(9223372036854775807 - 1));
 605   } {{}}
 606   if {$highPrecision(1)} {
 607     do_execsql_test func4-5.16 {
 608       SELECT tointeger(toreal(9223372036854775807));
 609     } {{}}
 610     do_execsql_test func4-5.17 {
 611       SELECT tointeger(toreal(9223372036854775807 + 1));
 612     } {{}}
 613   }
 614   do_execsql_test func4-5.18 {
 615     SELECT tointeger(toreal(4503599627370496 - 1));
 616   } {4503599627370495}
 617   do_execsql_test func4-5.19 {
 618     SELECT tointeger(toreal(4503599627370496));
 619   } {4503599627370496}
 620   do_execsql_test func4-5.20 {
 621     SELECT tointeger(toreal(4503599627370496 + 1));
 622   } {4503599627370497}
 623   do_execsql_test func4-5.21 {
 624     SELECT tointeger(toreal(9007199254740992 - 1));
 625   } {9007199254740991}
 626   do_execsql_test func4-5.22 {
 627     SELECT tointeger(toreal(9007199254740992));
 628   } {9007199254740992}
 629   if {$highPrecision(2)} {
 630     do_execsql_test func4-5.23 {
 631       SELECT tointeger(toreal(9007199254740992 + 1));
 632     } {{}}
 633   }
 634   do_execsql_test func4-5.24 {
 635     SELECT tointeger(toreal(9007199254740992 + 2));
 636   } {9007199254740994}
 637   if {$highPrecision(1)} {
 638     do_execsql_test func4-5.25 {
 639       SELECT tointeger(toreal(9223372036854775808 - 1));
 640     } {{}}
 641     do_execsql_test func4-5.26 {
 642       SELECT tointeger(toreal(9223372036854775808));
 643     } {{}}
 644     do_execsql_test func4-5.27 {
 645       SELECT tointeger(toreal(9223372036854775808 + 1));
 646     } {{}}
 647   }
 648   do_execsql_test func4-5.28 {
 649     SELECT tointeger(toreal(18446744073709551616 - 1));
 650   } {{}}
 651   do_execsql_test func4-5.29 {
 652     SELECT tointeger(toreal(18446744073709551616));
 653   } {{}}
 654   do_execsql_test func4-5.30 {
 655     SELECT tointeger(toreal(18446744073709551616 + 1));
 656   } {{}}
 657 }
 658
 659 for {set i 0} {$i < 10} {incr i} {
 660   if {$i == 8} continue
 661   do_execsql_test func4-6.1.$i.1 [subst {
 662     SELECT tointeger(x'[string repeat 01 $i]');
 663   }] {{}}
 664   ifcapable floatingpoint {
 665     do_execsql_test func4-6.1.$i.2 [subst {
 666       SELECT toreal(x'[string repeat 01 $i]');
 667     }] {{}}
 668   }
 669 }
 670
 671 do_execsql_test func4-6.2.1 {
 672   SELECT tointeger(x'0102030405060708');
 673 } {578437695752307201}
 674 do_execsql_test func4-6.2.2 {
 675   SELECT tointeger(x'0807060504030201');
 676 } {72623859790382856}
 677
 678 ifcapable floatingpoint {
 679   do_execsql_test func4-6.3.1 {
 680     SELECT toreal(x'ffefffffffffffff');
 681   } {-1.7976931348623157e+308}
 682   do_execsql_test func4-6.3.2 {
 683     SELECT toreal(x'8010000000000000');
 684   } {-2.2250738585072014e-308}
 685   do_execsql_test func4-6.3.3 {
 686     SELECT toreal(x'c000000000000000');
 687   } {-2.0}
 688   do_execsql_test func4-6.3.4 {
 689     SELECT toreal(x'bff0000000000000');
 690   } {-1.0}
 691   do_execsql_test func4-6.3.5 {
 692     SELECT toreal(x'8000000000000000');
 693   } {-0.0}
 694   do_execsql_test func4-6.3.6 {
 695     SELECT toreal(x'0000000000000000');
 696   } {0.0}
 697   do_execsql_test func4-6.3.7 {
 698     SELECT toreal(x'3ff0000000000000');
 699   } {1.0}
 700   do_execsql_test func4-6.3.8 {
 701     SELECT toreal(x'4000000000000000');
 702   } {2.0}
 703   do_execsql_test func4-6.3.9 {
 704     SELECT toreal(x'0010000000000000');
 705   } {2.2250738585072014e-308}
 706   do_execsql_test func4-6.3.10 {
 707     SELECT toreal(x'7fefffffffffffff');
 708   } {1.7976931348623157e+308}
 709   do_execsql_test func4-6.3.11 {
 710     SELECT toreal(x'8000000000000001');
 711   } {-5e-324}
 712   do_execsql_test func4-6.3.12 {
 713     SELECT toreal(x'800fffffffffffff');
 714   } {-2.225073858507201e-308}
 715   do_execsql_test func4-6.3.13 {
 716     SELECT toreal(x'0000000000000001');
 717   } {5e-324}
 718   do_execsql_test func4-6.3.14 {
 719     SELECT toreal(x'000fffffffffffff');
 720   } {2.225073858507201e-308}
 721   do_execsql_test func4-6.3.15 {
 722     SELECT toreal(x'fff0000000000000');
 723   } {-Inf}
 724   do_execsql_test func4-6.3.16 {
 725     SELECT toreal(x'7ff0000000000000');
 726   } {Inf}
 727   do_execsql_test func4-6.3.17 {
 728     SELECT toreal(x'fff8000000000000');
 729   } {{}}
 730   do_execsql_test func4-6.3.18 {
 731     SELECT toreal(x'fff0000000000001');
 732   } {{}}
 733   do_execsql_test func4-6.3.19 {
 734     SELECT toreal(x'fff7ffffffffffff');
 735   } {{}}
 736   do_execsql_test func4-6.3.20 {
 737     SELECT toreal(x'7ff0000000000001');
 738   } {{}}
 739   do_execsql_test func4-6.3.21 {
 740     SELECT toreal(x'7ff7ffffffffffff');
 741   } {{}}
 742   do_execsql_test func4-6.3.22 {
 743     SELECT toreal(x'fff8000000000001');
 744   } {{}}
 745   do_execsql_test func4-6.3.23 {
 746     SELECT toreal(x'ffffffffffffffff');
 747   } {{}}
 748   do_execsql_test func4-6.3.24 {
 749     SELECT toreal(x'7ff8000000000000');
 750   } {{}}
 751   do_execsql_test func4-6.3.25 {
 752     SELECT toreal(x'7fffffffffffffff');
 753   } {{}}
 754 }
 755
 756 set tcl_precision $saved_tcl_precision
 757 unset saved_tcl_precision
 758 finish_test