/ Hex Artifact Content
Login

Artifact 6505c73ab58796afcb7c89ba9f429d573fbc6e53:


0000: 23 0a 23 20 32 30 30 36 20 46 65 62 72 75 61 72  #.# 2006 Februar
0010: 79 20 39 0a 23 0a 23 20 54 68 65 20 61 75 74 68  y 9.#.# The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67  place of.# a leg
0060: 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20  al notice, here 
0070: 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23  is a blessing:.#
0080: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f  .#    May you do
0090: 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76   good and not ev
00a0: 69 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75  il..#    May you
00b0: 20 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73   find forgivenes
00c0: 73 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61  s for yourself a
00d0: 6e 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72  nd forgive other
00e0: 73 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  s..#    May you 
00f0: 73 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65  share freely, ne
0100: 76 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20  ver taking more 
0110: 74 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23  than you give..#
0120: 0a 23 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 2a 2a 2a 0a 23 20 54 68 69 73  *********.# This
0170: 20 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73   file implements
0180: 20 72 65 67 72 65 73 73 69 6f 6e 20 74 65 73 74   regression test
0190: 73 20 66 6f 72 20 53 51 4c 69 74 65 20 6c 69 62  s for SQLite lib
01a0: 72 61 72 79 2e 20 20 54 68 65 0a 23 20 66 6f 63  rary.  The.# foc
01b0: 75 73 20 6f 66 20 74 68 69 73 20 73 63 72 69 70  us of this scrip
01c0: 74 20 69 73 20 74 68 65 20 73 71 6c 69 74 65 33  t is the sqlite3
01d0: 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65  _table_column_me
01e0: 74 61 64 61 74 61 28 29 20 41 50 49 2e 0a 23 0a  tadata() API..#.
01f0: 23 20 24 49 64 3a 20 63 6f 6c 6d 65 74 61 2e 74  # $Id: colmeta.t
0200: 65 73 74 2c 76 20 31 2e 33 20 32 30 30 36 2f 30  est,v 1.3 2006/0
0210: 32 2f 31 30 20 31 33 3a 33 33 3a 33 31 20 64 61  2/10 13:33:31 da
0220: 6e 69 65 6c 6b 31 39 37 37 20 45 78 70 20 24 0a  nielk1977 Exp $.
0230: 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b 66 69  .set testdir [fi
0240: 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76  le dirname $argv
0250: 30 5d 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64  0].source $testd
0260: 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a 0a 69  ir/tester.tcl..i
0270: 66 63 61 70 61 62 6c 65 20 21 63 6f 6c 75 6d 6e  fcapable !column
0280: 6d 65 74 61 64 61 74 61 20 7b 0a 20 20 66 69 6e  metadata {.  fin
0290: 69 73 68 5f 74 65 73 74 0a 20 20 72 65 74 75 72  ish_test.  retur
02a0: 6e 0a 7d 0a 0a 23 20 53 65 74 20 75 70 20 61 20  n.}..# Set up a 
02b0: 73 63 68 65 6d 61 20 69 6e 20 74 68 65 20 6d 61  schema in the ma
02c0: 69 6e 20 61 6e 64 20 74 65 6d 70 20 74 65 73 74  in and temp test
02d0: 20 64 61 74 61 62 61 73 65 73 2e 0a 64 6f 5f 74   databases..do_t
02e0: 65 73 74 20 63 6f 6c 6d 65 74 61 2d 30 20 7b 0a  est colmeta-0 {.
02f0: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
0300: 43 52 45 41 54 45 20 54 41 42 4c 45 20 61 62 63  CREATE TABLE abc
0310: 28 61 2c 20 62 2c 20 63 29 3b 0a 20 20 20 20 43  (a, b, c);.    C
0320: 52 45 41 54 45 20 54 41 42 4c 45 20 61 62 63 32  REATE TABLE abc2
0330: 28 61 20 50 52 49 4d 41 52 59 20 4b 45 59 20 43  (a PRIMARY KEY C
0340: 4f 4c 4c 41 54 45 20 4e 4f 43 41 53 45 2c 20 62  OLLATE NOCASE, b
0350: 20 56 41 52 43 48 41 52 28 33 32 29 2c 20 63 29   VARCHAR(32), c)
0360: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  ;.    CREATE TAB
0370: 4c 45 20 61 62 63 33 28 61 20 4e 4f 54 20 4e 55  LE abc3(a NOT NU
0380: 4c 4c 2c 20 62 20 49 4e 54 45 47 45 52 20 50 52  LL, b INTEGER PR
0390: 49 4d 41 52 59 20 4b 45 59 2c 20 63 29 3b 0a 20  IMARY KEY, c);. 
03a0: 20 7d 0a 20 20 69 66 63 61 70 61 62 6c 65 20 61   }.  ifcapable a
03b0: 75 74 6f 69 6e 63 20 7b 0a 20 20 20 20 65 78 65  utoinc {.    exe
03c0: 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 43 52 45  csql {.      CRE
03d0: 41 54 45 20 54 41 42 4c 45 20 61 62 63 34 28 61  ATE TABLE abc4(a
03e0: 2c 20 62 20 49 4e 54 45 47 45 52 20 50 52 49 4d  , b INTEGER PRIM
03f0: 41 52 59 20 4b 45 59 20 41 55 54 4f 49 4e 43 52  ARY KEY AUTOINCR
0400: 45 4d 45 4e 54 2c 20 63 29 3b 0a 20 20 20 20 7d  EMENT, c);.    }
0410: 0a 20 20 7d 0a 20 20 69 66 63 61 70 61 62 6c 65  .  }.  ifcapable
0420: 20 76 69 65 77 20 7b 0a 20 20 20 20 65 78 65 63   view {.    exec
0430: 73 71 6c 20 7b 0a 20 20 20 20 20 20 43 52 45 41  sql {.      CREA
0440: 54 45 20 56 49 45 57 20 76 31 20 41 53 20 53 45  TE VIEW v1 AS SE
0450: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 32  LECT * FROM abc2
0460: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 20 7b 7d  ;.    }.  }.} {}
0470: 0a 0a 0a 23 20 52 65 74 75 72 6e 20 76 61 6c 75  ...# Return valu
0480: 65 73 20 61 72 65 20 6f 66 20 74 68 65 20 66 6f  es are of the fo
0490: 72 6d 3a 0a 23 0a 23 20 20 20 7b 3c 64 65 63 6c  rm:.#.#   {<decl
04a0: 2d 74 79 70 65 3e 20 3c 63 6f 6c 6c 61 74 69 6f  -type> <collatio
04b0: 6e 3e 20 3c 6e 6f 74 20 6e 75 6c 6c 3e 20 3c 70  n> <not null> <p
04c0: 72 69 6d 61 72 79 20 6b 65 79 3e 20 3c 61 75 74  rimary key> <aut
04d0: 6f 20 69 6e 63 72 65 6d 65 6e 74 3e 7d 0a 23 0a  o increment>}.#.
04e0: 73 65 74 20 74 65 73 74 73 20 7b 0a 20 20 31 20  set tests {.  1 
04f0: 20 7b 6d 61 69 6e 20 61 62 63 20 61 7d 20 20 20   {main abc a}   
0500: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 30 20               {0 
0510: 7b 7b 7d 20 42 49 4e 41 52 59 20 30 20 30 20 30  {{} BINARY 0 0 0
0520: 7d 7d 0a 20 20 32 20 20 7b 7b 7d 20 61 62 63 20  }}.  2  {{} abc 
0530: 61 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20  a}              
0540: 20 20 20 20 7b 30 20 7b 7b 7d 20 42 49 4e 41 52      {0 {{} BINAR
0550: 59 20 30 20 30 20 30 7d 7d 0a 20 20 33 20 20 7b  Y 0 0 0}}.  3  {
0560: 7b 7d 20 61 62 63 32 20 62 7d 20 20 20 20 20 20  {} abc2 b}      
0570: 20 20 20 20 20 20 20 20 20 20 20 7b 30 20 7b 56             {0 {V
0580: 41 52 43 48 41 52 28 33 32 29 20 42 49 4e 41 52  ARCHAR(32) BINAR
0590: 59 20 30 20 30 20 30 7d 7d 0a 20 20 34 20 20 7b  Y 0 0 0}}.  4  {
05a0: 6d 61 69 6e 20 61 62 63 32 20 62 7d 20 20 20 20  main abc2 b}    
05b0: 20 20 20 20 20 20 20 20 20 20 20 7b 30 20 7b 56             {0 {V
05c0: 41 52 43 48 41 52 28 33 32 29 20 42 49 4e 41 52  ARCHAR(32) BINAR
05d0: 59 20 30 20 30 20 30 7d 7d 0a 20 20 35 20 20 7b  Y 0 0 0}}.  5  {
05e0: 7b 7d 20 61 62 63 32 20 61 7d 20 20 20 20 20 20  {} abc2 a}      
05f0: 20 20 20 20 20 20 20 20 20 20 20 7b 30 20 7b 7b             {0 {{
0600: 7d 20 4e 4f 43 41 53 45 20 30 20 31 20 30 7d 7d  } NOCASE 0 1 0}}
0610: 0a 20 20 36 20 20 7b 7b 7d 20 61 62 63 33 20 61  .  6  {{} abc3 a
0620: 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  }               
0630: 20 20 7b 30 20 7b 7b 7d 20 42 49 4e 41 52 59 20    {0 {{} BINARY 
0640: 31 20 30 20 30 7d 7d 0a 20 20 37 20 20 7b 7b 7d  1 0 0}}.  7  {{}
0650: 20 61 62 63 33 20 62 7d 20 20 20 20 20 20 20 20   abc3 b}        
0660: 20 20 20 20 20 20 20 20 20 7b 30 20 7b 49 4e 54           {0 {INT
0670: 45 47 45 52 20 42 49 4e 41 52 59 20 30 20 31 20  EGER BINARY 0 1 
0680: 30 7d 7d 0a 20 20 31 33 20 7b 6d 61 69 6e 20 61  0}}.  13 {main a
0690: 62 63 20 72 6f 77 69 64 7d 20 20 20 20 20 20 20  bc rowid}       
06a0: 20 20 20 20 20 7b 30 20 7b 49 4e 54 45 47 45 52       {0 {INTEGER
06b0: 20 42 49 4e 41 52 59 20 30 20 31 20 30 7d 7d 0a   BINARY 0 1 0}}.
06c0: 20 20 31 34 20 7b 6d 61 69 6e 20 61 62 63 33 20    14 {main abc3 
06d0: 72 6f 77 69 64 7d 20 20 20 20 20 20 20 20 20 20  rowid}          
06e0: 20 7b 30 20 7b 49 4e 54 45 47 45 52 20 42 49 4e   {0 {INTEGER BIN
06f0: 41 52 59 20 30 20 31 20 30 7d 7d 0a 20 20 31 36  ARY 0 1 0}}.  16
0700: 20 7b 6d 61 69 6e 20 61 62 63 20 64 7d 20 20 20   {main abc d}   
0710: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 31 20               {1 
0720: 7b 6e 6f 20 73 75 63 68 20 74 61 62 6c 65 20 63  {no such table c
0730: 6f 6c 75 6d 6e 3a 20 61 62 63 2e 64 7d 7d 0a 7d  olumn: abc.d}}.}
0740: 0a 69 66 63 61 70 61 62 6c 65 20 76 69 65 77 20  .ifcapable view 
0750: 7b 0a 20 20 73 65 74 20 74 65 73 74 73 20 5b 63  {.  set tests [c
0760: 6f 6e 63 61 74 20 24 74 65 73 74 73 20 7b 0a 20  oncat $tests {. 
0770: 20 20 20 38 20 20 7b 7b 7d 20 61 62 63 34 20 62     8  {{} abc4 b
0780: 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  }               
0790: 20 20 7b 30 20 7b 49 4e 54 45 47 45 52 20 42 49    {0 {INTEGER BI
07a0: 4e 41 52 59 20 30 20 31 20 31 7d 7d 0a 20 20 20  NARY 0 1 1}}.   
07b0: 20 31 35 20 7b 6d 61 69 6e 20 61 62 63 34 20 72   15 {main abc4 r
07c0: 6f 77 69 64 7d 20 20 20 20 20 20 20 20 20 20 20  owid}           
07d0: 7b 30 20 7b 49 4e 54 45 47 45 52 20 42 49 4e 41  {0 {INTEGER BINA
07e0: 52 59 20 30 20 31 20 31 7d 7d 0a 20 20 7d 5d 0a  RY 0 1 1}}.  }].
07f0: 7d 0a 69 66 63 61 70 61 62 6c 65 20 76 69 65 77  }.ifcapable view
0800: 20 7b 0a 20 20 73 65 74 20 74 65 73 74 73 20 5b   {.  set tests [
0810: 63 6f 6e 63 61 74 20 24 74 65 73 74 73 20 7b 0a  concat $tests {.
0820: 20 20 20 20 39 20 20 7b 7b 7d 20 76 31 20 61 7d      9  {{} v1 a}
0830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0840: 20 20 20 7b 31 20 7b 6e 6f 20 73 75 63 68 20 74     {1 {no such t
0850: 61 62 6c 65 20 63 6f 6c 75 6d 6e 3a 20 76 31 2e  able column: v1.
0860: 61 7d 7d 0a 20 20 20 20 31 30 20 7b 6d 61 69 6e  a}}.    10 {main
0870: 20 76 31 20 62 7d 20 20 20 20 20 20 20 20 20 20   v1 b}          
0880: 20 20 20 20 20 20 20 7b 31 20 7b 6e 6f 20 73 75         {1 {no su
0890: 63 68 20 74 61 62 6c 65 20 63 6f 6c 75 6d 6e 3a  ch table column:
08a0: 20 76 31 2e 62 7d 7d 0a 20 20 20 20 31 31 20 7b   v1.b}}.    11 {
08b0: 6d 61 69 6e 20 76 31 20 62 61 64 6e 61 6d 65 7d  main v1 badname}
08c0: 20 20 20 20 20 20 20 20 20 20 20 7b 31 20 7b 6e             {1 {n
08d0: 6f 20 73 75 63 68 20 74 61 62 6c 65 20 63 6f 6c  o such table col
08e0: 75 6d 6e 3a 20 76 31 2e 62 61 64 6e 61 6d 65 7d  umn: v1.badname}
08f0: 7d 0a 20 20 20 20 31 32 20 7b 6d 61 69 6e 20 76  }.    12 {main v
0900: 31 20 72 6f 77 69 64 7d 20 20 20 20 20 20 20 20  1 rowid}        
0910: 20 20 20 20 20 7b 31 20 7b 6e 6f 20 73 75 63 68       {1 {no such
0920: 20 74 61 62 6c 65 20 63 6f 6c 75 6d 6e 3a 20 76   table column: v
0930: 31 2e 72 6f 77 69 64 7d 7d 0a 20 20 7d 5d 0a 7d  1.rowid}}.  }].}
0940: 0a 0a 66 6f 72 65 61 63 68 20 7b 74 6e 20 70 61  ..foreach {tn pa
0950: 72 61 6d 73 20 72 65 73 75 6c 74 73 7d 20 24 74  rams results} $t
0960: 65 73 74 73 20 7b 0a 20 20 73 65 74 20 3a 3a 44  ests {.  set ::D
0970: 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65  B [sqlite3_conne
0980: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
0990: 5d 0a 0a 20 20 73 65 74 20 74 73 74 62 6f 64 79  ]..  set tstbody
09a0: 20 5b 63 6f 6e 63 61 74 20 73 71 6c 69 74 65 33   [concat sqlite3
09b0: 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65  _table_column_me
09c0: 74 61 64 61 74 61 20 24 3a 3a 44 42 20 24 70 61  tadata $::DB $pa
09d0: 72 61 6d 73 5d 20 0a 20 20 64 6f 5f 74 65 73 74  rams] .  do_test
09e0: 20 63 6f 6c 6d 65 74 61 2d 24 74 6e 2e 31 20 7b   colmeta-$tn.1 {
09f0: 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68  .    list [catch
0a00: 20 24 74 73 74 62 6f 64 79 20 6d 73 67 5d 20 5b   $tstbody msg] [
0a10: 73 65 74 20 6d 73 67 5d 0a 20 20 7d 20 24 72 65  set msg].  } $re
0a20: 73 75 6c 74 73 0a 0a 20 20 64 62 20 63 6c 6f 73  sults..  db clos
0a30: 65 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 74  e.  sqlite3 db t
0a40: 65 73 74 2e 64 62 0a 0a 20 20 73 65 74 20 3a 3a  est.db..  set ::
0a50: 44 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e  DB [sqlite3_conn
0a60: 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64  ection_pointer d
0a70: 62 5d 0a 20 20 73 65 74 20 74 73 74 62 6f 64 79  b].  set tstbody
0a80: 20 5b 63 6f 6e 63 61 74 20 73 71 6c 69 74 65 33   [concat sqlite3
0a90: 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65  _table_column_me
0aa0: 74 61 64 61 74 61 20 24 3a 3a 44 42 20 24 70 61  tadata $::DB $pa
0ab0: 72 61 6d 73 5d 20 0a 20 20 64 6f 5f 74 65 73 74  rams] .  do_test
0ac0: 20 63 6f 6c 6d 65 74 61 2d 24 74 6e 2e 32 20 7b   colmeta-$tn.2 {
0ad0: 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68  .    list [catch
0ae0: 20 24 74 73 74 62 6f 64 79 20 6d 73 67 5d 20 5b   $tstbody msg] [
0af0: 73 65 74 20 6d 73 67 5d 0a 20 20 7d 20 24 72 65  set msg].  } $re
0b00: 73 75 6c 74 73 0a 7d 0a 0a 64 6f 5f 74 65 73 74  sults.}..do_test
0b10: 20 63 6f 6c 6d 65 74 61 2d 6d 69 73 75 73 65 2e   colmeta-misuse.
0b20: 31 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20  1 {.  db close. 
0b30: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b   set rc [catch {
0b40: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 74 61 62  .    sqlite3_tab
0b50: 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61  le_column_metada
0b60: 74 61 20 24 3a 3a 44 42 20 61 20 62 20 63 0a 20  ta $::DB a b c. 
0b70: 20 7d 20 6d 73 67 5d 0a 20 20 6c 69 73 74 20 24   } msg].  list $
0b80: 72 63 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6c 69  rc $msg.} {1 {li
0b90: 62 72 61 72 79 20 72 6f 75 74 69 6e 65 20 63 61  brary routine ca
0ba0: 6c 6c 65 64 20 6f 75 74 20 6f 66 20 73 65 71 75  lled out of sequ
0bb0: 65 6e 63 65 7d 7d 0a 0a 66 69 6e 69 73 68 5f 74  ence}}..finish_t
0bc0: 65 73 74 0a 0a                                   est..