/ Hex Artifact Content
Login

Artifact b98fc868d71eb5619d42a1702e9ab91718cbed54:


0000: 23 20 32 30 31 33 2d 30 35 2d 32 38 0a 23 0a 23  # 2013-05-28.#.#
0010: 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73 63   The author disc
0020: 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74 20  laims copyright 
0030: 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20 63  to this source c
0040: 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f  ode.  In place o
0050: 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69  f.# a legal noti
0060: 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c  ce, here is a bl
0070: 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20 4d  essing:.#.#    M
0080: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61  ay you do good a
0090: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20 20  nd not evil..#  
00a0: 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66    May you find f
00b0: 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79  orgiveness for y
00c0: 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67  ourself and forg
00d0: 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20 20  ive others..#   
00e0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66   May you share f
00f0: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b  reely, never tak
0100: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f  ing more than yo
0110: 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a 2a  u 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 0a 23 20 54 68 69 73 20 66 69 6c 65 20 69  **.# This file i
0170: 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67 72 65 73  mplements regres
0180: 73 69 6f 6e 20 74 65 73 74 73 20 66 6f 72 20 53  sion tests for S
0190: 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 20 20  QLite library.  
01a0: 54 68 65 0a 23 20 66 6f 63 75 73 20 6f 66 20 74  The.# focus of t
01b0: 68 69 73 20 66 69 6c 65 20 69 73 20 70 65 72 63  his file is perc
01c0: 65 6e 74 69 6c 65 2e 63 20 65 78 74 65 6e 73 69  entile.c extensi
01d0: 6f 6e 0a 23 0a 0a 73 65 74 20 74 65 73 74 64 69  on.#..set testdi
01e0: 72 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20  r [file dirname 
01f0: 24 61 72 67 76 30 5d 0a 73 6f 75 72 63 65 20 24  $argv0].source $
0200: 74 65 73 74 64 69 72 2f 74 65 73 74 65 72 2e 74  testdir/tester.t
0210: 63 6c 0a 0a 23 20 42 61 73 69 63 20 74 65 73 74  cl..# Basic test
0220: 20 6f 66 20 74 68 65 20 70 65 72 63 65 6e 74 69   of the percenti
0230: 6c 65 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 23  le() function..#
0240: 0a 64 6f 5f 74 65 73 74 20 70 65 72 63 65 6e 74  .do_test percent
0250: 69 6c 65 2d 31 2e 30 20 7b 0a 20 20 6c 6f 61 64  ile-1.0 {.  load
0260: 5f 73 74 61 74 69 63 5f 65 78 74 65 6e 73 69 6f  _static_extensio
0270: 6e 20 64 62 20 70 65 72 63 65 6e 74 69 6c 65 0a  n db percentile.
0280: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
0290: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28  CREATE TABLE t1(
02a0: 78 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  x);.    INSERT I
02b0: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31 29  NTO t1 VALUES(1)
02c0: 2c 28 34 29 2c 28 36 29 2c 28 37 29 2c 28 38 29  ,(4),(6),(7),(8)
02d0: 2c 28 39 29 2c 28 31 31 29 2c 28 31 31 29 2c 28  ,(9),(11),(11),(
02e0: 31 31 29 3b 0a 20 20 7d 0a 20 20 65 78 65 63 73  11);.  }.  execs
02f0: 71 6c 20 7b 53 45 4c 45 43 54 20 70 65 72 63 65  ql {SELECT perce
0300: 6e 74 69 6c 65 28 78 2c 30 29 20 46 52 4f 4d 20  ntile(x,0) FROM 
0310: 74 31 7d 0a 7d 20 7b 31 2e 30 7d 0a 66 6f 72 65  t1}.} {1.0}.fore
0320: 61 63 68 20 7b 69 6e 20 6f 75 74 7d 20 7b 0a 20  ach {in out} {. 
0330: 20 31 30 30 20 20 20 20 31 31 2e 30 0a 20 20 20   100    11.0.   
0340: 35 30 20 20 20 20 20 38 2e 30 0a 20 20 20 31 32  50     8.0.   12
0350: 2e 35 20 20 20 34 2e 30 0a 20 20 20 31 35 20 20  .5   4.0.   15  
0360: 20 20 20 34 2e 34 0a 20 20 20 32 30 20 20 20 20     4.4.   20    
0370: 20 35 2e 32 0a 20 20 20 38 30 20 20 20 20 31 31   5.2.   80    11
0380: 2e 30 0a 20 20 20 38 39 20 20 20 20 31 31 2e 30  .0.   89    11.0
0390: 0a 7d 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 70  .} {.  do_test p
03a0: 65 72 63 65 6e 74 69 6c 65 2d 31 2e 31 2e 24 69  ercentile-1.1.$i
03b0: 6e 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  n {.    execsql 
03c0: 7b 53 45 4c 45 43 54 20 70 65 72 63 65 6e 74 69  {SELECT percenti
03d0: 6c 65 28 78 2c 24 69 6e 29 20 46 52 4f 4d 20 74  le(x,$in) FROM t
03e0: 31 7d 0a 20 20 7d 20 24 6f 75 74 0a 7d 0a 0a 23  1}.  } $out.}..#
03f0: 20 41 64 64 20 73 6f 6d 65 20 4e 55 4c 4c 20 76   Add some NULL v
0400: 61 6c 75 65 73 2e 0a 23 0a 64 6f 5f 74 65 73 74  alues..#.do_test
0410: 20 70 65 72 63 65 6e 74 69 6c 65 2d 31 2e 32 20   percentile-1.2 
0420: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 49 4e 53  {.  execsql {INS
0430: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
0440: 45 53 28 4e 55 4c 4c 29 2c 28 4e 55 4c 4c 29 3b  ES(NULL),(NULL);
0450: 7d 0a 7d 20 7b 7d 0a 66 6f 72 65 61 63 68 20 7b  }.} {}.foreach {
0460: 69 6e 20 6f 75 74 7d 20 7b 0a 20 20 31 30 30 20  in out} {.  100 
0470: 20 20 20 31 31 2e 30 0a 20 20 20 35 30 20 20 20     11.0.   50   
0480: 20 20 38 2e 30 0a 20 20 20 31 32 2e 35 20 20 20    8.0.   12.5   
0490: 34 2e 30 0a 20 20 20 31 35 20 20 20 20 20 34 2e  4.0.   15     4.
04a0: 34 0a 20 20 20 32 30 20 20 20 20 20 35 2e 32 0a  4.   20     5.2.
04b0: 20 20 20 38 30 20 20 20 20 31 31 2e 30 0a 20 20     80    11.0.  
04c0: 20 38 39 20 20 20 20 31 31 2e 30 0a 7d 20 7b 0a   89    11.0.} {.
04d0: 20 20 64 6f 5f 74 65 73 74 20 70 65 72 63 65 6e    do_test percen
04e0: 74 69 6c 65 2d 31 2e 33 2e 24 69 6e 20 7b 0a 20  tile-1.3.$in {. 
04f0: 20 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45     execsql {SELE
0500: 43 54 20 70 65 72 63 65 6e 74 69 6c 65 28 78 2c  CT percentile(x,
0510: 24 69 6e 29 20 46 52 4f 4d 20 74 31 7d 0a 20 20  $in) FROM t1}.  
0520: 7d 20 24 6f 75 74 0a 7d 0a 0a 23 20 54 68 65 20  } $out.}..# The 
0530: 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20  second argument 
0540: 74 6f 20 70 65 72 63 65 6e 74 69 6c 65 20 63 61  to percentile ca
0550: 6e 20 63 68 61 6e 67 65 20 73 6f 6d 65 2c 20 62  n change some, b
0560: 75 74 20 6e 6f 74 20 6d 75 63 68 2e 0a 23 0a 64  ut not much..#.d
0570: 6f 5f 74 65 73 74 20 70 65 72 63 65 6e 74 69 6c  o_test percentil
0580: 65 2d 31 2e 34 20 7b 0a 20 20 63 61 74 63 68 73  e-1.4 {.  catchs
0590: 71 6c 20 7b 53 45 4c 45 43 54 20 72 6f 75 6e 64  ql {SELECT round
05a0: 28 70 65 72 63 65 6e 74 69 6c 65 28 78 2c 20 31  (percentile(x, 1
05b0: 35 2b 30 2e 30 30 30 30 30 31 2a 72 6f 77 69 64  5+0.000001*rowid
05c0: 29 2c 31 29 20 46 52 4f 4d 20 74 31 7d 0a 7d 20  ),1) FROM t1}.} 
05d0: 7b 30 20 34 2e 34 7d 0a 64 6f 5f 74 65 73 74 20  {0 4.4}.do_test 
05e0: 70 65 72 63 65 6e 74 69 6c 65 2d 31 2e 35 20 7b  percentile-1.5 {
05f0: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 53 45 4c  .  catchsql {SEL
0600: 45 43 54 20 72 6f 75 6e 64 28 70 65 72 63 65 6e  ECT round(percen
0610: 74 69 6c 65 28 78 2c 20 31 35 2b 30 2e 31 2a 72  tile(x, 15+0.1*r
0620: 6f 77 69 64 29 2c 31 29 20 46 52 4f 4d 20 74 31  owid),1) FROM t1
0630: 7d 0a 7d 20 7b 31 20 7b 32 6e 64 20 61 72 67 75  }.} {1 {2nd argu
0640: 6d 65 6e 74 20 74 6f 20 70 65 72 63 65 6e 74 69  ment to percenti
0650: 6c 65 28 29 20 69 73 20 6e 6f 74 20 74 68 65 20  le() is not the 
0660: 73 61 6d 65 20 66 6f 72 20 61 6c 6c 20 69 6e 70  same for all inp
0670: 75 74 20 72 6f 77 73 7d 7d 0a 0a 23 20 49 6e 70  ut rows}}..# Inp
0680: 75 74 20 76 61 6c 75 65 73 20 69 6e 20 61 20 72  ut values in a r
0690: 61 6e 64 6f 6d 20 6f 72 64 65 72 0a 23 0a 64 6f  andom order.#.do
06a0: 5f 74 65 73 74 20 70 65 72 63 65 6e 74 69 6c 65  _test percentile
06b0: 2d 31 2e 36 20 7b 0a 20 20 65 78 65 63 73 71 6c  -1.6 {.  execsql
06c0: 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41   {.    CREATE TA
06d0: 42 4c 45 20 74 32 28 78 29 3b 0a 20 20 20 20 49  BLE t2(x);.    I
06e0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 20 53 45  NSERT INTO t2 SE
06f0: 4c 45 43 54 20 78 2b 30 2e 30 20 46 52 4f 4d 20  LECT x+0.0 FROM 
0700: 74 31 20 4f 52 44 45 52 20 42 59 20 72 61 6e 64  t1 ORDER BY rand
0710: 6f 6d 28 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 66  om();.  }.} {}.f
0720: 6f 72 65 61 63 68 20 7b 69 6e 20 6f 75 74 7d 20  oreach {in out} 
0730: 7b 0a 20 20 31 30 30 20 20 20 20 31 31 2e 30 0a  {.  100    11.0.
0740: 20 20 20 35 30 20 20 20 20 20 38 2e 30 0a 20 20     50     8.0.  
0750: 20 31 32 2e 35 20 20 20 34 2e 30 0a 20 20 20 31   12.5   4.0.   1
0760: 35 20 20 20 20 20 34 2e 34 0a 20 20 20 32 30 20  5     4.4.   20 
0770: 20 20 20 20 35 2e 32 0a 20 20 20 38 30 20 20 20      5.2.   80   
0780: 20 31 31 2e 30 0a 20 20 20 38 39 20 20 20 20 31   11.0.   89    1
0790: 31 2e 30 0a 7d 20 7b 0a 20 20 64 6f 5f 74 65 73  1.0.} {.  do_tes
07a0: 74 20 70 65 72 63 65 6e 74 69 6c 65 2d 31 2e 37  t percentile-1.7
07b0: 2e 24 69 6e 20 7b 0a 20 20 20 20 65 78 65 63 73  .$in {.    execs
07c0: 71 6c 20 7b 53 45 4c 45 43 54 20 70 65 72 63 65  ql {SELECT perce
07d0: 6e 74 69 6c 65 28 78 2c 24 69 6e 29 20 46 52 4f  ntile(x,$in) FRO
07e0: 4d 20 74 32 7d 0a 20 20 7d 20 24 6f 75 74 0a 7d  M t2}.  } $out.}
07f0: 0a 0a 23 20 57 72 6f 6e 67 20 6e 75 6d 62 65 72  ..# Wrong number
0800: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 0a 23 0a   of arguments.#.
0810: 64 6f 5f 74 65 73 74 20 70 65 72 63 65 6e 74 69  do_test percenti
0820: 6c 65 2d 31 2e 38 20 7b 0a 20 20 63 61 74 63 68  le-1.8 {.  catch
0830: 73 71 6c 20 7b 53 45 4c 45 43 54 20 70 65 72 63  sql {SELECT perc
0840: 65 6e 74 69 6c 65 28 78 2c 30 2c 31 29 20 46 52  entile(x,0,1) FR
0850: 4f 4d 20 74 31 7d 0a 7d 20 7b 31 20 7b 77 72 6f  OM t1}.} {1 {wro
0860: 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67  ng number of arg
0870: 75 6d 65 6e 74 73 20 74 6f 20 66 75 6e 63 74 69  uments to functi
0880: 6f 6e 20 70 65 72 63 65 6e 74 69 6c 65 28 29 7d  on percentile()}
0890: 7d 0a 64 6f 5f 74 65 73 74 20 70 65 72 63 65 6e  }.do_test percen
08a0: 74 69 6c 65 2d 31 2e 39 20 7b 0a 20 20 63 61 74  tile-1.9 {.  cat
08b0: 63 68 73 71 6c 20 7b 53 45 4c 45 43 54 20 70 65  chsql {SELECT pe
08c0: 72 63 65 6e 74 69 6c 65 28 78 29 20 46 52 4f 4d  rcentile(x) FROM
08d0: 20 74 31 7d 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67   t1}.} {1 {wrong
08e0: 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d   number of argum
08f0: 65 6e 74 73 20 74 6f 20 66 75 6e 63 74 69 6f 6e  ents to function
0900: 20 70 65 72 63 65 6e 74 69 6c 65 28 29 7d 7d 0a   percentile()}}.
0910: 0a 23 20 53 65 63 6f 6e 64 20 61 72 67 75 6d 65  .# Second argume
0920: 6e 74 20 6d 75 73 74 20 62 65 20 6e 75 6d 65 72  nt must be numer
0930: 69 63 0a 23 0a 64 6f 5f 74 65 73 74 20 70 65 72  ic.#.do_test per
0940: 63 65 6e 74 69 6c 65 2d 31 2e 31 30 20 7b 0a 20  centile-1.10 {. 
0950: 20 63 61 74 63 68 73 71 6c 20 7b 53 45 4c 45 43   catchsql {SELEC
0960: 54 20 70 65 72 63 65 6e 74 69 6c 65 28 78 2c 6e  T percentile(x,n
0970: 75 6c 6c 29 20 46 52 4f 4d 20 74 31 7d 0a 7d 20  ull) FROM t1}.} 
0980: 7b 31 20 7b 32 6e 64 20 61 72 67 75 6d 65 6e 74  {1 {2nd argument
0990: 20 74 6f 20 70 65 72 63 65 6e 74 69 6c 65 28 29   to percentile()
09a0: 20 69 73 20 6e 6f 74 20 61 20 6e 75 6d 62 65 72   is not a number
09b0: 20 62 65 74 77 65 65 6e 20 30 2e 30 20 61 6e 64   between 0.0 and
09c0: 20 31 30 30 2e 30 7d 7d 0a 64 6f 5f 74 65 73 74   100.0}}.do_test
09d0: 20 70 65 72 63 65 6e 74 69 6c 65 2d 31 2e 31 31   percentile-1.11
09e0: 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 53   {.  catchsql {S
09f0: 45 4c 45 43 54 20 70 65 72 63 65 6e 74 69 6c 65  ELECT percentile
0a00: 28 78 2c 27 66 69 66 74 79 27 29 20 46 52 4f 4d  (x,'fifty') FROM
0a10: 20 74 31 7d 0a 7d 20 7b 31 20 7b 32 6e 64 20 61   t1}.} {1 {2nd a
0a20: 72 67 75 6d 65 6e 74 20 74 6f 20 70 65 72 63 65  rgument to perce
0a30: 6e 74 69 6c 65 28 29 20 69 73 20 6e 6f 74 20 61  ntile() is not a
0a40: 20 6e 75 6d 62 65 72 20 62 65 74 77 65 65 6e 20   number between 
0a50: 30 2e 30 20 61 6e 64 20 31 30 30 2e 30 7d 7d 0a  0.0 and 100.0}}.
0a60: 64 6f 5f 74 65 73 74 20 70 65 72 63 65 6e 74 69  do_test percenti
0a70: 6c 65 2d 31 2e 31 32 20 7b 0a 20 20 63 61 74 63  le-1.12 {.  catc
0a80: 68 73 71 6c 20 7b 53 45 4c 45 43 54 20 70 65 72  hsql {SELECT per
0a90: 63 65 6e 74 69 6c 65 28 78 2c 78 27 33 35 33 30  centile(x,x'3530
0aa0: 27 29 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 31  ') FROM t1}.} {1
0ab0: 20 7b 32 6e 64 20 61 72 67 75 6d 65 6e 74 20 74   {2nd argument t
0ac0: 6f 20 70 65 72 63 65 6e 74 69 6c 65 28 29 20 69  o percentile() i
0ad0: 73 20 6e 6f 74 20 61 20 6e 75 6d 62 65 72 20 62  s not a number b
0ae0: 65 74 77 65 65 6e 20 30 2e 30 20 61 6e 64 20 31  etween 0.0 and 1
0af0: 30 30 2e 30 7d 7d 0a 0a 23 20 53 65 63 6f 6e 64  00.0}}..# Second
0b00: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 6f 75 74   argument is out
0b10: 20 6f 66 20 72 61 6e 67 65 0a 23 0a 64 6f 5f 74   of range.#.do_t
0b20: 65 73 74 20 70 65 72 63 65 6e 74 69 6c 65 2d 31  est percentile-1
0b30: 2e 31 33 20 7b 0a 20 20 63 61 74 63 68 73 71 6c  .13 {.  catchsql
0b40: 20 7b 53 45 4c 45 43 54 20 70 65 72 63 65 6e 74   {SELECT percent
0b50: 69 6c 65 28 78 2c 2d 30 2e 30 30 30 30 30 30 31  ile(x,-0.0000001
0b60: 29 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 31 20  ) FROM t1}.} {1 
0b70: 7b 32 6e 64 20 61 72 67 75 6d 65 6e 74 20 74 6f  {2nd argument to
0b80: 20 70 65 72 63 65 6e 74 69 6c 65 28 29 20 69 73   percentile() is
0b90: 20 6e 6f 74 20 61 20 6e 75 6d 62 65 72 20 62 65   not a number be
0ba0: 74 77 65 65 6e 20 30 2e 30 20 61 6e 64 20 31 30  tween 0.0 and 10
0bb0: 30 2e 30 7d 7d 0a 64 6f 5f 74 65 73 74 20 70 65  0.0}}.do_test pe
0bc0: 72 63 65 6e 74 69 6c 65 2d 31 2e 31 34 20 7b 0a  rcentile-1.14 {.
0bd0: 20 20 63 61 74 63 68 73 71 6c 20 7b 53 45 4c 45    catchsql {SELE
0be0: 43 54 20 70 65 72 63 65 6e 74 69 6c 65 28 78 2c  CT percentile(x,
0bf0: 31 30 30 2e 30 30 30 30 30 30 31 29 20 46 52 4f  100.0000001) FRO
0c00: 4d 20 74 31 7d 0a 7d 20 7b 31 20 7b 32 6e 64 20  M t1}.} {1 {2nd 
0c10: 61 72 67 75 6d 65 6e 74 20 74 6f 20 70 65 72 63  argument to perc
0c20: 65 6e 74 69 6c 65 28 29 20 69 73 20 6e 6f 74 20  entile() is not 
0c30: 61 20 6e 75 6d 62 65 72 20 62 65 74 77 65 65 6e  a number between
0c40: 20 30 2e 30 20 61 6e 64 20 31 30 30 2e 30 7d 7d   0.0 and 100.0}}
0c50: 0a 0a 23 20 46 69 72 73 74 20 61 72 67 75 6d 65  ..# First argume
0c60: 6e 74 20 69 73 20 6e 6f 74 20 4e 55 4c 4c 20 61  nt is not NULL a
0c70: 6e 64 20 69 73 20 6e 6f 74 20 4e 55 4d 45 52 49  nd is not NUMERI
0c80: 43 0a 23 0a 64 6f 5f 74 65 73 74 20 70 65 72 63  C.#.do_test perc
0c90: 65 6e 74 69 6c 65 2d 31 2e 31 35 20 7b 0a 20 20  entile-1.15 {.  
0ca0: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 42  catchsql {.    B
0cb0: 45 47 49 4e 3b 0a 20 20 20 20 55 50 44 41 54 45  EGIN;.    UPDATE
0cc0: 20 74 31 20 53 45 54 20 78 3d 27 35 30 27 20 57   t1 SET x='50' W
0cd0: 48 45 52 45 20 78 20 49 53 20 4e 55 4c 4c 3b 0a  HERE x IS NULL;.
0ce0: 20 20 20 20 53 45 4c 45 43 54 20 70 65 72 63 65      SELECT perce
0cf0: 6e 74 69 6c 65 28 78 2c 20 35 30 29 20 46 52 4f  ntile(x, 50) FRO
0d00: 4d 20 74 31 3b 0a 20 20 7d 0a 7d 20 7b 31 20 7b  M t1;.  }.} {1 {
0d10: 31 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f 20  1st argument to 
0d20: 70 65 72 63 65 6e 74 69 6c 65 28 29 20 69 73 20  percentile() is 
0d30: 6e 6f 74 20 6e 75 6d 65 72 69 63 7d 7d 0a 64 6f  not numeric}}.do
0d40: 5f 74 65 73 74 20 70 65 72 63 65 6e 74 69 6c 65  _test percentile
0d50: 2d 31 2e 31 36 20 7b 0a 20 20 63 61 74 63 68 73  -1.16 {.  catchs
0d60: 71 6c 20 7b 0a 20 20 20 20 52 4f 4c 4c 42 41 43  ql {.    ROLLBAC
0d70: 4b 3b 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20 20  K;.    BEGIN;.  
0d80: 20 20 55 50 44 41 54 45 20 74 31 20 53 45 54 20    UPDATE t1 SET 
0d90: 78 3d 78 27 33 35 33 30 27 20 57 48 45 52 45 20  x=x'3530' WHERE 
0da0: 78 20 49 53 20 4e 55 4c 4c 3b 0a 20 20 20 20 53  x IS NULL;.    S
0db0: 45 4c 45 43 54 20 70 65 72 63 65 6e 74 69 6c 65  ELECT percentile
0dc0: 28 78 2c 20 35 30 29 20 46 52 4f 4d 20 74 31 3b  (x, 50) FROM t1;
0dd0: 0a 20 20 7d 0a 7d 20 7b 31 20 7b 31 73 74 20 61  .  }.} {1 {1st a
0de0: 72 67 75 6d 65 6e 74 20 74 6f 20 70 65 72 63 65  rgument to perce
0df0: 6e 74 69 6c 65 28 29 20 69 73 20 6e 6f 74 20 6e  ntile() is not n
0e00: 75 6d 65 72 69 63 7d 7d 0a 64 6f 5f 74 65 73 74  umeric}}.do_test
0e10: 20 70 65 72 63 65 6e 74 69 6c 65 2d 31 2e 31 37   percentile-1.17
0e20: 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 0a   {.  catchsql {.
0e30: 20 20 20 20 52 4f 4c 4c 42 41 43 4b 3b 0a 20 20      ROLLBACK;.  
0e40: 20 20 53 45 4c 45 43 54 20 70 65 72 63 65 6e 74    SELECT percent
0e50: 69 6c 65 28 78 2c 20 35 30 29 20 46 52 4f 4d 20  ile(x, 50) FROM 
0e60: 74 31 3b 0a 20 20 7d 0a 7d 20 7b 30 20 38 2e 30  t1;.  }.} {0 8.0
0e70: 7d 0a 0a 23 20 4e 6f 20 6e 6f 6e 2d 4e 55 4c 4c  }..# No non-NULL
0e80: 20 65 6e 74 72 69 65 73 2e 0a 23 0a 64 6f 5f 74   entries..#.do_t
0e90: 65 73 74 20 70 65 72 63 65 6e 74 69 6c 65 2d 31  est percentile-1
0ea0: 2e 31 38 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  .18 {.  execsql 
0eb0: 7b 0a 20 20 20 20 55 50 44 41 54 45 20 74 31 20  {.    UPDATE t1 
0ec0: 53 45 54 20 78 3d 4e 55 4c 4c 3b 0a 20 20 20 20  SET x=NULL;.    
0ed0: 53 45 4c 45 43 54 20 69 66 6e 75 6c 6c 28 70 65  SELECT ifnull(pe
0ee0: 72 63 65 6e 74 69 6c 65 28 78 2c 20 35 30 29 2c  rcentile(x, 50),
0ef0: 27 4e 55 4c 4c 27 29 20 46 52 4f 4d 20 74 31 0a  'NULL') FROM t1.
0f00: 20 20 7d 20 0a 7d 20 7b 4e 55 4c 4c 7d 0a 0a 23    } .} {NULL}..#
0f10: 20 45 78 61 63 74 6c 79 20 6f 6e 65 20 6e 6f 6e   Exactly one non
0f20: 2d 4e 55 4c 4c 20 65 6e 74 72 79 0a 23 0a 64 6f  -NULL entry.#.do
0f30: 5f 74 65 73 74 20 70 65 72 63 65 6e 74 69 6c 65  _test percentile
0f40: 2d 31 2e 31 39 20 7b 0a 20 20 65 78 65 63 73 71  -1.19 {.  execsq
0f50: 6c 20 7b 0a 20 20 20 20 55 50 44 41 54 45 20 74  l {.    UPDATE t
0f60: 31 20 53 45 54 20 78 3d 31 32 33 34 35 20 57 48  1 SET x=12345 WH
0f70: 45 52 45 20 72 6f 77 69 64 3d 35 3b 0a 20 20 20  ERE rowid=5;.   
0f80: 20 53 45 4c 45 43 54 20 70 65 72 63 65 6e 74 69   SELECT percenti
0f90: 6c 65 28 78 2c 20 30 29 2c 20 70 65 72 63 65 6e  le(x, 0), percen
0fa0: 74 69 6c 65 28 78 2c 20 35 30 29 2c 20 70 65 72  tile(x, 50), per
0fb0: 63 65 6e 74 69 6c 65 28 78 2c 31 30 30 29 20 46  centile(x,100) F
0fc0: 52 4f 4d 20 74 31 0a 20 20 7d 20 0a 7d 20 7b 31  ROM t1.  } .} {1
0fd0: 32 33 34 35 2e 30 20 31 32 33 34 35 2e 30 20 31  2345.0 12345.0 1
0fe0: 32 33 34 35 2e 30 7d 0a 0a 23 20 49 6e 66 69 6e  2345.0}..# Infin
0ff0: 69 74 79 20 61 73 20 61 6e 20 69 6e 70 75 74 0a  ity as an input.
1000: 23 0a 64 6f 5f 74 65 73 74 20 70 65 72 63 65 6e  #.do_test percen
1010: 74 69 6c 65 2d 31 2e 32 30 20 7b 0a 20 20 63 61  tile-1.20 {.  ca
1020: 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 44 45 4c  tchsql {.    DEL
1030: 45 54 45 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20  ETE FROM t1;.   
1040: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
1050: 53 45 4c 45 43 54 20 78 2b 30 2e 30 20 46 52 4f  SELECT x+0.0 FRO
1060: 4d 20 74 32 3b 0a 20 20 20 20 55 50 44 41 54 45  M t2;.    UPDATE
1070: 20 74 31 20 53 45 54 20 78 3d 31 2e 30 65 33 30   t1 SET x=1.0e30
1080: 30 2a 31 2e 30 65 33 30 30 20 57 48 45 52 45 20  0*1.0e300 WHERE 
1090: 72 6f 77 69 64 3d 35 3b 0a 20 20 20 20 53 45 4c  rowid=5;.    SEL
10a0: 45 43 54 20 70 65 72 63 65 6e 74 69 6c 65 28 78  ECT percentile(x
10b0: 2c 35 30 29 20 66 72 6f 6d 20 74 31 3b 0a 20 20  ,50) from t1;.  
10c0: 7d 0a 7d 20 7b 31 20 7b 49 6e 66 20 69 6e 70 75  }.} {1 {Inf inpu
10d0: 74 20 74 6f 20 70 65 72 63 65 6e 74 69 6c 65 28  t to percentile(
10e0: 29 7d 7d 0a 64 6f 5f 74 65 73 74 20 70 65 72 63  )}}.do_test perc
10f0: 65 6e 74 69 6c 65 2d 31 2e 32 31 20 7b 0a 20 20  entile-1.21 {.  
1100: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 55  catchsql {.    U
1110: 50 44 41 54 45 20 74 31 20 53 45 54 20 78 3d 2d  PDATE t1 SET x=-
1120: 31 2e 30 65 33 30 30 2a 31 2e 30 65 33 30 30 20  1.0e300*1.0e300 
1130: 57 48 45 52 45 20 72 6f 77 69 64 3d 35 3b 0a 20  WHERE rowid=5;. 
1140: 20 20 20 53 45 4c 45 43 54 20 70 65 72 63 65 6e     SELECT percen
1150: 74 69 6c 65 28 78 2c 35 30 29 20 66 72 6f 6d 20  tile(x,50) from 
1160: 74 31 3b 0a 20 20 7d 0a 7d 20 7b 31 20 7b 49 6e  t1;.  }.} {1 {In
1170: 66 20 69 6e 70 75 74 20 74 6f 20 70 65 72 63 65  f input to perce
1180: 6e 74 69 6c 65 28 29 7d 7d 0a 0a 23 20 4d 69 6c  ntile()}}..# Mil
1190: 6c 69 6f 6e 2d 72 6f 77 20 49 6e 70 75 74 73 0a  lion-row Inputs.
11a0: 23 0a 69 66 63 61 70 61 62 6c 65 20 76 74 61 62  #.ifcapable vtab
11b0: 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 70 65 72   {.  do_test per
11c0: 63 65 6e 74 69 6c 65 2d 32 2e 30 20 7b 0a 20 20  centile-2.0 {.  
11d0: 20 20 6c 6f 61 64 5f 73 74 61 74 69 63 5f 65 78    load_static_ex
11e0: 74 65 6e 73 69 6f 6e 20 64 62 20 77 68 6f 6c 65  tension db whole
11f0: 6e 75 6d 62 65 72 0a 20 20 20 20 65 78 65 63 73  number.    execs
1200: 71 6c 20 7b 0a 20 20 20 20 20 20 43 52 45 41 54  ql {.      CREAT
1210: 45 20 56 49 52 54 55 41 4c 20 54 41 42 4c 45 20  E VIRTUAL TABLE 
1220: 6e 75 6d 73 20 55 53 49 4e 47 20 77 68 6f 6c 65  nums USING whole
1230: 6e 75 6d 62 65 72 3b 0a 20 20 20 20 20 20 43 52  number;.      CR
1240: 45 41 54 45 20 54 41 42 4c 45 20 74 33 28 78 29  EATE TABLE t3(x)
1250: 3b 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49  ;.      INSERT I
1260: 4e 54 4f 20 74 33 20 53 45 4c 45 43 54 20 76 61  NTO t3 SELECT va
1270: 6c 75 65 2d 31 20 46 52 4f 4d 20 6e 75 6d 73 20  lue-1 FROM nums 
1280: 57 48 45 52 45 20 76 61 6c 75 65 20 42 45 54 57  WHERE value BETW
1290: 45 45 4e 20 31 20 41 4e 44 20 35 30 30 30 30 30  EEN 1 AND 500000
12a0: 3b 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49  ;.      INSERT I
12b0: 4e 54 4f 20 74 33 20 53 45 4c 45 43 54 20 76 61  NTO t3 SELECT va
12c0: 6c 75 65 2a 31 30 20 46 52 4f 4d 20 6e 75 6d 73  lue*10 FROM nums
12d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
12e0: 20 20 20 20 20 20 20 57 48 45 52 45 20 76 61 6c         WHERE val
12f0: 75 65 20 42 45 54 57 45 45 4e 20 35 30 30 30 30  ue BETWEEN 50000
1300: 30 20 41 4e 44 20 39 39 39 39 39 39 3b 0a 20 20  0 AND 999999;.  
1310: 20 20 20 20 53 45 4c 45 43 54 20 63 6f 75 6e 74      SELECT count
1320: 28 2a 29 20 46 52 4f 4d 20 74 33 3b 0a 20 20 20  (*) FROM t3;.   
1330: 20 7d 0a 20 20 7d 20 7b 31 30 30 30 30 30 30 7d   }.  } {1000000}
1340: 0a 20 20 66 6f 72 65 61 63 68 20 7b 69 6e 20 6f  .  foreach {in o
1350: 75 74 7d 20 7b 0a 20 20 20 20 20 20 30 20 20 20  ut} {.      0   
1360: 20 20 20 20 20 20 20 30 2e 30 0a 20 20 20 20 31         0.0.    1
1370: 30 30 20 20 20 20 39 39 39 39 39 39 30 2e 30 0a  00    9999990.0.
1380: 20 20 20 20 20 35 30 20 20 20 20 32 37 34 39 39       50    27499
1390: 39 39 2e 35 0a 20 20 20 20 20 31 30 20 20 20 20  99.5.     10    
13a0: 20 20 39 39 39 39 39 2e 39 0a 20 20 7d 20 7b 0a    99999.9.  } {.
13b0: 20 20 20 20 64 6f 5f 74 65 73 74 20 70 65 72 63      do_test perc
13c0: 65 6e 74 69 6c 65 2d 32 2e 31 2e 24 69 6e 20 7b  entile-2.1.$in {
13d0: 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 7b  .      execsql {
13e0: 0a 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20  .        SELECT 
13f0: 70 65 72 63 65 6e 74 69 6c 65 28 78 2c 20 24 69  percentile(x, $i
1400: 6e 29 20 66 72 6f 6d 20 74 33 3b 0a 20 20 20 20  n) from t3;.    
1410: 20 20 7d 0a 20 20 20 20 7d 20 24 6f 75 74 0a 20    }.    } $out. 
1420: 20 7d 0a 7d 0a 0a 66 69 6e 69 73 68 5f 74 65 73   }.}..finish_tes
1430: 74 0a                                            t.