/ Hex Artifact Content
Login

Artifact 1cf7896ab6859bfe3074244b2b0e12de5cbdd766:


0000: 23 20 32 30 30 38 20 41 70 72 69 6c 20 31 30 0a  # 2008 April 10.
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 20 54 68 69 73 20 66 69 6c  *****.# This fil
0170: 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67  e implements reg
0180: 72 65 73 73 69 6f 6e 20 74 65 73 74 73 20 66 6f  ression tests fo
0190: 72 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79  r SQLite library
01a0: 2e 20 20 54 68 65 0a 23 20 66 6f 63 75 73 20 6f  .  The.# focus o
01b0: 66 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 69  f this file is i
01c0: 73 20 76 65 72 69 66 79 69 6e 67 20 74 68 61 74  s verifying that
01d0: 20 74 68 65 20 78 55 70 64 61 74 65 2c 20 78 53   the xUpdate, xS
01e0: 79 6e 63 2c 20 78 43 6f 6d 6d 69 74 0a 23 20 61  ync, xCommit.# a
01f0: 6e 64 20 78 52 6f 6c 6c 62 61 63 6b 20 6d 65 74  nd xRollback met
0200: 68 6f 64 73 20 61 72 65 20 6f 6e 6c 79 20 69 6e  hods are only in
0210: 76 6f 6b 65 64 20 61 66 74 65 72 20 61 6e 20 78  voked after an x
0220: 42 65 67 69 6e 20 6f 72 20 78 43 72 65 61 74 65  Begin or xCreate
0230: 2e 0a 23 20 54 69 63 6b 65 74 20 23 33 30 38 33  ..# Ticket #3083
0240: 2e 0a 23 0a 23 20 24 49 64 3a 20 76 74 61 62 43  ..#.# $Id: vtabC
0250: 2e 74 65 73 74 2c 76 20 31 2e 32 20 32 30 30 39  .test,v 1.2 2009
0260: 2f 30 34 2f 30 37 20 31 34 3a 31 34 3a 32 33 20  /04/07 14:14:23 
0270: 64 61 6e 69 65 6c 6b 31 39 37 37 20 45 78 70 20  danielk1977 Exp 
0280: 24 0a 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b  $..set testdir [
0290: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72  file dirname $ar
02a0: 67 76 30 5d 0a 73 6f 75 72 63 65 20 24 74 65 73  gv0].source $tes
02b0: 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a  tdir/tester.tcl.
02c0: 0a 69 66 63 61 70 61 62 6c 65 20 21 76 74 61 62  .ifcapable !vtab
02d0: 20 7b 0a 20 20 66 69 6e 69 73 68 5f 74 65 73 74   {.  finish_test
02e0: 0a 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 69 66 63  .  return.}..ifc
02f0: 61 70 61 62 6c 65 20 21 74 72 69 67 67 65 72 20  apable !trigger 
0300: 7b 20 66 69 6e 69 73 68 5f 74 65 73 74 20 3b 20  { finish_test ; 
0310: 72 65 74 75 72 6e 20 7d 0a 0a 0a 23 20 4e 20 77  return }...# N w
0320: 69 6c 6c 20 62 65 20 74 68 65 20 6e 75 6d 62 65  ill be the numbe
0330: 72 20 6f 66 20 76 69 72 74 75 61 6c 20 74 61 62  r of virtual tab
0340: 6c 65 73 20 77 65 20 68 61 76 65 20 64 65 66 69  les we have defi
0350: 6e 65 64 2e 0a 23 0a 75 6e 73 65 74 20 2d 6e 6f  ned..#.unset -no
0360: 63 6f 6d 70 6c 61 69 6e 20 4e 0a 66 6f 72 20 7b  complain N.for {
0370: 73 65 74 20 4e 20 31 7d 20 7b 24 4e 3c 3d 32 30  set N 1} {$N<=20
0380: 7d 20 7b 69 6e 63 72 20 4e 7d 20 7b 0a 20 20 64  } {incr N} {.  d
0390: 62 20 63 6c 6f 73 65 0a 20 20 66 69 6c 65 20 64  b close.  file d
03a0: 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73  elete -force tes
03b0: 74 2e 64 62 20 74 65 73 74 2e 64 62 2d 6a 6f 75  t.db test.db-jou
03c0: 72 6e 61 6c 0a 20 20 73 71 6c 69 74 65 33 20 64  rnal.  sqlite3 d
03d0: 62 20 74 65 73 74 2e 64 62 0a 20 20 72 65 67 69  b test.db.  regi
03e0: 73 74 65 72 5f 65 63 68 6f 5f 6d 6f 64 75 6c 65  ster_echo_module
03f0: 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63   [sqlite3_connec
0400: 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d  tion_pointer db]
0410: 0a 0a 20 20 23 20 43 72 65 61 74 65 20 24 4e 20  ..  # Create $N 
0420: 74 61 62 6c 65 73 20 61 6e 64 20 24 4e 20 76 69  tables and $N vi
0430: 72 74 75 61 6c 20 74 61 62 6c 65 73 20 74 6f 20  rtual tables to 
0440: 65 63 68 6f 20 74 68 65 6d 2e 0a 20 20 23 0a 20  echo them..  #. 
0450: 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61   unset -nocompla
0460: 69 6e 20 74 61 62 6c 69 73 74 0a 20 20 73 65 74  in tablist.  set
0470: 20 74 61 62 6c 69 73 74 20 7b 7d 0a 20 20 64 6f   tablist {}.  do
0480: 5f 74 65 73 74 20 76 74 61 62 43 2d 31 2e 24 4e  _test vtabC-1.$N
0490: 2e 31 20 7b 0a 20 20 20 20 66 6f 72 20 7b 73 65  .1 {.    for {se
04a0: 74 20 69 20 31 7d 20 7b 24 69 3c 3d 24 3a 3a 4e  t i 1} {$i<=$::N
04b0: 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20  } {incr i} {.   
04c0: 20 20 20 65 78 65 63 73 71 6c 20 22 43 52 45 41     execsql "CREA
04d0: 54 45 20 54 41 42 4c 45 20 74 24 7b 69 7d 28 78  TE TABLE t${i}(x
04e0: 29 22 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c  )".      execsql
04f0: 20 22 43 52 45 41 54 45 20 56 49 52 54 55 41 4c   "CREATE VIRTUAL
0500: 20 54 41 42 4c 45 20 76 74 24 69 20 55 53 49 4e   TABLE vt$i USIN
0510: 47 20 65 63 68 6f 28 74 24 69 29 22 0a 20 20 20  G echo(t$i)".   
0520: 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 61 62     lappend ::tab
0530: 6c 69 73 74 20 74 24 69 20 76 74 24 69 0a 20 20  list t$i vt$i.  
0540: 20 20 7d 0a 20 20 20 20 65 78 65 63 73 71 6c 20    }.    execsql 
0550: 7b 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29  {SELECT count(*)
0560: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
0570: 74 65 72 7d 0a 20 20 7d 20 5b 65 78 70 72 20 7b  ter}.  } [expr {
0580: 24 4e 2a 32 7d 5d 0a 20 20 64 6f 5f 74 65 73 74  $N*2}].  do_test
0590: 20 76 74 61 62 43 2d 31 2e 24 4e 2e 32 20 7b 0a   vtabC-1.$N.2 {.
05a0: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c      execsql {SEL
05b0: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
05c0: 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a 20 20 7d  lite_master}.  }
05d0: 20 24 74 61 62 6c 69 73 74 0a 0a 20 20 23 20 43   $tablist..  # C
05e0: 72 65 61 74 65 20 61 20 74 61 62 6c 65 20 6d 20  reate a table m 
05f0: 61 6e 64 20 61 64 64 20 74 72 69 67 67 65 72 73  and add triggers
0600: 20 74 6f 20 6d 61 6b 65 20 63 68 61 6e 67 65 73   to make changes
0610: 20 6f 6e 20 61 6c 6c 0a 20 20 23 20 6f 66 20 74   on all.  # of t
0620: 68 65 20 76 69 72 74 75 61 6c 20 74 61 62 6c 65  he virtual table
0630: 73 20 77 68 65 6e 20 6d 20 69 73 20 63 68 61 6e  s when m is chan
0640: 67 65 64 2e 0a 20 20 23 0a 20 20 64 6f 5f 74 65  ged..  #.  do_te
0650: 73 74 20 76 74 61 62 43 2d 31 2e 24 4e 2e 33 20  st vtabC-1.$N.3 
0660: 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 43  {.    execsql {C
0670: 52 45 41 54 45 20 54 41 42 4c 45 20 6d 28 61 29  REATE TABLE m(a)
0680: 7d 0a 20 20 20 20 73 65 74 20 73 71 6c 20 22 43  }.    set sql "C
0690: 52 45 41 54 45 20 54 52 49 47 47 45 52 20 72 69  REATE TRIGGER ri
06a0: 6e 73 20 41 46 54 45 52 20 49 4e 53 45 52 54 20  ns AFTER INSERT 
06b0: 4f 4e 20 6d 20 42 45 47 49 4e 5c 6e 22 0a 20 20  ON m BEGIN\n".  
06c0: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 31 7d 20    for {set i 1} 
06d0: 7b 24 69 3c 3d 24 3a 3a 4e 7d 20 7b 69 6e 63 72  {$i<=$::N} {incr
06e0: 20 69 7d 20 7b 0a 20 20 20 20 20 20 61 70 70 65   i} {.      appe
06f0: 6e 64 20 73 71 6c 20 22 20 20 49 4e 53 45 52 54  nd sql "  INSERT
0700: 20 49 4e 54 4f 20 76 74 24 69 20 56 41 4c 55 45   INTO vt$i VALUE
0710: 53 28 4e 45 57 2e 61 2b 24 69 29 3b 5c 6e 22 0a  S(NEW.a+$i);\n".
0720: 20 20 20 20 7d 0a 20 20 20 20 61 70 70 65 6e 64      }.    append
0730: 20 73 71 6c 20 22 45 4e 44 3b 22 0a 20 20 20 20   sql "END;".    
0740: 65 78 65 63 73 71 6c 20 24 73 71 6c 0a 20 20 20  execsql $sql.   
0750: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
0760: 20 63 6f 75 6e 74 28 2a 29 20 46 52 4f 4d 20 73   count(*) FROM s
0770: 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a 20 20  qlite_master}.  
0780: 7d 20 5b 65 78 70 72 20 7b 24 4e 2a 32 2b 32 7d  } [expr {$N*2+2}
0790: 5d 0a 20 20 64 6f 5f 74 65 73 74 20 76 74 61 62  ].  do_test vtab
07a0: 43 2d 31 2e 24 4e 2e 34 20 7b 0a 20 20 20 20 65  C-1.$N.4 {.    e
07b0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 49  xecsql {.      I
07c0: 4e 53 45 52 54 20 49 4e 54 4f 20 6d 20 56 41 4c  NSERT INTO m VAL
07d0: 55 45 53 28 31 30 30 30 29 3b 0a 20 20 20 20 20  UES(1000);.     
07e0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 6d   SELECT * FROM m
07f0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 31 30 30  ;.    }.  } {100
0800: 30 7d 0a 20 20 66 6f 72 20 7b 73 65 74 20 6a 20  0}.  for {set j 
0810: 31 7d 20 7b 24 6a 3c 3d 24 3a 3a 4e 7d 20 7b 69  1} {$j<=$::N} {i
0820: 6e 63 72 20 6a 7d 20 7b 0a 20 20 20 20 64 6f 5f  ncr j} {.    do_
0830: 74 65 73 74 20 76 74 61 62 43 2d 31 2e 24 4e 2e  test vtabC-1.$N.
0840: 35 2e 24 6a 20 7b 0a 20 20 20 20 20 20 65 78 65  5.$j {.      exe
0850: 63 73 71 6c 20 22 53 45 4c 45 43 54 20 2a 20 46  csql "SELECT * F
0860: 52 4f 4d 20 74 24 3a 3a 6a 22 0a 20 20 20 20 7d  ROM t$::j".    }
0870: 20 5b 65 78 70 72 20 7b 24 6a 2b 31 30 30 30 7d   [expr {$j+1000}
0880: 5d 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 76 74  ].    do_test vt
0890: 61 62 43 2d 31 2e 24 4e 2e 36 2e 24 6a 20 7b 0a  abC-1.$N.6.$j {.
08a0: 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 22 53        execsql "S
08b0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 76 74 24  ELECT * FROM vt$
08c0: 3a 3a 6a 22 0a 20 20 20 20 7d 20 5b 65 78 70 72  ::j".    } [expr
08d0: 20 7b 24 6a 2b 31 30 30 30 7d 5d 0a 20 20 7d 0a   {$j+1000}].  }.
08e0: 20 20 64 6f 5f 74 65 73 74 20 76 74 61 62 43 2d    do_test vtabC-
08f0: 31 2e 24 4e 2e 37 20 7b 0a 20 20 20 20 73 65 74  1.$N.7 {.    set
0900: 20 73 71 6c 20 22 43 52 45 41 54 45 20 54 52 49   sql "CREATE TRI
0910: 47 47 45 52 20 72 69 6e 73 32 20 42 45 46 4f 52  GGER rins2 BEFOR
0920: 45 20 49 4e 53 45 52 54 20 4f 4e 20 6d 20 42 45  E INSERT ON m BE
0930: 47 49 4e 5c 6e 22 0a 20 20 20 20 66 6f 72 20 7b  GIN\n".    for {
0940: 73 65 74 20 69 20 31 7d 20 7b 24 69 3c 3d 24 3a  set i 1} {$i<=$:
0950: 3a 4e 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  :N} {incr i} {. 
0960: 20 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20       append sql 
0970: 22 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 76  "  INSERT INTO v
0980: 74 24 69 20 56 41 4c 55 45 53 28 4e 45 57 2e 61  t$i VALUES(NEW.a
0990: 2b 24 69 2a 31 30 30 29 3b 5c 6e 22 0a 20 20 20  +$i*100);\n".   
09a0: 20 7d 0a 20 20 20 20 66 6f 72 20 7b 73 65 74 20   }.    for {set 
09b0: 69 20 31 7d 20 7b 24 69 3c 3d 24 3a 3a 4e 7d 20  i 1} {$i<=$::N} 
09c0: 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 20  {incr i} {.     
09d0: 20 61 70 70 65 6e 64 20 73 71 6c 20 22 20 20 49   append sql "  I
09e0: 4e 53 45 52 54 20 49 4e 54 4f 20 76 74 24 69 20  NSERT INTO vt$i 
09f0: 56 41 4c 55 45 53 28 4e 45 57 2e 61 2b 24 69 2a  VALUES(NEW.a+$i*
0a00: 31 30 30 30 30 29 3b 5c 6e 22 0a 20 20 20 20 7d  10000);\n".    }
0a10: 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20  .    append sql 
0a20: 22 45 4e 44 3b 22 0a 20 20 20 20 65 78 65 63 73  "END;".    execs
0a30: 71 6c 20 24 73 71 6c 0a 20 20 20 20 65 78 65 63  ql $sql.    exec
0a40: 73 71 6c 20 7b 53 45 4c 45 43 54 20 63 6f 75 6e  sql {SELECT coun
0a50: 74 28 2a 29 20 46 52 4f 4d 20 73 71 6c 69 74 65  t(*) FROM sqlite
0a60: 5f 6d 61 73 74 65 72 7d 0a 20 20 7d 20 5b 65 78  _master}.  } [ex
0a70: 70 72 20 7b 24 4e 2a 32 2b 33 7d 5d 0a 20 20 64  pr {$N*2+3}].  d
0a80: 6f 5f 74 65 73 74 20 76 74 61 62 43 2d 31 2e 24  o_test vtabC-1.$
0a90: 4e 2e 38 20 7b 0a 20 20 20 20 65 78 65 63 73 71  N.8 {.    execsq
0aa0: 6c 20 7b 0a 20 20 20 20 20 20 49 4e 53 45 52 54  l {.      INSERT
0ab0: 20 49 4e 54 4f 20 6d 20 56 41 4c 55 45 53 28 39   INTO m VALUES(9
0ac0: 30 30 30 30 30 30 29 3b 0a 20 20 20 20 20 20 53  000000);.      S
0ad0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 6d 3b 0a  ELECT * FROM m;.
0ae0: 20 20 20 20 7d 0a 20 20 7d 20 7b 31 30 30 30 20      }.  } {1000 
0af0: 39 30 30 30 30 30 30 7d 0a 20 20 75 6e 73 65 74  9000000}.  unset
0b00: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73   -nocomplain res
0b10: 0a 20 20 66 6f 72 20 7b 73 65 74 20 6a 20 31 7d  .  for {set j 1}
0b20: 20 7b 24 6a 3c 3d 24 3a 3a 4e 7d 20 7b 69 6e 63   {$j<=$::N} {inc
0b30: 72 20 6a 7d 20 7b 0a 20 20 20 20 73 65 74 20 72  r j} {.    set r
0b40: 65 73 20 5b 65 78 70 72 20 7b 24 6a 2b 31 30 30  es [expr {$j+100
0b50: 30 7d 5d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20  0}].    lappend 
0b60: 72 65 73 20 5b 65 78 70 72 20 7b 24 6a 2a 31 30  res [expr {$j*10
0b70: 30 2b 39 30 30 30 30 30 30 7d 5d 0a 20 20 20 20  0+9000000}].    
0b80: 6c 61 70 70 65 6e 64 20 72 65 73 20 5b 65 78 70  lappend res [exp
0b90: 72 20 7b 24 6a 2a 31 30 30 30 30 2b 39 30 30 30  r {$j*10000+9000
0ba0: 30 30 30 7d 5d 0a 20 20 20 20 6c 61 70 70 65 6e  000}].    lappen
0bb0: 64 20 72 65 73 20 5b 65 78 70 72 20 7b 24 6a 2b  d res [expr {$j+
0bc0: 39 30 30 30 30 30 30 7d 5d 0a 20 20 20 20 64 6f  9000000}].    do
0bd0: 5f 74 65 73 74 20 76 74 61 62 43 2d 31 2e 24 4e  _test vtabC-1.$N
0be0: 2e 39 2e 24 6a 20 7b 0a 20 20 20 20 20 20 65 78  .9.$j {.      ex
0bf0: 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20 2a 20  ecsql "SELECT * 
0c00: 46 52 4f 4d 20 74 24 3a 3a 6a 22 0a 20 20 20 20  FROM t$::j".    
0c10: 7d 20 24 72 65 73 0a 20 20 20 20 64 6f 5f 74 65  } $res.    do_te
0c20: 73 74 20 76 74 61 62 43 2d 31 2e 24 4e 2e 31 30  st vtabC-1.$N.10
0c30: 2e 24 6a 20 7b 0a 20 20 20 20 20 20 65 78 65 63  .$j {.      exec
0c40: 73 71 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 52  sql "SELECT * FR
0c50: 4f 4d 20 76 74 24 3a 3a 6a 22 0a 20 20 20 20 7d  OM vt$::j".    }
0c60: 20 24 72 65 73 0a 20 20 7d 0a 7d 0a 75 6e 73 65   $res.  }.}.unse
0c70: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
0c80: 73 20 4e 20 69 20 6a 0a 0a 0a 66 69 6e 69 73 68  s N i j...finish
0c90: 5f 74 65 73 74 0a                                _test.