/ Hex Artifact Content
Login

Artifact 4529fbc152f190268a15f9384a5651bbbabc9d87:


0000: 23 20 32 30 30 38 20 41 75 67 75 73 74 20 32 38  # 2008 August 28
0010: 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20  .#.# The author 
0020: 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69  disclaims copyri
0030: 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72  ght to this sour
0040: 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61  ce code.  In pla
0050: 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20  ce of.# a legal 
0060: 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 69 73 20  notice, here is 
0070: 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20  a blessing:.#.# 
0080: 20 20 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f     May you do go
0090: 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e  od and not evil.
00a0: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69  .#    May you fi
00b0: 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66  nd forgiveness f
00c0: 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20  or yourself and 
00d0: 66 6f 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a  forgive others..
00e0: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61  #    May you sha
00f0: 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72  re freely, never
0100: 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61   taking more tha
0110: 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a  n 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 2a 0a 23 0a 23 20 54 68 69 73 20  ******.#.# This 
0170: 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20  file implements 
0180: 72 65 67 72 65 73 73 69 6f 6e 20 74 65 73 74 73  regression tests
0190: 20 66 6f 72 20 53 51 4c 69 74 65 20 6c 69 62 72   for SQLite libr
01a0: 61 72 79 2e 20 20 54 68 65 0a 23 20 66 6f 63 75  ary.  The.# focu
01b0: 73 20 6f 66 20 74 68 69 73 20 73 63 72 69 70 74  s of this script
01c0: 20 69 73 20 63 6f 72 72 65 63 74 20 63 6f 64 65   is correct code
01d0: 20 67 65 6e 65 72 61 74 69 6f 6e 20 6f 66 20 61   generation of a
01e0: 6c 69 61 73 65 64 20 72 65 73 75 6c 74 2d 73 65  liased result-se
01f0: 74 0a 23 20 76 61 6c 75 65 73 2e 20 20 53 65 65  t.# values.  See
0200: 20 74 69 63 6b 65 74 20 23 33 33 34 33 2e 0a 23   ticket #3343..#
0210: 0a 23 20 24 49 64 3a 20 61 6c 69 61 73 2e 74 65  .# $Id: alias.te
0220: 73 74 2c 76 20 31 2e 33 20 32 30 30 39 2f 30 34  st,v 1.3 2009/04
0230: 2f 32 33 20 31 33 3a 32 32 3a 34 34 20 64 72 68  /23 13:22:44 drh
0240: 20 45 78 70 20 24 0a 23 0a 73 65 74 20 74 65 73   Exp $.#.set tes
0250: 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61  tdir [file dirna
0260: 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f 75 72 63  me $argv0].sourc
0270: 65 20 24 74 65 73 74 64 69 72 2f 74 65 73 74 65  e $testdir/teste
0280: 72 2e 74 63 6c 0a 0a 23 20 41 6c 69 61 73 65 73  r.tcl..# Aliases
0290: 20 61 72 65 20 63 75 72 72 65 6e 74 6c 79 20 65   are currently e
02a0: 76 61 6c 75 61 74 65 64 20 74 77 69 63 65 2e 20  valuated twice. 
02b0: 20 57 65 20 6d 69 67 68 74 20 74 72 79 20 74 6f   We might try to
02c0: 20 63 68 61 6e 67 65 20 74 68 69 73 0a 23 20 69   change this.# i
02d0: 6e 20 74 68 65 20 66 75 74 75 72 65 2e 20 20 42  n the future.  B
02e0: 75 74 20 6e 6f 74 20 6e 6f 77 2e 0a 72 65 74 75  ut not now..retu
02f0: 72 6e 0a 0a 23 20 41 20 70 72 6f 63 65 64 75 72  rn..# A procedur
0300: 65 20 74 6f 20 72 65 74 75 72 6e 20 61 20 73 65  e to return a se
0310: 71 75 65 6e 63 65 20 6f 66 20 69 6e 63 72 65 61  quence of increa
0320: 73 69 6e 67 20 69 6e 74 65 67 65 72 73 2e 0a 23  sing integers..#
0330: 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20  .namespace eval 
0340: 3a 3a 73 65 71 20 7b 0a 20 20 76 61 72 69 61 62  ::seq {.  variab
0350: 6c 65 20 63 6f 75 6e 74 65 72 20 30 0a 20 20 70  le counter 0.  p
0360: 72 6f 63 20 76 61 6c 75 65 20 7b 61 72 67 73 7d  roc value {args}
0370: 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20   {.    variable 
0380: 63 6f 75 6e 74 65 72 0a 20 20 20 20 69 6e 63 72  counter.    incr
0390: 20 63 6f 75 6e 74 65 72 0a 20 20 20 20 72 65 74   counter.    ret
03a0: 75 72 6e 20 24 63 6f 75 6e 74 65 72 0a 20 20 7d  urn $counter.  }
03b0: 0a 20 20 70 72 6f 63 20 72 65 73 65 74 20 7b 7d  .  proc reset {}
03c0: 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20   {.    variable 
03d0: 63 6f 75 6e 74 65 72 0a 20 20 20 20 73 65 74 20  counter.    set 
03e0: 63 6f 75 6e 74 65 72 20 30 0a 20 20 7d 0a 7d 0a  counter 0.  }.}.
03f0: 0a 0a 64 6f 5f 74 65 73 74 20 61 6c 69 61 73 2d  ..do_test alias-
0400: 31 2e 31 20 7b 0a 20 20 64 62 20 66 75 6e 63 74  1.1 {.  db funct
0410: 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 3a 3a 73  ion sequence ::s
0420: 65 71 3a 3a 76 61 6c 75 65 0a 20 20 64 62 20 65  eq::value.  db e
0430: 76 61 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45  val {.    CREATE
0440: 20 54 41 42 4c 45 20 74 31 28 78 29 3b 0a 20 20   TABLE t1(x);.  
0450: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
0460: 20 56 41 4c 55 45 53 28 39 29 3b 0a 20 20 20 20   VALUES(9);.    
0470: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
0480: 41 4c 55 45 53 28 38 29 3b 0a 20 20 20 20 49 4e  ALUES(8);.    IN
0490: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
04a0: 55 45 53 28 37 29 3b 0a 20 20 20 20 53 45 4c 45  UES(7);.    SELE
04b0: 43 54 20 78 2c 20 73 65 71 75 65 6e 63 65 28 29  CT x, sequence()
04c0: 20 46 52 4f 4d 20 74 31 3b 0a 20 20 7d 0a 7d 20   FROM t1;.  }.} 
04d0: 7b 39 20 31 20 38 20 32 20 37 20 33 7d 0a 64 6f  {9 1 8 2 7 3}.do
04e0: 5f 74 65 73 74 20 61 6c 69 61 73 2d 31 2e 32 20  _test alias-1.2 
04f0: 7b 0a 20 20 3a 3a 73 65 71 3a 3a 72 65 73 65 74  {.  ::seq::reset
0500: 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20  .  db eval {.   
0510: 20 53 45 4c 45 43 54 20 78 2c 20 73 65 71 75 65   SELECT x, seque
0520: 6e 63 65 28 29 20 41 53 20 79 20 46 52 4f 4d 20  nce() AS y FROM 
0530: 74 31 20 57 48 45 52 45 20 79 3e 30 0a 20 20 7d  t1 WHERE y>0.  }
0540: 0a 7d 20 7b 39 20 31 20 38 20 32 20 37 20 33 7d  .} {9 1 8 2 7 3}
0550: 0a 64 6f 5f 74 65 73 74 20 61 6c 69 61 73 2d 31  .do_test alias-1
0560: 2e 33 20 7b 0a 20 20 3a 3a 73 65 71 3a 3a 72 65  .3 {.  ::seq::re
0570: 73 65 74 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a  set.  db eval {.
0580: 20 20 20 20 53 45 4c 45 43 54 20 78 2c 20 73 65      SELECT x, se
0590: 71 75 65 6e 63 65 28 29 20 41 53 20 79 20 46 52  quence() AS y FR
05a0: 4f 4d 20 74 31 20 57 48 45 52 45 20 79 3e 30 20  OM t1 WHERE y>0 
05b0: 41 4e 44 20 79 3c 39 39 0a 20 20 7d 0a 7d 20 7b  AND y<99.  }.} {
05c0: 39 20 31 20 38 20 32 20 37 20 33 7d 0a 64 6f 5f  9 1 8 2 7 3}.do_
05d0: 74 65 73 74 20 61 6c 69 61 73 2d 31 2e 34 20 7b  test alias-1.4 {
05e0: 0a 20 20 3a 3a 73 65 71 3a 3a 72 65 73 65 74 0a  .  ::seq::reset.
05f0: 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20    db eval {.    
0600: 53 45 4c 45 43 54 20 78 2c 20 73 65 71 75 65 6e  SELECT x, sequen
0610: 63 65 28 29 20 41 53 20 79 20 46 52 4f 4d 20 74  ce() AS y FROM t
0620: 31 20 57 48 45 52 45 20 79 3e 30 20 41 4e 44 20  1 WHERE y>0 AND 
0630: 79 3c 39 39 20 41 4e 44 20 79 21 3d 35 35 0a 20  y<99 AND y!=55. 
0640: 20 7d 0a 7d 20 7b 39 20 31 20 38 20 32 20 37 20   }.} {9 1 8 2 7 
0650: 33 7d 0a 64 6f 5f 74 65 73 74 20 61 6c 69 61 73  3}.do_test alias
0660: 2d 31 2e 35 20 7b 0a 20 20 3a 3a 73 65 71 3a 3a  -1.5 {.  ::seq::
0670: 72 65 73 65 74 0a 20 20 64 62 20 65 76 61 6c 20  reset.  db eval 
0680: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 78 2c 20  {.    SELECT x, 
0690: 73 65 71 75 65 6e 63 65 28 29 20 41 53 20 79 20  sequence() AS y 
06a0: 46 52 4f 4d 20 74 31 0a 20 20 20 20 20 57 48 45  FROM t1.     WHE
06b0: 52 45 20 79 3e 30 20 41 4e 44 20 79 3c 39 39 20  RE y>0 AND y<99 
06c0: 41 4e 44 20 79 21 3d 35 35 20 41 4e 44 20 79 20  AND y!=55 AND y 
06d0: 4e 4f 54 20 49 4e 20 28 35 36 2c 35 37 2c 35 38  NOT IN (56,57,58
06e0: 29 0a 20 20 20 20 20 20 20 41 4e 44 20 79 20 4e  ).       AND y N
06f0: 4f 54 20 4c 49 4b 45 20 27 61 62 63 25 27 20 41  OT LIKE 'abc%' A
0700: 4e 44 20 79 25 31 30 3d 3d 32 0a 20 20 7d 0a 7d  ND y%10==2.  }.}
0710: 20 7b 38 20 32 7d 0a 64 6f 5f 74 65 73 74 20 61   {8 2}.do_test a
0720: 6c 69 61 73 2d 31 2e 36 20 7b 0a 20 20 3a 3a 73  lias-1.6 {.  ::s
0730: 65 71 3a 3a 72 65 73 65 74 0a 20 20 64 62 20 65  eq::reset.  db e
0740: 76 61 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54  val {.    SELECT
0750: 20 78 2c 20 73 65 71 75 65 6e 63 65 28 29 20 41   x, sequence() A
0760: 53 20 79 20 46 52 4f 4d 20 74 31 20 57 48 45 52  S y FROM t1 WHER
0770: 45 20 79 20 42 45 54 57 45 45 4e 20 30 20 41 4e  E y BETWEEN 0 AN
0780: 44 20 39 39 0a 20 20 7d 0a 7d 20 7b 39 20 31 20  D 99.  }.} {9 1 
0790: 38 20 32 20 37 20 33 7d 0a 23 64 6f 5f 74 65 73  8 2 7 3}.#do_tes
07a0: 74 20 61 6c 69 61 73 2d 31 2e 37 20 7b 0a 23 20  t alias-1.7 {.# 
07b0: 20 3a 3a 73 65 71 3a 3a 72 65 73 65 74 0a 23 20   ::seq::reset.# 
07c0: 20 64 62 20 65 76 61 6c 20 7b 0a 23 20 20 20 20   db eval {.#    
07d0: 53 45 4c 45 43 54 20 78 2c 20 73 65 71 75 65 6e  SELECT x, sequen
07e0: 63 65 28 29 20 41 53 20 79 20 46 52 4f 4d 20 74  ce() AS y FROM t
07f0: 31 20 57 48 45 52 45 20 79 20 49 4e 20 28 35 35  1 WHERE y IN (55
0800: 2c 36 36 2c 33 29 0a 23 20 20 7d 0a 23 7d 20 7b  ,66,3).#  }.#} {
0810: 37 20 33 7d 0a 64 6f 5f 74 65 73 74 20 61 6c 69  7 3}.do_test ali
0820: 61 73 2d 31 2e 38 20 7b 0a 20 20 3a 3a 73 65 71  as-1.8 {.  ::seq
0830: 3a 3a 72 65 73 65 74 0a 20 20 64 62 20 65 76 61  ::reset.  db eva
0840: 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 78  l {.    SELECT x
0850: 2c 20 31 2d 73 65 71 75 65 6e 63 65 28 29 20 41  , 1-sequence() A
0860: 53 20 79 20 46 52 4f 4d 20 74 31 20 4f 52 44 45  S y FROM t1 ORDE
0870: 52 20 42 59 20 79 0a 20 20 7d 0a 7d 20 7b 37 20  R BY y.  }.} {7 
0880: 2d 32 20 38 20 2d 31 20 39 20 30 7d 0a 64 6f 5f  -2 8 -1 9 0}.do_
0890: 74 65 73 74 20 61 6c 69 61 73 2d 31 2e 39 20 7b  test alias-1.9 {
08a0: 0a 20 20 3a 3a 73 65 71 3a 3a 72 65 73 65 74 0a  .  ::seq::reset.
08b0: 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20    db eval {.    
08c0: 53 45 4c 45 43 54 20 78 2c 20 73 65 71 75 65 6e  SELECT x, sequen
08d0: 63 65 28 29 20 41 53 20 79 20 46 52 4f 4d 20 74  ce() AS y FROM t
08e0: 31 20 4f 52 44 45 52 20 42 59 20 2d 79 0a 20 20  1 ORDER BY -y.  
08f0: 7d 0a 7d 20 7b 37 20 33 20 38 20 32 20 39 20 31  }.} {7 3 8 2 9 1
0900: 7d 0a 64 6f 5f 74 65 73 74 20 61 6c 69 61 73 2d  }.do_test alias-
0910: 31 2e 31 30 20 7b 0a 20 20 3a 3a 73 65 71 3a 3a  1.10 {.  ::seq::
0920: 72 65 73 65 74 0a 20 20 64 62 20 65 76 61 6c 20  reset.  db eval 
0930: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 78 2c 20  {.    SELECT x, 
0940: 73 65 71 75 65 6e 63 65 28 29 20 41 53 20 79 20  sequence() AS y 
0950: 46 52 4f 4d 20 74 31 20 4f 52 44 45 52 20 42 59  FROM t1 ORDER BY
0960: 20 78 25 32 2c 20 79 0a 20 20 7d 0a 7d 20 7b 38   x%2, y.  }.} {8
0970: 20 32 20 39 20 31 20 37 20 33 7d 0a 0a 75 6e 73   2 9 1 7 3}..uns
0980: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
0990: 61 6e 64 6f 6d 5f 69 6e 74 5f 6c 69 73 74 0a 73  andom_int_list.s
09a0: 65 74 20 72 61 6e 64 6f 6d 5f 69 6e 74 5f 6c 69  et random_int_li
09b0: 73 74 20 5b 64 62 20 65 76 61 6c 20 7b 0a 20 20  st [db eval {.  
09c0: 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 28 29   SELECT random()
09d0: 26 32 31 34 37 34 38 33 36 34 37 20 41 53 20 72  &2147483647 AS r
09e0: 20 46 52 4f 4d 20 74 31 2c 20 74 31 2c 20 74 31   FROM t1, t1, t1
09f0: 2c 20 74 31 20 4f 52 44 45 52 20 42 59 20 72 0a  , t1 ORDER BY r.
0a00: 7d 5d 0a 64 6f 5f 74 65 73 74 20 61 6c 69 61 73  }].do_test alias
0a10: 2d 31 2e 31 31 20 7b 0a 20 20 6c 73 6f 72 74 20  -1.11 {.  lsort 
0a20: 2d 69 6e 74 65 67 65 72 20 24 3a 3a 72 61 6e 64  -integer $::rand
0a30: 6f 6d 5f 69 6e 74 5f 6c 69 73 74 0a 7d 20 24 72  om_int_list.} $r
0a40: 61 6e 64 6f 6d 5f 69 6e 74 5f 6c 69 73 74 0a 0a  andom_int_list..
0a50: 0a 64 6f 5f 74 65 73 74 20 61 6c 69 61 73 2d 32  .do_test alias-2
0a60: 2e 31 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b  .1 {.  db eval {
0a70: 0a 20 20 20 20 53 45 4c 45 43 54 20 34 20 55 4e  .    SELECT 4 UN
0a80: 49 4f 4e 20 53 45 4c 45 43 54 20 31 20 4f 52 44  ION SELECT 1 ORD
0a90: 45 52 20 42 59 20 31 0a 20 20 7d 0a 7d 20 7b 31  ER BY 1.  }.} {1
0aa0: 20 34 7d 0a 64 6f 5f 74 65 73 74 20 61 6c 69 61   4}.do_test alia
0ab0: 73 2d 32 2e 32 20 7b 0a 20 20 64 62 20 65 76 61  s-2.2 {.  db eva
0ac0: 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 34  l {.    SELECT 4
0ad0: 20 55 4e 49 4f 4e 20 53 45 4c 45 43 54 20 31 20   UNION SELECT 1 
0ae0: 55 4e 49 4f 4e 20 53 45 4c 45 43 54 20 39 20 4f  UNION SELECT 9 O
0af0: 52 44 45 52 20 42 59 20 31 0a 20 20 7d 0a 7d 20  RDER BY 1.  }.} 
0b00: 7b 31 20 34 20 39 7d 0a 0a 69 66 20 30 20 7b 0a  {1 4 9}..if 0 {.
0b10: 20 20 23 20 41 6c 69 61 73 65 73 20 69 6e 20 74    # Aliases in t
0b20: 68 65 20 47 52 4f 55 50 20 42 59 20 63 6c 61 75  he GROUP BY clau
0b30: 73 65 20 63 61 75 73 65 20 74 68 65 20 65 78 70  se cause the exp
0b40: 72 65 73 73 69 6f 6e 20 74 6f 20 62 65 20 65 76  ression to be ev
0b50: 61 6c 75 61 74 65 64 0a 20 20 23 20 74 77 69 63  aluated.  # twic
0b60: 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74  e in the current
0b70: 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e   implementation.
0b80: 20 20 54 68 69 73 20 6d 69 67 68 74 20 63 68 61    This might cha
0b90: 6e 67 65 20 69 6e 20 74 68 65 20 66 75 74 75 72  nge in the futur
0ba0: 65 2e 0a 20 20 23 0a 20 20 64 6f 5f 74 65 73 74  e..  #.  do_test
0bb0: 20 61 6c 69 61 73 2d 33 2e 31 20 7b 0a 20 20 20   alias-3.1 {.   
0bc0: 20 3a 3a 73 65 71 3a 3a 72 65 73 65 74 0a 20 20   ::seq::reset.  
0bd0: 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20    db eval {.    
0be0: 20 20 53 45 4c 45 43 54 20 73 65 71 75 65 6e 63    SELECT sequenc
0bf0: 65 28 2a 29 20 41 53 20 79 2c 20 63 6f 75 6e 74  e(*) AS y, count
0c00: 28 2a 29 20 41 53 20 7a 20 46 52 4f 4d 20 74 31  (*) AS z FROM t1
0c10: 20 47 52 4f 55 50 20 42 59 20 79 20 4f 52 44 45   GROUP BY y ORDE
0c20: 52 20 42 59 20 7a 2c 20 79 0a 20 20 20 20 7d 0a  R BY z, y.    }.
0c30: 20 20 7d 20 7b 31 20 31 20 32 20 31 20 33 20 31    } {1 1 2 1 3 1
0c40: 7d 0a 7d 0a 0a 66 69 6e 69 73 68 5f 74 65 73 74  }.}..finish_test
0c50: 0a                                               .