/ Hex Artifact Content
Login

Artifact a44e04df1486fcfb02d32468cbcd3c8e1e433723:


0000: 23 20 32 30 30 38 20 41 70 72 69 6c 20 32 38 0a  # 2008 April 28.
0010: 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20 64  #.# The author d
0020: 69 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67  isclaims copyrig
0030: 68 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63  ht to this sourc
0040: 65 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63  e code.  In plac
0050: 65 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e  e of.# a legal n
0060: 6f 74 69 63 65 2c 20 68 65 72 65 20 69 73 20 61  otice, here is a
0070: 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20   blessing:.#.#  
0080: 20 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f    May you do goo
0090: 64 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a  d and not evil..
00a0: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e  #    May you fin
00b0: 64 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f  d forgiveness fo
00c0: 72 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66  r yourself and f
00d0: 6f 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23  orgive others..#
00e0: 20 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72      May you shar
00f0: 65 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20  e freely, never 
0100: 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e  taking more than
0110: 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a   you give..#.#**
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 0a 23 0a 23 20 54 69 63 6b 65 74  *****.#.# Ticket
0170: 20 23 33 30 36 30 0a 23 0a 23 20 4d 61 6b 65 20   #3060.#.# Make 
0180: 73 75 72 65 20 49 45 45 45 20 66 6c 6f 61 74 69  sure IEEE floati
0190: 6e 67 20 70 6f 69 6e 74 20 4e 61 4e 20 76 61 6c  ng point NaN val
01a0: 75 65 73 20 61 72 65 20 68 61 6e 64 6c 65 64 20  ues are handled 
01b0: 70 72 6f 70 65 72 6c 79 2e 0a 23 20 53 51 4c 69  properly..# SQLi
01c0: 74 65 20 73 68 6f 75 6c 64 20 61 6c 77 61 79 73  te should always
01d0: 20 63 6f 6e 76 65 72 74 20 4e 61 4e 20 69 6e 74   convert NaN int
01e0: 6f 20 4e 55 4c 4c 2e 0a 23 0a 23 20 41 6c 73 6f  o NULL..#.# Also
01f0: 20 76 65 72 69 66 79 20 74 68 61 74 20 74 68 65   verify that the
0200: 20 64 65 63 69 6d 61 6c 20 74 6f 20 49 45 45 45   decimal to IEEE
0210: 37 35 34 20 62 69 6e 61 72 79 20 63 6f 6e 76 65  754 binary conve
0220: 72 73 69 6f 6e 20 72 6f 75 74 69 6e 65 73 0a 23  rsion routines.#
0230: 20 63 6f 72 72 65 63 74 6c 79 20 67 65 6e 65 72   correctly gener
0240: 61 74 65 20 30 2e 30 2c 20 2b 49 6e 66 2c 20 61  ate 0.0, +Inf, a
0250: 6e 64 20 2d 49 6e 66 20 61 73 20 61 70 70 72 6f  nd -Inf as appro
0260: 70 72 69 61 74 65 20 66 6f 72 20 6e 75 6d 62 65  priate for numbe
0270: 72 73 0a 23 20 6f 75 74 20 6f 66 20 72 61 6e 67  rs.# out of rang
0280: 65 2e 0a 23 0a 23 20 24 49 64 3a 20 6e 61 6e 2e  e..#.# $Id: nan.
0290: 74 65 73 74 2c 76 20 31 2e 35 20 32 30 30 38 2f  test,v 1.5 2008/
02a0: 30 39 2f 31 38 20 31 31 3a 33 30 3a 31 33 20 64  09/18 11:30:13 d
02b0: 61 6e 69 65 6c 6b 31 39 37 37 20 45 78 70 20 24  anielk1977 Exp $
02c0: 0a 23 0a 0a 73 65 74 20 74 65 73 74 64 69 72 20  .#..set testdir 
02d0: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 61  [file dirname $a
02e0: 72 67 76 30 5d 0a 73 6f 75 72 63 65 20 24 74 65  rgv0].source $te
02f0: 73 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63 6c  stdir/tester.tcl
0300: 0a 0a 23 20 44 6f 20 6e 6f 74 20 75 73 65 20 61  ..# Do not use a
0310: 20 63 6f 64 65 63 20 66 6f 72 20 74 65 73 74 73   codec for tests
0320: 20 69 6e 20 74 68 69 73 20 66 69 6c 65 2c 20 61   in this file, a
0330: 73 20 74 68 65 20 64 61 74 61 62 61 73 65 20 66  s the database f
0340: 69 6c 65 20 69 73 0a 23 20 6d 61 6e 69 70 75 6c  ile is.# manipul
0350: 61 74 65 64 20 64 69 72 65 63 74 6c 79 20 75 73  ated directly us
0360: 69 6e 67 20 74 63 6c 20 73 63 72 69 70 74 73 20  ing tcl scripts 
0370: 28 75 73 69 6e 67 20 74 68 65 20 5b 68 65 78 69  (using the [hexi
0380: 6f 5f 77 72 69 74 65 5d 20 63 6f 6d 6d 61 6e 64  o_write] command
0390: 29 2e 0a 23 0a 64 6f 5f 6e 6f 74 5f 75 73 65 5f  )..#.do_not_use_
03a0: 63 6f 64 65 63 0a 0a 64 6f 5f 74 65 73 74 20 6e  codec..do_test n
03b0: 61 6e 2d 31 2e 31 2e 31 20 7b 0a 20 20 64 62 20  an-1.1.1 {.  db 
03c0: 65 76 61 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d  eval {.    PRAGM
03d0: 41 20 61 75 74 6f 5f 76 61 63 75 75 6d 3d 4f 46  A auto_vacuum=OF
03e0: 46 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 70 61  F;.    PRAGMA pa
03f0: 67 65 5f 73 69 7a 65 3d 31 30 32 34 3b 0a 20 20  ge_size=1024;.  
0400: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74    CREATE TABLE t
0410: 31 28 78 20 46 4c 4f 41 54 29 3b 0a 20 20 7d 0a  1(x FLOAT);.  }.
0420: 20 20 73 65 74 20 3a 3a 53 54 4d 54 20 5b 73 71    set ::STMT [sq
0430: 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20 64 62  lite3_prepare db
0440: 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31   "INSERT INTO t1
0450: 20 56 41 4c 55 45 53 28 3f 29 22 20 2d 31 20 54   VALUES(?)" -1 T
0460: 41 49 4c 5d 0a 20 20 73 71 6c 69 74 65 33 5f 62  AIL].  sqlite3_b
0470: 69 6e 64 5f 64 6f 75 62 6c 65 20 24 3a 3a 53 54  ind_double $::ST
0480: 4d 54 20 31 20 4e 61 4e 0a 20 20 73 71 6c 69 74  MT 1 NaN.  sqlit
0490: 65 33 5f 73 74 65 70 20 24 3a 3a 53 54 4d 54 0a  e3_step $::STMT.
04a0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 20    sqlite3_reset 
04b0: 24 3a 3a 53 54 4d 54 0a 20 20 64 62 20 65 76 61  $::STMT.  db eva
04c0: 6c 20 7b 53 45 4c 45 43 54 20 78 2c 20 74 79 70  l {SELECT x, typ
04d0: 65 6f 66 28 78 29 20 46 52 4f 4d 20 74 31 7d 0a  eof(x) FROM t1}.
04e0: 7d 20 7b 7b 7d 20 6e 75 6c 6c 7d 0a 69 66 20 7b  } {{} null}.if {
04f0: 24 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c  $tcl_platform(pl
0500: 61 74 66 6f 72 6d 29 20 21 3d 20 22 73 79 6d 62  atform) != "symb
0510: 69 61 6e 22 7d 20 7b 0a 20 20 64 6f 5f 74 65 73  ian"} {.  do_tes
0520: 74 20 6e 61 6e 2d 31 2e 31 2e 32 20 7b 0a 20 20  t nan-1.1.2 {.  
0530: 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 64    sqlite3_bind_d
0540: 6f 75 62 6c 65 20 24 3a 3a 53 54 4d 54 20 31 20  ouble $::STMT 1 
0550: 2b 49 6e 66 0a 20 20 20 20 73 71 6c 69 74 65 33  +Inf.    sqlite3
0560: 5f 73 74 65 70 20 24 3a 3a 53 54 4d 54 0a 20 20  _step $::STMT.  
0570: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 20    sqlite3_reset 
0580: 24 3a 3a 53 54 4d 54 0a 20 20 20 20 64 62 20 65  $::STMT.    db e
0590: 76 61 6c 20 7b 53 45 4c 45 43 54 20 78 2c 20 74  val {SELECT x, t
05a0: 79 70 65 6f 66 28 78 29 20 46 52 4f 4d 20 74 31  ypeof(x) FROM t1
05b0: 7d 0a 20 20 7d 20 7b 7b 7d 20 6e 75 6c 6c 20 69  }.  } {{} null i
05c0: 6e 66 20 72 65 61 6c 7d 0a 20 20 64 6f 5f 74 65  nf real}.  do_te
05d0: 73 74 20 6e 61 6e 2d 31 2e 31 2e 33 20 7b 0a 20  st nan-1.1.3 {. 
05e0: 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f     sqlite3_bind_
05f0: 64 6f 75 62 6c 65 20 24 3a 3a 53 54 4d 54 20 31  double $::STMT 1
0600: 20 2d 49 6e 66 0a 20 20 20 20 73 71 6c 69 74 65   -Inf.    sqlite
0610: 33 5f 73 74 65 70 20 24 3a 3a 53 54 4d 54 0a 20  3_step $::STMT. 
0620: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74     sqlite3_reset
0630: 20 24 3a 3a 53 54 4d 54 0a 20 20 20 20 64 62 20   $::STMT.    db 
0640: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 78 2c 20  eval {SELECT x, 
0650: 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d 20 74  typeof(x) FROM t
0660: 31 7d 0a 20 20 7d 20 7b 7b 7d 20 6e 75 6c 6c 20  1}.  } {{} null 
0670: 69 6e 66 20 72 65 61 6c 20 2d 69 6e 66 20 72 65  inf real -inf re
0680: 61 6c 7d 0a 20 20 64 6f 5f 74 65 73 74 20 6e 61  al}.  do_test na
0690: 6e 2d 31 2e 31 2e 34 20 7b 0a 20 20 20 20 73 71  n-1.1.4 {.    sq
06a0: 6c 69 74 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c  lite3_bind_doubl
06b0: 65 20 24 3a 3a 53 54 4d 54 20 31 20 2d 4e 61 4e  e $::STMT 1 -NaN
06c0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73 74 65  .    sqlite3_ste
06d0: 70 20 24 3a 3a 53 54 4d 54 0a 20 20 20 20 73 71  p $::STMT.    sq
06e0: 6c 69 74 65 33 5f 72 65 73 65 74 20 24 3a 3a 53  lite3_reset $::S
06f0: 54 4d 54 0a 20 20 20 20 64 62 20 65 76 61 6c 20  TMT.    db eval 
0700: 7b 53 45 4c 45 43 54 20 78 2c 20 74 79 70 65 6f  {SELECT x, typeo
0710: 66 28 78 29 20 46 52 4f 4d 20 74 31 7d 0a 20 20  f(x) FROM t1}.  
0720: 7d 20 7b 7b 7d 20 6e 75 6c 6c 20 69 6e 66 20 72  } {{} null inf r
0730: 65 61 6c 20 2d 69 6e 66 20 72 65 61 6c 20 7b 7d  eal -inf real {}
0740: 20 6e 75 6c 6c 7d 0a 20 20 64 6f 5f 74 65 73 74   null}.  do_test
0750: 20 6e 61 6e 2d 31 2e 31 2e 35 20 7b 0a 20 20 20   nan-1.1.5 {.   
0760: 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 64 6f   sqlite3_bind_do
0770: 75 62 6c 65 20 24 3a 3a 53 54 4d 54 20 31 20 4e  uble $::STMT 1 N
0780: 61 4e 30 0a 20 20 20 20 73 71 6c 69 74 65 33 5f  aN0.    sqlite3_
0790: 73 74 65 70 20 24 3a 3a 53 54 4d 54 0a 20 20 20  step $::STMT.   
07a0: 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 20 24   sqlite3_reset $
07b0: 3a 3a 53 54 4d 54 0a 20 20 20 20 64 62 20 65 76  ::STMT.    db ev
07c0: 61 6c 20 7b 53 45 4c 45 43 54 20 78 2c 20 74 79  al {SELECT x, ty
07d0: 70 65 6f 66 28 78 29 20 46 52 4f 4d 20 74 31 7d  peof(x) FROM t1}
07e0: 0a 20 20 7d 20 7b 7b 7d 20 6e 75 6c 6c 20 69 6e  .  } {{} null in
07f0: 66 20 72 65 61 6c 20 2d 69 6e 66 20 72 65 61 6c  f real -inf real
0800: 20 7b 7d 20 6e 75 6c 6c 20 7b 7d 20 6e 75 6c 6c   {} null {} null
0810: 7d 0a 20 20 64 6f 5f 74 65 73 74 20 6e 61 6e 2d  }.  do_test nan-
0820: 31 2e 31 2e 36 20 7b 0a 20 20 20 20 73 71 6c 69  1.1.6 {.    sqli
0830: 74 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 20  te3_bind_double 
0840: 24 3a 3a 53 54 4d 54 20 31 20 2d 4e 61 4e 30 0a  $::STMT 1 -NaN0.
0850: 20 20 20 20 73 71 6c 69 74 65 33 5f 73 74 65 70      sqlite3_step
0860: 20 24 3a 3a 53 54 4d 54 0a 20 20 20 20 73 71 6c   $::STMT.    sql
0870: 69 74 65 33 5f 72 65 73 65 74 20 24 3a 3a 53 54  ite3_reset $::ST
0880: 4d 54 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b  MT.    db eval {
0890: 53 45 4c 45 43 54 20 78 2c 20 74 79 70 65 6f 66  SELECT x, typeof
08a0: 28 78 29 20 46 52 4f 4d 20 74 31 7d 0a 20 20 7d  (x) FROM t1}.  }
08b0: 20 7b 7b 7d 20 6e 75 6c 6c 20 69 6e 66 20 72 65   {{} null inf re
08c0: 61 6c 20 2d 69 6e 66 20 72 65 61 6c 20 7b 7d 20  al -inf real {} 
08d0: 6e 75 6c 6c 20 7b 7d 20 6e 75 6c 6c 20 7b 7d 20  null {} null {} 
08e0: 6e 75 6c 6c 7d 0a 20 20 64 6f 5f 74 65 73 74 20  null}.  do_test 
08f0: 6e 61 6e 2d 31 2e 31 2e 37 20 7b 0a 20 20 20 20  nan-1.1.7 {.    
0900: 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20 20  db eval {.      
0910: 55 50 44 41 54 45 20 74 31 20 53 45 54 20 78 3d  UPDATE t1 SET x=
0920: 78 2d 78 3b 0a 20 20 20 20 20 20 53 45 4c 45 43  x-x;.      SELEC
0930: 54 20 78 2c 20 74 79 70 65 6f 66 28 78 29 20 46  T x, typeof(x) F
0940: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 7d 0a 20 20  ROM t1;.    }.  
0950: 7d 20 7b 7b 7d 20 6e 75 6c 6c 20 7b 7d 20 6e 75  } {{} null {} nu
0960: 6c 6c 20 7b 7d 20 6e 75 6c 6c 20 7b 7d 20 6e 75  ll {} null {} nu
0970: 6c 6c 20 7b 7d 20 6e 75 6c 6c 20 7b 7d 20 6e 75  ll {} null {} nu
0980: 6c 6c 7d 0a 7d 0a 0a 23 20 54 68 65 20 66 6f 6c  ll}.}..# The fol
0990: 6c 6f 77 69 6e 67 20 62 6c 6f 63 6b 20 6f 66 20  lowing block of 
09a0: 74 65 73 74 73 2c 20 6e 61 6e 2d 31 2e 32 2e 2a  tests, nan-1.2.*
09b0: 2c 20 61 72 65 20 74 68 65 20 73 61 6d 65 20 61  , are the same a
09c0: 73 20 74 68 65 20 6e 61 6e 2d 31 2e 31 2e 2a 0a  s the nan-1.1.*.
09d0: 23 20 74 65 73 74 73 20 61 62 6f 76 65 2c 20 65  # tests above, e
09e0: 78 63 65 70 74 20 74 68 61 74 20 74 68 65 20 53  xcept that the S
09f0: 45 4c 45 43 54 20 71 75 65 72 69 65 73 20 75 73  ELECT queries us
0a00: 65 64 20 74 6f 20 76 61 6c 69 64 61 74 65 20 64  ed to validate d
0a10: 61 74 61 20 0a 23 20 63 6f 6e 76 65 72 74 20 66  ata .# convert f
0a20: 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 76 61  loating point va
0a30: 6c 75 65 73 20 74 6f 20 74 65 78 74 20 69 6e 74  lues to text int
0a40: 65 72 6e 61 6c 6c 79 20 62 65 66 6f 72 65 20 72  ernally before r
0a50: 65 74 75 72 6e 69 6e 67 20 74 68 65 6d 0a 23 20  eturning them.# 
0a60: 74 6f 20 54 63 6c 2e 20 54 68 69 73 20 61 6c 6c  to Tcl. This all
0a70: 6f 77 73 20 74 68 65 20 74 65 73 74 73 20 74 6f  ows the tests to
0a80: 20 62 65 20 72 75 6e 20 6f 6e 20 70 6c 61 74 66   be run on platf
0a90: 6f 72 6d 73 20 77 68 65 72 65 20 54 63 6c 20 68  orms where Tcl h
0aa0: 61 73 0a 23 20 70 72 6f 62 6c 65 6d 73 20 63 6f  as.# problems co
0ab0: 6e 76 65 72 74 69 6e 67 20 22 69 6e 66 22 20 61  nverting "inf" a
0ac0: 6e 64 20 22 2d 69 6e 66 22 20 66 72 6f 6d 20 66  nd "-inf" from f
0ad0: 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 74 6f  loating point to
0ae0: 20 74 65 78 74 20 66 6f 72 6d 61 74 2e 0a 23 20   text format..# 
0af0: 49 74 20 61 6c 73 6f 20 74 65 73 74 73 20 74 68  It also tests th
0b00: 65 20 69 6e 74 65 72 6e 61 6c 20 66 6c 6f 61 74  e internal float
0b10: 2d 3e 74 65 78 74 20 63 6f 6e 76 65 72 73 69 6f  ->text conversio
0b20: 6e 20 72 6f 75 74 69 6e 65 73 20 61 20 62 69 74  n routines a bit
0b30: 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 6e 61 6e 2d  ..#.do_test nan-
0b40: 31 2e 32 2e 31 20 7b 0a 20 20 64 62 20 65 76 61  1.2.1 {.  db eva
0b50: 6c 20 7b 0a 20 20 20 20 44 45 4c 45 54 45 20 46  l {.    DELETE F
0b60: 52 4f 4d 20 54 31 3b 0a 20 20 7d 0a 20 20 73 71  ROM T1;.  }.  sq
0b70: 6c 69 74 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c  lite3_bind_doubl
0b80: 65 20 24 3a 3a 53 54 4d 54 20 31 20 4e 61 4e 0a  e $::STMT 1 NaN.
0b90: 20 20 73 71 6c 69 74 65 33 5f 73 74 65 70 20 24    sqlite3_step $
0ba0: 3a 3a 53 54 4d 54 0a 20 20 73 71 6c 69 74 65 33  ::STMT.  sqlite3
0bb0: 5f 72 65 73 65 74 20 24 3a 3a 53 54 4d 54 0a 20  _reset $::STMT. 
0bc0: 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54   db eval {SELECT
0bd0: 20 43 41 53 54 28 78 20 41 53 20 74 65 78 74 29   CAST(x AS text)
0be0: 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d  , typeof(x) FROM
0bf0: 20 74 31 7d 0a 7d 20 7b 7b 7d 20 6e 75 6c 6c 7d   t1}.} {{} null}
0c00: 0a 64 6f 5f 74 65 73 74 20 6e 61 6e 2d 31 2e 32  .do_test nan-1.2
0c10: 2e 32 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 62  .2 {.  sqlite3_b
0c20: 69 6e 64 5f 64 6f 75 62 6c 65 20 24 3a 3a 53 54  ind_double $::ST
0c30: 4d 54 20 31 20 2b 49 6e 66 0a 20 20 73 71 6c 69  MT 1 +Inf.  sqli
0c40: 74 65 33 5f 73 74 65 70 20 24 3a 3a 53 54 4d 54  te3_step $::STMT
0c50: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74  .  sqlite3_reset
0c60: 20 24 3a 3a 53 54 4d 54 0a 20 20 64 62 20 65 76   $::STMT.  db ev
0c70: 61 6c 20 7b 53 45 4c 45 43 54 20 43 41 53 54 28  al {SELECT CAST(
0c80: 78 20 41 53 20 74 65 78 74 29 2c 20 74 79 70 65  x AS text), type
0c90: 6f 66 28 78 29 20 46 52 4f 4d 20 74 31 7d 0a 7d  of(x) FROM t1}.}
0ca0: 20 7b 7b 7d 20 6e 75 6c 6c 20 49 6e 66 20 72 65   {{} null Inf re
0cb0: 61 6c 7d 0a 64 6f 5f 74 65 73 74 20 6e 61 6e 2d  al}.do_test nan-
0cc0: 31 2e 32 2e 33 20 7b 0a 20 20 73 71 6c 69 74 65  1.2.3 {.  sqlite
0cd0: 33 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 20 24 3a  3_bind_double $:
0ce0: 3a 53 54 4d 54 20 31 20 2d 49 6e 66 0a 20 20 73  :STMT 1 -Inf.  s
0cf0: 71 6c 69 74 65 33 5f 73 74 65 70 20 24 3a 3a 53  qlite3_step $::S
0d00: 54 4d 54 0a 20 20 73 71 6c 69 74 65 33 5f 72 65  TMT.  sqlite3_re
0d10: 73 65 74 20 24 3a 3a 53 54 4d 54 0a 20 20 64 62  set $::STMT.  db
0d20: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 43 41   eval {SELECT CA
0d30: 53 54 28 78 20 41 53 20 74 65 78 74 29 2c 20 74  ST(x AS text), t
0d40: 79 70 65 6f 66 28 78 29 20 46 52 4f 4d 20 74 31  ypeof(x) FROM t1
0d50: 7d 0a 7d 20 7b 7b 7d 20 6e 75 6c 6c 20 49 6e 66  }.} {{} null Inf
0d60: 20 72 65 61 6c 20 2d 49 6e 66 20 72 65 61 6c 7d   real -Inf real}
0d70: 0a 64 6f 5f 74 65 73 74 20 6e 61 6e 2d 31 2e 32  .do_test nan-1.2
0d80: 2e 34 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 62  .4 {.  sqlite3_b
0d90: 69 6e 64 5f 64 6f 75 62 6c 65 20 24 3a 3a 53 54  ind_double $::ST
0da0: 4d 54 20 31 20 2d 4e 61 4e 0a 20 20 73 71 6c 69  MT 1 -NaN.  sqli
0db0: 74 65 33 5f 73 74 65 70 20 24 3a 3a 53 54 4d 54  te3_step $::STMT
0dc0: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74  .  sqlite3_reset
0dd0: 20 24 3a 3a 53 54 4d 54 0a 20 20 64 62 20 65 76   $::STMT.  db ev
0de0: 61 6c 20 7b 53 45 4c 45 43 54 20 43 41 53 54 28  al {SELECT CAST(
0df0: 78 20 41 53 20 74 65 78 74 29 2c 20 74 79 70 65  x AS text), type
0e00: 6f 66 28 78 29 20 46 52 4f 4d 20 74 31 7d 0a 7d  of(x) FROM t1}.}
0e10: 20 7b 7b 7d 20 6e 75 6c 6c 20 49 6e 66 20 72 65   {{} null Inf re
0e20: 61 6c 20 2d 49 6e 66 20 72 65 61 6c 20 7b 7d 20  al -Inf real {} 
0e30: 6e 75 6c 6c 7d 0a 64 6f 5f 74 65 73 74 20 6e 61  null}.do_test na
0e40: 6e 2d 31 2e 32 2e 35 20 7b 0a 20 20 73 71 6c 69  n-1.2.5 {.  sqli
0e50: 74 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 20  te3_bind_double 
0e60: 24 3a 3a 53 54 4d 54 20 31 20 4e 61 4e 30 0a 20  $::STMT 1 NaN0. 
0e70: 20 73 71 6c 69 74 65 33 5f 73 74 65 70 20 24 3a   sqlite3_step $:
0e80: 3a 53 54 4d 54 0a 20 20 73 71 6c 69 74 65 33 5f  :STMT.  sqlite3_
0e90: 72 65 73 65 74 20 24 3a 3a 53 54 4d 54 0a 20 20  reset $::STMT.  
0ea0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
0eb0: 43 41 53 54 28 78 20 41 53 20 74 65 78 74 29 2c  CAST(x AS text),
0ec0: 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d 20   typeof(x) FROM 
0ed0: 74 31 7d 0a 7d 20 7b 7b 7d 20 6e 75 6c 6c 20 49  t1}.} {{} null I
0ee0: 6e 66 20 72 65 61 6c 20 2d 49 6e 66 20 72 65 61  nf real -Inf rea
0ef0: 6c 20 7b 7d 20 6e 75 6c 6c 20 7b 7d 20 6e 75 6c  l {} null {} nul
0f00: 6c 7d 0a 64 6f 5f 74 65 73 74 20 6e 61 6e 2d 31  l}.do_test nan-1
0f10: 2e 32 2e 36 20 7b 0a 20 20 73 71 6c 69 74 65 33  .2.6 {.  sqlite3
0f20: 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 20 24 3a 3a  _bind_double $::
0f30: 53 54 4d 54 20 31 20 2d 4e 61 4e 30 0a 20 20 73  STMT 1 -NaN0.  s
0f40: 71 6c 69 74 65 33 5f 73 74 65 70 20 24 3a 3a 53  qlite3_step $::S
0f50: 54 4d 54 0a 20 20 73 71 6c 69 74 65 33 5f 72 65  TMT.  sqlite3_re
0f60: 73 65 74 20 24 3a 3a 53 54 4d 54 0a 20 20 64 62  set $::STMT.  db
0f70: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 43 41   eval {SELECT CA
0f80: 53 54 28 78 20 41 53 20 74 65 78 74 29 2c 20 74  ST(x AS text), t
0f90: 79 70 65 6f 66 28 78 29 20 46 52 4f 4d 20 74 31  ypeof(x) FROM t1
0fa0: 7d 0a 7d 20 7b 7b 7d 20 6e 75 6c 6c 20 49 6e 66  }.} {{} null Inf
0fb0: 20 72 65 61 6c 20 2d 49 6e 66 20 72 65 61 6c 20   real -Inf real 
0fc0: 7b 7d 20 6e 75 6c 6c 20 7b 7d 20 6e 75 6c 6c 20  {} null {} null 
0fd0: 7b 7d 20 6e 75 6c 6c 7d 0a 64 6f 5f 74 65 73 74  {} null}.do_test
0fe0: 20 6e 61 6e 2d 31 2e 32 2e 37 20 7b 0a 20 20 64   nan-1.2.7 {.  d
0ff0: 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 55 50 44  b eval {.    UPD
1000: 41 54 45 20 74 31 20 53 45 54 20 78 3d 78 2d 78  ATE t1 SET x=x-x
1010: 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 43 41 53  ;.    SELECT CAS
1020: 54 28 78 20 41 53 20 74 65 78 74 29 2c 20 74 79  T(x AS text), ty
1030: 70 65 6f 66 28 78 29 20 46 52 4f 4d 20 74 31 3b  peof(x) FROM t1;
1040: 0a 20 20 7d 0a 7d 20 7b 7b 7d 20 6e 75 6c 6c 20  .  }.} {{} null 
1050: 7b 7d 20 6e 75 6c 6c 20 7b 7d 20 6e 75 6c 6c 20  {} null {} null 
1060: 7b 7d 20 6e 75 6c 6c 20 7b 7d 20 6e 75 6c 6c 20  {} null {} null 
1070: 7b 7d 20 6e 75 6c 6c 7d 0a 0a 64 6f 5f 74 65 73  {} null}..do_tes
1080: 74 20 6e 61 6e 2d 32 2e 31 20 7b 0a 20 20 64 62  t nan-2.1 {.  db
1090: 20 65 76 61 6c 20 7b 0a 20 20 20 20 44 45 4c 45   eval {.    DELE
10a0: 54 45 20 46 52 4f 4d 20 54 31 3b 0a 20 20 7d 0a  TE FROM T1;.  }.
10b0: 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 64    sqlite3_bind_d
10c0: 6f 75 62 6c 65 20 24 3a 3a 53 54 4d 54 20 31 20  ouble $::STMT 1 
10d0: 4e 61 4e 0a 20 20 73 71 6c 69 74 65 33 5f 73 74  NaN.  sqlite3_st
10e0: 65 70 20 24 3a 3a 53 54 4d 54 0a 20 20 73 71 6c  ep $::STMT.  sql
10f0: 69 74 65 33 5f 72 65 73 65 74 20 24 3a 3a 53 54  ite3_reset $::ST
1100: 4d 54 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45  MT.  db eval {SE
1110: 4c 45 43 54 20 78 2c 20 74 79 70 65 6f 66 28 78  LECT x, typeof(x
1120: 29 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 7b 7d  ) FROM t1}.} {{}
1130: 20 6e 75 6c 6c 7d 0a 73 71 6c 69 74 65 33 5f 66   null}.sqlite3_f
1140: 69 6e 61 6c 69 7a 65 20 24 3a 3a 53 54 4d 54 0a  inalize $::STMT.
1150: 0a 23 20 53 51 4c 69 74 65 20 61 6c 77 61 79 73  .# SQLite always
1160: 20 63 6f 6e 76 65 72 74 73 20 4e 61 4e 20 69 6e   converts NaN in
1170: 74 6f 20 4e 55 4c 4c 20 73 6f 20 69 74 20 69 73  to NULL so it is
1180: 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 20 74 6f   not possible to
1190: 20 77 72 69 74 65 0a 23 20 61 20 4e 61 4e 20 76   write.# a NaN v
11a0: 61 6c 75 65 20 69 6e 74 6f 20 74 68 65 20 64 61  alue into the da
11b0: 74 61 62 61 73 65 20 66 69 6c 65 20 75 73 69 6e  tabase file usin
11c0: 67 20 53 51 4c 69 74 65 2e 20 20 54 68 65 20 66  g SQLite.  The f
11d0: 6f 6c 6c 6f 77 69 6e 67 20 73 65 72 69 65 73 0a  ollowing series.
11e0: 23 20 6f 66 20 74 65 73 74 73 20 77 72 69 74 65  # of tests write
11f0: 73 20 61 20 6e 6f 72 6d 61 6c 20 66 6c 6f 61 74  s a normal float
1200: 69 6e 67 20 70 6f 69 6e 74 20 76 61 6c 75 65 20  ing point value 
1210: 28 30 2e 35 29 20 69 6e 74 6f 20 74 68 65 20 64  (0.5) into the d
1220: 61 74 61 62 61 73 65 2c 0a 23 20 74 68 65 6e 20  atabase,.# then 
1230: 77 72 69 74 65 73 20 64 69 72 65 63 74 6c 79 20  writes directly 
1240: 69 6e 74 6f 20 74 68 65 20 64 61 74 61 62 61 73  into the databas
1250: 65 20 66 69 6c 65 20 74 6f 20 63 68 61 6e 67 65  e file to change
1260: 20 74 68 65 20 30 2e 35 20 69 6e 74 6f 20 4e 61   the 0.5 into Na
1270: 4e 2e 0a 23 20 54 68 65 6e 20 69 74 20 72 65 61  N..# Then it rea
1280: 64 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20  ds the value of 
1290: 74 68 65 20 64 61 74 61 62 61 73 65 20 74 6f 20  the database to 
12a0: 76 65 72 69 66 79 20 69 74 20 69 73 20 63 6f 6e  verify it is con
12b0: 76 65 72 74 65 64 20 69 6e 74 6f 0a 23 20 4e 55  verted into.# NU
12c0: 4c 4c 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 6e 61  LL..#.do_test na
12d0: 6e 2d 33 2e 31 20 7b 0a 20 20 64 62 20 65 76 61  n-3.1 {.  db eva
12e0: 6c 20 7b 0a 20 20 20 20 44 45 4c 45 54 45 20 46  l {.    DELETE F
12f0: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 49 4e 53 45  ROM t1;.    INSE
1300: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
1310: 53 28 30 2e 35 29 3b 0a 20 20 20 20 50 52 41 47  S(0.5);.    PRAG
1320: 4d 41 20 61 75 74 6f 5f 76 61 63 75 75 6d 3d 4f  MA auto_vacuum=O
1330: 46 46 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 70  FF;.    PRAGMA p
1340: 61 67 65 5f 73 69 7a 65 3d 31 30 32 34 3b 0a 20  age_size=1024;. 
1350: 20 20 20 56 41 43 55 55 4d 3b 0a 20 20 7d 0a 20     VACUUM;.  }. 
1360: 20 68 65 78 69 6f 5f 72 65 61 64 20 74 65 73 74   hexio_read test
1370: 2e 64 62 20 32 30 34 30 20 38 0a 7d 20 7b 33 46  .db 2040 8.} {3F
1380: 45 30 30 30 30 30 30 30 30 30 30 30 30 30 7d 0a  E0000000000000}.
1390: 64 6f 5f 74 65 73 74 20 6e 61 6e 2d 33 2e 32 20  do_test nan-3.2 
13a0: 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20  {.  db eval {.  
13b0: 20 20 53 45 4c 45 43 54 20 78 2c 20 74 79 70 65    SELECT x, type
13c0: 6f 66 28 78 29 20 46 52 4f 4d 20 74 31 0a 20 20  of(x) FROM t1.  
13d0: 7d 0a 7d 20 7b 30 2e 35 20 72 65 61 6c 7d 0a 64  }.} {0.5 real}.d
13e0: 6f 5f 74 65 73 74 20 6e 61 6e 2d 33 2e 33 20 7b  o_test nan-3.3 {
13f0: 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 68 65  .  db close.  he
1400: 78 69 6f 5f 77 72 69 74 65 20 74 65 73 74 2e 64  xio_write test.d
1410: 62 20 32 30 34 30 20 46 46 46 38 30 30 30 30 30  b 2040 FFF800000
1420: 30 30 30 30 30 30 30 0a 20 20 73 71 6c 69 74 65  0000000.  sqlite
1430: 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20 64  3 db test.db.  d
1440: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 78  b eval {SELECT x
1450: 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d  , typeof(x) FROM
1460: 20 74 31 7d 0a 7d 20 7b 7b 7d 20 6e 75 6c 6c 7d   t1}.} {{} null}
1470: 0a 64 6f 5f 74 65 73 74 20 6e 61 6e 2d 33 2e 34  .do_test nan-3.4
1480: 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20   {.  db close.  
1490: 68 65 78 69 6f 5f 77 72 69 74 65 20 74 65 73 74  hexio_write test
14a0: 2e 64 62 20 32 30 34 30 20 37 46 46 38 30 30 30  .db 2040 7FF8000
14b0: 30 30 30 30 30 30 30 30 30 0a 20 20 73 71 6c 69  000000000.  sqli
14c0: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20  te3 db test.db. 
14d0: 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54   db eval {SELECT
14e0: 20 78 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52   x, typeof(x) FR
14f0: 4f 4d 20 74 31 7d 0a 7d 20 7b 7b 7d 20 6e 75 6c  OM t1}.} {{} nul
1500: 6c 7d 0a 64 6f 5f 74 65 73 74 20 6e 61 6e 2d 33  l}.do_test nan-3
1510: 2e 35 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a  .5 {.  db close.
1520: 20 20 68 65 78 69 6f 5f 77 72 69 74 65 20 74 65    hexio_write te
1530: 73 74 2e 64 62 20 32 30 34 30 20 46 46 46 46 46  st.db 2040 FFFFF
1540: 46 46 46 46 46 46 46 46 46 46 46 0a 20 20 73 71  FFFFFFFFFFF.  sq
1550: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
1560: 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  .  db eval {SELE
1570: 43 54 20 78 2c 20 74 79 70 65 6f 66 28 78 29 20  CT x, typeof(x) 
1580: 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 7b 7d 20 6e  FROM t1}.} {{} n
1590: 75 6c 6c 7d 0a 64 6f 5f 74 65 73 74 20 6e 61 6e  ull}.do_test nan
15a0: 2d 33 2e 36 20 7b 0a 20 20 64 62 20 63 6c 6f 73  -3.6 {.  db clos
15b0: 65 0a 20 20 68 65 78 69 6f 5f 77 72 69 74 65 20  e.  hexio_write 
15c0: 74 65 73 74 2e 64 62 20 32 30 34 30 20 37 46 46  test.db 2040 7FF
15d0: 46 46 46 46 46 46 46 46 46 46 46 46 46 0a 20 20  FFFFFFFFFFFFF.  
15e0: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
15f0: 64 62 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45  db.  db eval {SE
1600: 4c 45 43 54 20 78 2c 20 74 79 70 65 6f 66 28 78  LECT x, typeof(x
1610: 29 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 7b 7d  ) FROM t1}.} {{}
1620: 20 6e 75 6c 6c 7d 0a 0a 23 20 56 65 72 69 66 79   null}..# Verify
1630: 20 74 68 61 74 20 74 68 65 20 73 71 6c 69 74 65   that the sqlite
1640: 33 41 74 6f 46 20 72 6f 75 74 69 6e 65 20 69 73  3AtoF routine is
1650: 20 61 62 6c 65 20 74 6f 20 68 61 6e 64 6c 65 20   able to handle 
1660: 65 78 74 72 65 6d 65 0a 23 20 6e 75 6d 62 65 72  extreme.# number
1670: 73 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 6e 61 6e  s..#.do_test nan
1680: 2d 34 2e 31 20 7b 0a 20 20 64 62 20 65 76 61 6c  -4.1 {.  db eval
1690: 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31   {DELETE FROM t1
16a0: 7d 0a 20 20 64 62 20 65 76 61 6c 20 22 49 4e 53  }.  db eval "INS
16b0: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
16c0: 45 53 28 5b 73 74 72 69 6e 67 20 72 65 70 65 61  ES([string repea
16d0: 74 20 39 20 33 30 37 5d 2e 30 29 22 0a 20 20 64  t 9 307].0)".  d
16e0: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 78  b eval {SELECT x
16f0: 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d  , typeof(x) FROM
1700: 20 74 31 7d 0a 7d 20 7b 31 65 2b 33 30 37 20 72   t1}.} {1e+307 r
1710: 65 61 6c 7d 0a 64 6f 5f 74 65 73 74 20 6e 61 6e  eal}.do_test nan
1720: 2d 34 2e 32 20 7b 0a 20 20 64 62 20 65 76 61 6c  -4.2 {.  db eval
1730: 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31   {DELETE FROM t1
1740: 7d 0a 20 20 64 62 20 65 76 61 6c 20 22 49 4e 53  }.  db eval "INS
1750: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
1760: 45 53 28 5b 73 74 72 69 6e 67 20 72 65 70 65 61  ES([string repea
1770: 74 20 39 20 33 30 38 5d 2e 30 29 22 0a 20 20 64  t 9 308].0)".  d
1780: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 78  b eval {SELECT x
1790: 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d  , typeof(x) FROM
17a0: 20 74 31 7d 0a 7d 20 7b 31 65 2b 33 30 38 20 72   t1}.} {1e+308 r
17b0: 65 61 6c 7d 0a 64 6f 5f 74 65 73 74 20 6e 61 6e  eal}.do_test nan
17c0: 2d 34 2e 33 20 7b 0a 20 20 64 62 20 65 76 61 6c  -4.3 {.  db eval
17d0: 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31   {DELETE FROM t1
17e0: 7d 0a 20 20 64 62 20 65 76 61 6c 20 22 49 4e 53  }.  db eval "INS
17f0: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
1800: 45 53 28 2d 5b 73 74 72 69 6e 67 20 72 65 70 65  ES(-[string repe
1810: 61 74 20 39 20 33 30 37 5d 2e 30 29 22 0a 20 20  at 9 307].0)".  
1820: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
1830: 78 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f  x, typeof(x) FRO
1840: 4d 20 74 31 7d 0a 7d 20 7b 2d 31 65 2b 33 30 37  M t1}.} {-1e+307
1850: 20 72 65 61 6c 7d 0a 64 6f 5f 74 65 73 74 20 6e   real}.do_test n
1860: 61 6e 2d 34 2e 34 20 7b 0a 20 20 64 62 20 65 76  an-4.4 {.  db ev
1870: 61 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20  al {DELETE FROM 
1880: 74 31 7d 0a 20 20 64 62 20 65 76 61 6c 20 22 49  t1}.  db eval "I
1890: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
18a0: 4c 55 45 53 28 2d 5b 73 74 72 69 6e 67 20 72 65  LUES(-[string re
18b0: 70 65 61 74 20 39 20 33 30 38 5d 2e 30 29 22 0a  peat 9 308].0)".
18c0: 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43    db eval {SELEC
18d0: 54 20 78 2c 20 74 79 70 65 6f 66 28 78 29 20 46  T x, typeof(x) F
18e0: 52 4f 4d 20 74 31 7d 0a 7d 20 7b 2d 31 65 2b 33  ROM t1}.} {-1e+3
18f0: 30 38 20 72 65 61 6c 7d 0a 64 6f 5f 74 65 73 74  08 real}.do_test
1900: 20 6e 61 6e 2d 34 2e 35 20 7b 0a 20 20 64 62 20   nan-4.5 {.  db 
1910: 65 76 61 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f  eval {DELETE FRO
1920: 4d 20 74 31 7d 0a 20 20 73 65 74 20 62 69 67 20  M t1}.  set big 
1930: 2d 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20  -[string repeat 
1940: 30 20 31 30 30 30 30 5d 5b 73 74 72 69 6e 67 20  0 10000][string 
1950: 72 65 70 65 61 74 20 39 20 33 30 38 5d 2e 5b 73  repeat 9 308].[s
1960: 74 72 69 6e 67 20 72 65 70 65 61 74 20 30 20 31  tring repeat 0 1
1970: 30 30 30 30 5d 0a 20 20 64 62 20 65 76 61 6c 20  0000].  db eval 
1980: 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20  "INSERT INTO t1 
1990: 56 41 4c 55 45 53 28 24 62 69 67 29 22 0a 20 20  VALUES($big)".  
19a0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
19b0: 78 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f  x, typeof(x) FRO
19c0: 4d 20 74 31 7d 0a 7d 20 7b 2d 31 65 2b 33 30 38  M t1}.} {-1e+308
19d0: 20 72 65 61 6c 7d 0a 64 6f 5f 74 65 73 74 20 6e   real}.do_test n
19e0: 61 6e 2d 34 2e 36 20 7b 0a 20 20 64 62 20 65 76  an-4.6 {.  db ev
19f0: 61 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20  al {DELETE FROM 
1a00: 74 31 7d 0a 20 20 73 65 74 20 62 69 67 20 5b 73  t1}.  set big [s
1a10: 74 72 69 6e 67 20 72 65 70 65 61 74 20 30 20 31  tring repeat 0 1
1a20: 30 30 30 30 5d 5b 73 74 72 69 6e 67 20 72 65 70  0000][string rep
1a30: 65 61 74 20 39 20 33 30 38 5d 2e 5b 73 74 72 69  eat 9 308].[stri
1a40: 6e 67 20 72 65 70 65 61 74 20 30 20 31 30 30 30  ng repeat 0 1000
1a50: 30 5d 0a 20 20 64 62 20 65 76 61 6c 20 22 49 4e  0].  db eval "IN
1a60: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
1a70: 55 45 53 28 24 62 69 67 29 22 0a 20 20 64 62 20  UES($big)".  db 
1a80: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 78 2c 20  eval {SELECT x, 
1a90: 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d 20 74  typeof(x) FROM t
1aa0: 31 7d 0a 7d 20 7b 31 65 2b 33 30 38 20 72 65 61  1}.} {1e+308 rea
1ab0: 6c 7d 0a 0a 69 66 20 7b 24 74 63 6c 5f 70 6c 61  l}..if {$tcl_pla
1ac0: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20  tform(platform) 
1ad0: 21 3d 20 22 73 79 6d 62 69 61 6e 22 7d 20 7b 0a  != "symbian"} {.
1ae0: 20 20 23 20 44 6f 20 6e 6f 74 20 72 75 6e 20 74    # Do not run t
1af0: 68 65 73 65 20 74 65 73 74 73 20 6f 6e 20 53 79  hese tests on Sy
1b00: 6d 62 69 61 6e 2c 20 61 73 20 74 68 65 20 54 63  mbian, as the Tc
1b10: 6c 20 70 6f 72 74 20 64 6f 65 73 6e 27 74 20 6c  l port doesn't l
1b20: 69 6b 65 20 74 6f 0a 20 20 23 20 63 6f 6e 76 65  ike to.  # conve
1b30: 72 74 20 66 72 6f 6d 20 66 6c 6f 61 74 69 6e 67  rt from floating
1b40: 20 70 6f 69 6e 74 20 76 61 6c 75 65 20 22 2d 69   point value "-i
1b50: 6e 66 22 20 74 6f 20 61 20 73 74 72 69 6e 67 2e  nf" to a string.
1b60: 0a 20 20 23 0a 20 20 64 6f 5f 74 65 73 74 20 6e  .  #.  do_test n
1b70: 61 6e 2d 34 2e 37 20 7b 0a 20 20 20 20 64 62 20  an-4.7 {.    db 
1b80: 65 76 61 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f  eval {DELETE FRO
1b90: 4d 20 74 31 7d 0a 20 20 20 20 64 62 20 65 76 61  M t1}.    db eva
1ba0: 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  l "INSERT INTO t
1bb0: 31 20 56 41 4c 55 45 53 28 5b 73 74 72 69 6e 67  1 VALUES([string
1bc0: 20 72 65 70 65 61 74 20 39 20 33 30 39 5d 2e 30   repeat 9 309].0
1bd0: 29 22 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b  )".    db eval {
1be0: 53 45 4c 45 43 54 20 78 2c 20 74 79 70 65 6f 66  SELECT x, typeof
1bf0: 28 78 29 20 46 52 4f 4d 20 74 31 7d 0a 20 20 7d  (x) FROM t1}.  }
1c00: 20 7b 69 6e 66 20 72 65 61 6c 7d 0a 20 20 64 6f   {inf real}.  do
1c10: 5f 74 65 73 74 20 6e 61 6e 2d 34 2e 38 20 7b 0a  _test nan-4.8 {.
1c20: 20 20 20 20 64 62 20 65 76 61 6c 20 7b 44 45 4c      db eval {DEL
1c30: 45 54 45 20 46 52 4f 4d 20 74 31 7d 0a 20 20 20  ETE FROM t1}.   
1c40: 20 64 62 20 65 76 61 6c 20 22 49 4e 53 45 52 54   db eval "INSERT
1c50: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
1c60: 2d 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20  -[string repeat 
1c70: 39 20 33 30 39 5d 2e 30 29 22 0a 20 20 20 20 64  9 309].0)".    d
1c80: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 78  b eval {SELECT x
1c90: 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d  , typeof(x) FROM
1ca0: 20 74 31 7d 0a 20 20 7d 20 7b 2d 69 6e 66 20 72   t1}.  } {-inf r
1cb0: 65 61 6c 7d 0a 7d 0a 64 6f 5f 74 65 73 74 20 6e  eal}.}.do_test n
1cc0: 61 6e 2d 34 2e 39 20 7b 0a 20 20 64 62 20 65 76  an-4.9 {.  db ev
1cd0: 61 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20  al {DELETE FROM 
1ce0: 74 31 7d 0a 20 20 64 62 20 65 76 61 6c 20 22 49  t1}.  db eval "I
1cf0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
1d00: 4c 55 45 53 28 5b 73 74 72 69 6e 67 20 72 65 70  LUES([string rep
1d10: 65 61 74 20 39 20 33 30 39 5d 2e 30 29 22 0a 20  eat 9 309].0)". 
1d20: 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54   db eval {SELECT
1d30: 20 43 41 53 54 28 78 20 41 53 20 74 65 78 74 29   CAST(x AS text)
1d40: 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d  , typeof(x) FROM
1d50: 20 74 31 7d 0a 7d 20 7b 49 6e 66 20 72 65 61 6c   t1}.} {Inf real
1d60: 7d 0a 64 6f 5f 74 65 73 74 20 6e 61 6e 2d 34 2e  }.do_test nan-4.
1d70: 31 30 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b  10 {.  db eval {
1d80: 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31 7d 0a  DELETE FROM t1}.
1d90: 20 20 64 62 20 65 76 61 6c 20 22 49 4e 53 45 52    db eval "INSER
1da0: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
1db0: 28 2d 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74  (-[string repeat
1dc0: 20 39 20 33 30 39 5d 2e 30 29 22 0a 20 20 64 62   9 309].0)".  db
1dd0: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 43 41   eval {SELECT CA
1de0: 53 54 28 78 20 41 53 20 74 65 78 74 29 2c 20 74  ST(x AS text), t
1df0: 79 70 65 6f 66 28 78 29 20 46 52 4f 4d 20 74 31  ypeof(x) FROM t1
1e00: 7d 0a 7d 20 7b 2d 49 6e 66 20 72 65 61 6c 7d 0a  }.} {-Inf real}.
1e10: 0a 64 6f 5f 74 65 73 74 20 6e 61 6e 2d 34 2e 31  .do_test nan-4.1
1e20: 31 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 44  1 {.  db eval {D
1e30: 45 4c 45 54 45 20 46 52 4f 4d 20 74 31 7d 0a 20  ELETE FROM t1}. 
1e40: 20 64 62 20 65 76 61 6c 20 22 49 4e 53 45 52 54   db eval "INSERT
1e50: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
1e60: 31 32 33 34 2e 35 5b 73 74 72 69 6e 67 20 72 65  1234.5[string re
1e70: 70 65 61 74 20 30 20 31 30 30 30 30 5d 31 32 33  peat 0 10000]123
1e80: 34 35 29 22 0a 20 20 64 62 20 65 76 61 6c 20 7b  45)".  db eval {
1e90: 53 45 4c 45 43 54 20 78 2c 20 74 79 70 65 6f 66  SELECT x, typeof
1ea0: 28 78 29 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b  (x) FROM t1}.} {
1eb0: 31 32 33 34 2e 35 20 72 65 61 6c 7d 0a 64 6f 5f  1234.5 real}.do_
1ec0: 74 65 73 74 20 6e 61 6e 2d 34 2e 31 32 20 7b 0a  test nan-4.12 {.
1ed0: 20 20 64 62 20 65 76 61 6c 20 7b 44 45 4c 45 54    db eval {DELET
1ee0: 45 20 46 52 4f 4d 20 74 31 7d 0a 20 20 64 62 20  E FROM t1}.  db 
1ef0: 65 76 61 6c 20 22 49 4e 53 45 52 54 20 49 4e 54  eval "INSERT INT
1f00: 4f 20 74 31 20 56 41 4c 55 45 53 28 2d 31 32 33  O t1 VALUES(-123
1f10: 34 2e 35 5b 73 74 72 69 6e 67 20 72 65 70 65 61  4.5[string repea
1f20: 74 20 30 20 31 30 30 30 30 5d 31 32 33 34 35 29  t 0 10000]12345)
1f30: 22 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c  ".  db eval {SEL
1f40: 45 43 54 20 78 2c 20 74 79 70 65 6f 66 28 78 29  ECT x, typeof(x)
1f50: 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 2d 31 32   FROM t1}.} {-12
1f60: 33 34 2e 35 20 72 65 61 6c 7d 0a 64 6f 5f 74 65  34.5 real}.do_te
1f70: 73 74 20 6e 61 6e 2d 34 2e 31 33 20 7b 0a 20 20  st nan-4.13 {.  
1f80: 64 62 20 65 76 61 6c 20 7b 44 45 4c 45 54 45 20  db eval {DELETE 
1f90: 46 52 4f 4d 20 74 31 7d 0a 20 20 73 65 74 20 73  FROM t1}.  set s
1fa0: 6d 61 6c 6c 20 5b 73 74 72 69 6e 67 20 72 65 70  mall [string rep
1fb0: 65 61 74 20 30 20 31 30 30 30 30 5d 2e 5b 73 74  eat 0 10000].[st
1fc0: 72 69 6e 67 20 72 65 70 65 61 74 20 30 20 33 32  ring repeat 0 32
1fd0: 34 5d 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74  4][string repeat
1fe0: 20 39 20 31 30 30 30 30 5d 0a 20 20 64 62 20 65   9 10000].  db e
1ff0: 76 61 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f  val "INSERT INTO
2000: 20 74 31 20 56 41 4c 55 45 53 28 24 73 6d 61 6c   t1 VALUES($smal
2010: 6c 29 22 0a 20 20 64 62 20 65 76 61 6c 20 7b 53  l)".  db eval {S
2020: 45 4c 45 43 54 20 78 2c 20 74 79 70 65 6f 66 28  ELECT x, typeof(
2030: 78 29 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 30  x) FROM t1}.} {0
2040: 2e 30 20 72 65 61 6c 7d 0a 64 6f 5f 74 65 73 74  .0 real}.do_test
2050: 20 6e 61 6e 2d 34 2e 31 34 20 7b 0a 20 20 64 62   nan-4.14 {.  db
2060: 20 65 76 61 6c 20 7b 44 45 4c 45 54 45 20 46 52   eval {DELETE FR
2070: 4f 4d 20 74 31 7d 0a 20 20 73 65 74 20 73 6d 61  OM t1}.  set sma
2080: 6c 6c 20 5c 0a 20 20 20 20 20 20 2d 5b 73 74 72  ll \.      -[str
2090: 69 6e 67 20 72 65 70 65 61 74 20 30 20 31 30 30  ing repeat 0 100
20a0: 30 30 5d 2e 5b 73 74 72 69 6e 67 20 72 65 70 65  00].[string repe
20b0: 61 74 20 30 20 33 32 34 5d 5b 73 74 72 69 6e 67  at 0 324][string
20c0: 20 72 65 70 65 61 74 20 39 20 31 30 30 30 30 5d   repeat 9 10000]
20d0: 0a 20 20 64 62 20 65 76 61 6c 20 22 49 4e 53 45  .  db eval "INSE
20e0: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
20f0: 53 28 24 73 6d 61 6c 6c 29 22 0a 20 20 64 62 20  S($small)".  db 
2100: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 78 2c 20  eval {SELECT x, 
2110: 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d 20 74  typeof(x) FROM t
2120: 31 7d 0a 7d 20 7b 30 2e 30 20 72 65 61 6c 7d 0a  1}.} {0.0 real}.
2130: 0a 23 20 54 68 65 73 65 20 74 65 73 74 73 20 74  .# These tests t
2140: 65 73 74 20 73 6f 6d 65 20 72 65 61 6c 6c 79 2c  est some really,
2150: 20 72 65 61 6c 6c 79 20 73 6d 61 6c 6c 20 66 6c   really small fl
2160: 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d  oating point num
2170: 62 65 72 73 2e 0a 23 0a 69 66 20 7b 24 74 63 6c  bers..#.if {$tcl
2180: 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f  _platform(platfo
2190: 72 6d 29 20 21 3d 20 22 73 79 6d 62 69 61 6e 22  rm) != "symbian"
21a0: 7d 20 7b 0a 20 20 23 20 54 68 65 73 65 20 74 77  } {.  # These tw
21b0: 6f 20 61 72 65 20 6e 6f 74 20 72 75 6e 20 6f 6e  o are not run on
21c0: 20 73 79 6d 62 69 61 6e 20 62 65 63 61 75 73 65   symbian because
21d0: 20 74 63 6c 20 68 61 73 20 74 72 6f 75 62 6c 65   tcl has trouble
21e0: 20 63 6f 6e 76 65 72 74 69 6e 67 0a 20 20 23 20   converting.  # 
21f0: 74 68 65 20 76 65 72 79 20 73 6d 61 6c 6c 20 6e  the very small n
2200: 75 6d 62 65 72 73 20 62 61 63 6b 20 74 6f 20 74  umbers back to t
2210: 65 78 74 20 66 6f 72 6d 20 28 70 72 6f 62 61 62  ext form (probab
2220: 6c 79 20 64 75 65 20 74 6f 20 61 20 64 69 66 66  ly due to a diff
2230: 65 72 65 6e 63 65 0a 20 20 23 20 69 6e 20 74 68  erence.  # in th
2240: 65 20 73 70 72 69 6e 74 66 28 29 20 69 6d 70 6c  e sprintf() impl
2250: 65 6d 65 6e 74 61 74 69 6f 6e 29 2e 0a 20 20 23  ementation)..  #
2260: 0a 20 20 64 6f 5f 74 65 73 74 20 6e 61 6e 2d 34  .  do_test nan-4
2270: 2e 31 35 20 7b 0a 20 20 20 20 64 62 20 65 76 61  .15 {.    db eva
2280: 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 74  l {DELETE FROM t
2290: 31 7d 0a 20 20 20 20 73 65 74 20 73 6d 61 6c 6c  1}.    set small
22a0: 20 5c 0a 20 20 20 20 20 20 20 20 5b 73 74 72 69   \.        [stri
22b0: 6e 67 20 72 65 70 65 61 74 20 30 20 31 30 30 30  ng repeat 0 1000
22c0: 30 5d 2e 5b 73 74 72 69 6e 67 20 72 65 70 65 61  0].[string repea
22d0: 74 20 30 20 33 32 33 5d 5b 73 74 72 69 6e 67 20  t 0 323][string 
22e0: 72 65 70 65 61 74 20 39 20 31 30 30 30 30 5d 0a  repeat 9 10000].
22f0: 20 20 20 20 64 62 20 65 76 61 6c 20 22 49 4e 53      db eval "INS
2300: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
2310: 45 53 28 24 73 6d 61 6c 6c 29 22 0a 20 20 20 20  ES($small)".    
2320: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
2330: 78 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f  x, typeof(x) FRO
2340: 4d 20 74 31 7d 0a 20 20 7d 20 7b 39 2e 38 38 31  M t1}.  } {9.881
2350: 33 31 32 39 31 36 38 32 34 39 33 65 2d 33 32 34  31291682493e-324
2360: 20 72 65 61 6c 7d 0a 20 20 64 6f 5f 74 65 73 74   real}.  do_test
2370: 20 6e 61 6e 2d 34 2e 31 36 20 7b 0a 20 20 20 20   nan-4.16 {.    
2380: 64 62 20 65 76 61 6c 20 7b 44 45 4c 45 54 45 20  db eval {DELETE 
2390: 46 52 4f 4d 20 74 31 7d 0a 20 20 20 20 73 65 74  FROM t1}.    set
23a0: 20 73 6d 61 6c 6c 20 5c 0a 20 20 20 20 20 20 20   small \.       
23b0: 20 2d 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74   -[string repeat
23c0: 20 30 20 31 30 30 30 30 5d 2e 5b 73 74 72 69 6e   0 10000].[strin
23d0: 67 20 72 65 70 65 61 74 20 30 20 33 32 33 5d 5b  g repeat 0 323][
23e0: 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 39 20  string repeat 9 
23f0: 31 30 30 30 30 5d 0a 20 20 20 20 64 62 20 65 76  10000].    db ev
2400: 61 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20  al "INSERT INTO 
2410: 74 31 20 56 41 4c 55 45 53 28 24 73 6d 61 6c 6c  t1 VALUES($small
2420: 29 22 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b  )".    db eval {
2430: 53 45 4c 45 43 54 20 78 2c 20 74 79 70 65 6f 66  SELECT x, typeof
2440: 28 78 29 20 46 52 4f 4d 20 74 31 7d 0a 20 20 7d  (x) FROM t1}.  }
2450: 20 7b 2d 39 2e 38 38 31 33 31 32 39 31 36 38 32   {-9.88131291682
2460: 34 39 33 65 2d 33 32 34 20 72 65 61 6c 7d 0a 7d  493e-324 real}.}
2470: 0a 64 6f 5f 74 65 73 74 20 6e 61 6e 2d 34 2e 31  .do_test nan-4.1
2480: 37 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 44  7 {.  db eval {D
2490: 45 4c 45 54 45 20 46 52 4f 4d 20 74 31 7d 0a 20  ELETE FROM t1}. 
24a0: 20 73 65 74 20 73 6d 61 6c 6c 20 5b 73 74 72 69   set small [stri
24b0: 6e 67 20 72 65 70 65 61 74 20 30 20 31 30 30 30  ng repeat 0 1000
24c0: 30 5d 2e 5b 73 74 72 69 6e 67 20 72 65 70 65 61  0].[string repea
24d0: 74 20 30 20 33 32 33 5d 5b 73 74 72 69 6e 67 20  t 0 323][string 
24e0: 72 65 70 65 61 74 20 39 20 31 30 30 30 30 5d 0a  repeat 9 10000].
24f0: 20 20 64 62 20 65 76 61 6c 20 22 49 4e 53 45 52    db eval "INSER
2500: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
2510: 28 24 73 6d 61 6c 6c 29 22 0a 20 20 64 62 20 65  ($small)".  db e
2520: 76 61 6c 20 7b 53 45 4c 45 43 54 20 43 41 53 54  val {SELECT CAST
2530: 28 78 20 41 53 20 74 65 78 74 29 2c 20 74 79 70  (x AS text), typ
2540: 65 6f 66 28 78 29 20 46 52 4f 4d 20 74 31 7d 0a  eof(x) FROM t1}.
2550: 7d 20 7b 39 2e 38 38 31 33 31 32 39 31 36 38 32  } {9.88131291682
2560: 34 39 33 65 2d 33 32 34 20 72 65 61 6c 7d 0a 64  493e-324 real}.d
2570: 6f 5f 74 65 73 74 20 6e 61 6e 2d 34 2e 31 38 20  o_test nan-4.18 
2580: 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 44 45 4c  {.  db eval {DEL
2590: 45 54 45 20 46 52 4f 4d 20 74 31 7d 0a 20 20 73  ETE FROM t1}.  s
25a0: 65 74 20 73 6d 61 6c 6c 20 5c 0a 20 20 20 20 20  et small \.     
25b0: 20 2d 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74   -[string repeat
25c0: 20 30 20 31 30 30 30 30 5d 2e 5b 73 74 72 69 6e   0 10000].[strin
25d0: 67 20 72 65 70 65 61 74 20 30 20 33 32 33 5d 5b  g repeat 0 323][
25e0: 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 39 20  string repeat 9 
25f0: 31 30 30 30 30 5d 0a 20 20 64 62 20 65 76 61 6c  10000].  db eval
2600: 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31   "INSERT INTO t1
2610: 20 56 41 4c 55 45 53 28 24 73 6d 61 6c 6c 29 22   VALUES($small)"
2620: 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  .  db eval {SELE
2630: 43 54 20 43 41 53 54 28 78 20 41 53 20 74 65 78  CT CAST(x AS tex
2640: 74 29 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52  t), typeof(x) FR
2650: 4f 4d 20 74 31 7d 0a 7d 20 7b 2d 39 2e 38 38 31  OM t1}.} {-9.881
2660: 33 31 32 39 31 36 38 32 34 39 33 65 2d 33 32 34  31291682493e-324
2670: 20 72 65 61 6c 7d 0a 0a 64 6f 5f 74 65 73 74 20   real}..do_test 
2680: 6e 61 6e 2d 34 2e 32 30 20 7b 0a 20 20 64 62 20  nan-4.20 {.  db 
2690: 65 76 61 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f  eval {DELETE FRO
26a0: 4d 20 74 31 7d 0a 20 20 73 65 74 20 62 69 67 20  M t1}.  set big 
26b0: 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 39  [string repeat 9
26c0: 20 31 30 30 30 30 5d 2e 30 65 2d 39 30 30 30 0a   10000].0e-9000.
26d0: 20 20 64 62 20 65 76 61 6c 20 22 49 4e 53 45 52    db eval "INSER
26e0: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
26f0: 28 24 62 69 67 29 22 0a 20 20 64 62 20 65 76 61  ($big)".  db eva
2700: 6c 20 7b 53 45 4c 45 43 54 20 78 2c 20 74 79 70  l {SELECT x, typ
2710: 65 6f 66 28 78 29 20 46 52 4f 4d 20 74 31 7d 0a  eof(x) FROM t1}.
2720: 7d 20 7b 69 6e 66 20 72 65 61 6c 7d 0a 0a 0a 0a  } {inf real}....
2730: 66 69 6e 69 73 68 5f 74 65 73 74 0a              finish_test.