/ Hex Artifact Content
Login

Artifact 70c6f4a1d6177144a8236e4172d5fba92e683440374664ad1f04851fbb335d3c:


0000: 23 20 32 30 30 36 20 4a 75 6c 79 20 32 35 0a 23  # 2006 July 25.#
0010: 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20 64 69  .# The author di
0020: 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68  sclaims copyrigh
0030: 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65  t to this source
0040: 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65   code.  In place
0050: 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f   of.# a legal no
0060: 74 69 63 65 2c 20 68 65 72 65 20 69 73 20 61 20  tice, here is a 
0070: 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20  blessing:.#.#   
0080: 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64   May you do good
0090: 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23   and not evil..#
00a0: 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64      May you find
00b0: 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72   forgiveness for
00c0: 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f   yourself and fo
00d0: 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20  rgive others..# 
00e0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65     May you share
00f0: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74   freely, never t
0100: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20  aking more than 
0110: 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 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 0a 23 20 54 68 69 73 20 66 69 6c 65  ****.# This file
0170: 20 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67 72   implements regr
0180: 65 73 73 69 6f 6e 20 74 65 73 74 73 20 66 6f 72  ession tests for
0190: 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e   SQLite library.
01a0: 20 54 68 65 20 66 6f 63 75 73 0a 23 20 6f 66 20   The focus.# of 
01b0: 74 68 69 73 20 74 65 73 74 20 69 73 20 72 65 61  this test is rea
01c0: 64 69 6e 67 20 61 6e 64 20 77 72 69 74 69 6e 67  ding and writing
01d0: 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65   to the database
01e0: 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 61 0a 23   from within a.#
01f0: 20 76 69 72 74 75 61 6c 20 74 61 62 6c 65 20 78   virtual table x
0200: 53 79 6e 63 28 29 20 63 61 6c 6c 62 61 63 6b 2e  Sync() callback.
0210: 0a 23 0a 23 20 24 49 64 3a 20 76 74 61 62 37 2e  .#.# $Id: vtab7.
0220: 74 65 73 74 2c 76 20 31 2e 34 20 32 30 30 37 2f  test,v 1.4 2007/
0230: 31 32 2f 30 34 20 31 36 3a 35 34 3a 35 33 20 64  12/04 16:54:53 d
0240: 72 68 20 45 78 70 20 24 0a 0a 73 65 74 20 74 65  rh Exp $..set te
0250: 73 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e  stdir [file dirn
0260: 61 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f 75 72  ame $argv0].sour
0270: 63 65 20 24 74 65 73 74 64 69 72 2f 74 65 73 74  ce $testdir/test
0280: 65 72 2e 74 63 6c 0a 0a 69 66 63 61 70 61 62 6c  er.tcl..ifcapabl
0290: 65 20 21 76 74 61 62 20 7b 0a 20 20 66 69 6e 69  e !vtab {.  fini
02a0: 73 68 5f 74 65 73 74 0a 20 20 72 65 74 75 72 6e  sh_test.  return
02b0: 0a 7d 0a 0a 23 20 52 65 67 69 73 74 65 72 20 74  .}..# Register t
02c0: 68 65 20 65 63 68 6f 20 6d 6f 64 75 6c 65 2e 20  he echo module. 
02d0: 43 6f 64 65 20 69 6e 73 69 64 65 20 74 68 65 20  Code inside the 
02e0: 65 63 68 6f 20 6d 6f 64 75 6c 65 20 61 70 70 65  echo module appe
02f0: 6e 64 73 20 65 6c 65 6d 65 6e 74 73 0a 23 20 74  nds elements.# t
0300: 6f 20 74 68 65 20 67 6c 6f 62 61 6c 20 74 63 6c  o the global tcl
0310: 20 6c 69 73 74 20 76 61 72 69 61 62 6c 65 20 3a   list variable :
0320: 3a 65 63 68 6f 5f 6d 6f 64 75 6c 65 20 77 68 65  :echo_module whe
0330: 6e 65 76 65 72 20 53 51 4c 69 74 65 20 69 6e 76  never SQLite inv
0340: 6f 6b 65 73 0a 23 20 63 65 72 74 61 69 6e 20 6d  okes.# certain m
0350: 6f 64 75 6c 65 20 63 61 6c 6c 62 61 63 6b 73 2e  odule callbacks.
0360: 20 54 68 69 73 20 69 6e 63 6c 75 64 65 73 20 74   This includes t
0370: 68 65 20 78 53 79 6e 63 28 29 2c 20 78 43 6f 6d  he xSync(), xCom
0380: 6d 69 74 28 29 20 61 6e 64 20 0a 23 20 78 52 6f  mit() and .# xRo
0390: 6c 6c 62 61 63 6b 28 29 20 63 61 6c 6c 62 61 63  llback() callbac
03a0: 6b 73 2e 20 46 6f 72 20 65 61 63 68 20 6f 66 20  ks. For each of 
03b0: 74 68 65 73 65 20 63 61 6c 6c 62 61 63 6b 2c 20  these callback, 
03c0: 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 61 72 65  two elements are
03d0: 0a 23 20 61 70 70 65 6e 64 65 64 20 74 6f 20 3a  .# appended to :
03e0: 3a 65 63 68 6f 5f 6d 6f 64 75 6c 65 2c 20 61 73  :echo_module, as
03f0: 20 66 6f 6c 6c 6f 77 73 3a 0a 23 0a 23 20 20 20   follows:.#.#   
0400: 20 20 4d 6f 64 75 6c 65 20 6d 65 74 68 6f 64 20    Module method 
0410: 20 20 20 20 20 20 20 45 6c 65 6d 65 6e 74 73 20         Elements 
0420: 61 70 70 65 6e 64 65 64 20 74 6f 20 3a 3a 65 63  appended to ::ec
0430: 68 6f 5f 6d 6f 64 75 6c 65 0a 23 20 20 20 20 20  ho_module.#     
0440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0470: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 20 20 20 20 78 53  -------.#     xS
0480: 79 6e 63 28 29 20 20 20 20 20 20 20 20 20 20 20  ync()           
0490: 20 20 20 78 53 79 6e 63 20 65 63 68 6f 28 24 74     xSync echo($t
04a0: 61 62 6c 65 6e 61 6d 65 29 0a 23 20 20 20 20 20  ablename).#     
04b0: 78 43 6f 6d 6d 69 74 28 29 20 20 20 20 20 20 20  xCommit()       
04c0: 20 20 20 20 20 78 43 6f 6d 6d 69 74 20 65 63 68       xCommit ech
04d0: 6f 28 24 74 61 62 6c 65 6e 61 6d 65 29 0a 23 20  o($tablename).# 
04e0: 20 20 20 20 78 52 6f 6c 6c 62 61 63 6b 28 29 20      xRollback() 
04f0: 20 20 20 20 20 20 20 20 20 78 52 6f 6c 6c 62 61           xRollba
0500: 63 6b 20 65 63 68 6f 28 24 74 61 62 6c 65 6e 61  ck echo($tablena
0510: 6d 65 29 0a 23 20 20 20 20 20 2d 2d 2d 2d 2d 2d  me).#     ------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0550: 2d 0a 23 0a 23 20 49 6e 20 65 61 63 68 20 63 61  -.#.# In each ca
0560: 73 65 2c 20 24 74 61 62 6c 65 6e 61 6d 65 20 69  se, $tablename i
0570: 73 20 72 65 70 6c 61 63 65 64 20 62 79 20 74 68  s replaced by th
0580: 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 72 65  e name of the re
0590: 61 6c 20 74 61 62 6c 65 20 28 6e 6f 74 0a 23 20  al table (not.# 
05a0: 74 68 65 20 65 63 68 6f 20 74 61 62 6c 65 29 2e  the echo table).
05b0: 20 42 79 20 73 65 74 74 69 6e 67 20 75 70 20 61   By setting up a
05c0: 20 74 63 6c 20 74 72 61 63 65 20 6f 6e 20 74 68   tcl trace on th
05d0: 65 20 3a 3a 65 63 68 6f 5f 6d 6f 64 75 6c 65 20  e ::echo_module 
05e0: 76 61 72 69 61 62 6c 65 2c 0a 23 20 63 6f 64 65  variable,.# code
05f0: 20 69 6e 20 74 68 69 73 20 66 69 6c 65 20 61 72   in this file ar
0600: 72 61 6e 67 65 73 20 66 6f 72 20 61 20 54 63 6c  ranges for a Tcl
0610: 20 73 63 72 69 70 74 20 74 6f 20 62 65 20 65 78   script to be ex
0620: 65 63 75 74 65 64 20 66 72 6f 6d 20 77 69 74 68  ecuted from with
0630: 69 6e 0a 23 20 74 68 65 20 65 63 68 6f 20 6d 6f  in.# the echo mo
0640: 64 75 6c 65 20 78 53 79 6e 63 28 29 20 63 61 6c  dule xSync() cal
0650: 6c 62 61 63 6b 2e 0a 23 0a 72 65 67 69 73 74 65  lback..#.registe
0660: 72 5f 65 63 68 6f 5f 6d 6f 64 75 6c 65 20 5b 73  r_echo_module [s
0670: 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f  qlite3_connectio
0680: 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 74 72  n_pointer db].tr
0690: 61 63 65 20 61 64 64 20 76 61 72 69 61 62 6c 65  ace add variable
06a0: 20 3a 3a 65 63 68 6f 5f 6d 6f 64 75 6c 65 20 77   ::echo_module w
06b0: 72 69 74 65 20 65 63 68 6f 5f 6d 6f 64 75 6c 65  rite echo_module
06c0: 5f 74 72 61 63 65 0a 0a 23 20 54 68 69 73 20 54  _trace..# This T
06d0: 63 6c 20 70 72 6f 63 20 69 73 20 69 6e 76 6f 6b  cl proc is invok
06e0: 65 64 20 77 68 65 6e 65 76 65 72 20 74 68 65 20  ed whenever the 
06f0: 3a 3a 65 63 68 6f 5f 6d 6f 64 75 6c 65 20 76 61  ::echo_module va
0700: 72 69 61 62 6c 65 20 69 73 20 77 72 69 74 74 65  riable is writte
0710: 6e 2e 0a 23 0a 70 72 6f 63 20 65 63 68 6f 5f 6d  n..#.proc echo_m
0720: 6f 64 75 6c 65 5f 74 72 61 63 65 20 7b 61 72 67  odule_trace {arg
0730: 73 7d 20 7b 0a 20 20 23 20 46 69 6c 74 65 72 20  s} {.  # Filter 
0740: 6f 75 74 20 77 72 69 74 65 73 20 74 6f 20 3a 3a  out writes to ::
0750: 65 63 68 6f 5f 6d 6f 64 75 6c 65 20 74 68 61 74  echo_module that
0760: 20 61 72 65 20 6e 6f 74 20 78 53 79 6e 63 2c 20   are not xSync, 
0770: 78 43 6f 6d 6d 69 74 20 6f 72 20 0a 20 20 23 20  xCommit or .  # 
0780: 78 52 6f 6c 6c 62 61 63 6b 20 63 61 6c 6c 62 61  xRollback callba
0790: 63 6b 73 2e 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e  cks..  if {[llen
07a0: 67 74 68 20 24 3a 3a 65 63 68 6f 5f 6d 6f 64 75  gth $::echo_modu
07b0: 6c 65 5d 20 3c 20 32 7d 20 72 65 74 75 72 6e 0a  le] < 2} return.
07c0: 20 20 73 65 74 20 78 20 5b 6c 69 6e 64 65 78 20    set x [lindex 
07d0: 24 3a 3a 65 63 68 6f 5f 6d 6f 64 75 6c 65 20 65  $::echo_module e
07e0: 6e 64 2d 31 5d 0a 20 20 69 66 20 7b 24 78 20 6e  nd-1].  if {$x n
07f0: 65 20 22 78 53 79 6e 63 22 20 26 26 20 24 78 20  e "xSync" && $x 
0800: 6e 65 20 22 78 43 6f 6d 6d 69 74 22 20 26 26 20  ne "xCommit" && 
0810: 24 78 20 6e 65 20 22 78 52 6f 6c 6c 62 61 63 6b  $x ne "xRollback
0820: 22 7d 20 72 65 74 75 72 6e 0a 0a 20 20 72 65 67  "} return..  reg
0830: 65 78 70 20 7b 5e 65 63 68 6f 2e 28 2e 2a 29 2e  exp {^echo.(.*).
0840: 24 7d 20 5b 6c 69 6e 64 65 78 20 24 3a 3a 65 63  $} [lindex $::ec
0850: 68 6f 5f 6d 6f 64 75 6c 65 20 65 6e 64 5d 20 64  ho_module end] d
0860: 75 6d 6d 79 20 74 61 62 6c 65 6e 61 6d 65 0a 20  ummy tablename. 
0870: 20 23 20 70 75 74 73 20 22 4c 61 64 69 65 73 20   # puts "Ladies 
0880: 61 6e 64 20 67 65 6e 74 6c 65 6d 65 6e 2c 20 61  and gentlemen, a
0890: 6e 20 24 78 20 6f 6e 20 24 74 61 62 6c 65 6e 61  n $x on $tablena
08a0: 6d 65 21 22 0a 0a 20 20 69 66 20 7b 5b 69 6e 66  me!"..  if {[inf
08b0: 6f 20 65 78 69 73 74 73 20 3a 3a 63 61 6c 6c 62  o exists ::callb
08c0: 61 63 6b 73 28 24 78 2c 24 74 61 62 6c 65 6e 61  acks($x,$tablena
08d0: 6d 65 29 5d 7d 20 7b 0a 20 20 20 20 65 76 61 6c  me)]} {.    eval
08e0: 20 24 3a 3a 63 61 6c 6c 62 61 63 6b 73 28 24 78   $::callbacks($x
08f0: 2c 24 74 61 62 6c 65 6e 61 6d 65 29 0a 20 20 7d  ,$tablename).  }
0900: 0a 7d 0a 0a 23 20 54 68 65 20 66 6f 6c 6c 6f 77  .}..# The follow
0910: 69 6e 67 20 74 65 73 74 73 2c 20 76 74 61 62 37  ing tests, vtab7
0920: 2d 31 2e 2a 2c 20 74 65 73 74 20 74 68 61 74 20  -1.*, test that 
0930: 74 68 65 20 74 72 61 63 65 20 63 61 6c 6c 62 61  the trace callba
0940: 63 6b 20 6f 6e 20 0a 23 20 3a 3a 65 63 68 6f 5f  ck on .# ::echo_
0950: 6d 6f 64 75 6c 65 20 69 73 20 70 72 6f 76 69 64  module is provid
0960: 69 6e 67 20 74 68 65 20 65 78 70 65 63 74 65 64  ing the expected
0970: 20 74 63 6c 20 63 61 6c 6c 62 61 63 6b 73 2e 0a   tcl callbacks..
0980: 64 6f 5f 74 65 73 74 20 76 74 61 62 37 2d 31 2e  do_test vtab7-1.
0990: 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  1 {.  execsql {.
09a0: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
09b0: 20 61 62 63 28 61 2c 20 62 2c 20 63 29 3b 0a 20   abc(a, b, c);. 
09c0: 20 20 20 43 52 45 41 54 45 20 56 49 52 54 55 41     CREATE VIRTUA
09d0: 4c 20 54 41 42 4c 45 20 61 62 63 32 20 55 53 49  L TABLE abc2 USI
09e0: 4e 47 20 65 63 68 6f 28 61 62 63 29 3b 0a 20 20  NG echo(abc);.  
09f0: 7d 0a 7d 20 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20  }.} {}..do_test 
0a00: 76 74 61 62 37 2d 31 2e 32 20 7b 0a 20 20 73 65  vtab7-1.2 {.  se
0a10: 74 20 3a 3a 63 61 6c 6c 62 61 63 6b 73 28 78 53  t ::callbacks(xS
0a20: 79 6e 63 2c 61 62 63 29 20 7b 69 6e 63 72 20 3a  ync,abc) {incr :
0a30: 3a 63 6f 75 6e 74 65 72 7d 0a 20 20 73 65 74 20  :counter}.  set 
0a40: 3a 3a 63 6f 75 6e 74 65 72 20 30 0a 20 20 65 78  ::counter 0.  ex
0a50: 65 63 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53 45  ecsql {.    INSE
0a60: 52 54 20 49 4e 54 4f 20 61 62 63 32 20 56 41 4c  RT INTO abc2 VAL
0a70: 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 0a 20 20  UES(1, 2, 3);.  
0a80: 7d 0a 20 20 73 65 74 20 3a 3a 63 6f 75 6e 74 65  }.  set ::counte
0a90: 72 0a 7d 20 7b 31 7d 0a 0a 23 20 57 72 69 74 65  r.} {1}..# Write
0aa0: 20 74 6f 20 61 6e 20 65 78 69 73 74 69 6e 67 20   to an existing 
0ab0: 64 61 74 61 62 61 73 65 20 74 61 62 6c 65 20 66  database table f
0ac0: 72 6f 6d 20 77 69 74 68 69 6e 20 61 6e 20 78 53  rom within an xS
0ad0: 79 6e 63 20 63 61 6c 6c 62 61 63 6b 2e 0a 64 6f  ync callback..do
0ae0: 5f 74 65 73 74 20 76 74 61 62 37 2d 32 2e 31 20  _test vtab7-2.1 
0af0: 7b 0a 20 20 73 65 74 20 3a 3a 63 61 6c 6c 62 61  {.  set ::callba
0b00: 63 6b 73 28 78 53 79 6e 63 2c 61 62 63 29 20 7b  cks(xSync,abc) {
0b10: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 49 4e  .    execsql {IN
0b20: 53 45 52 54 20 49 4e 54 4f 20 6c 6f 67 20 56 41  SERT INTO log VA
0b30: 4c 55 45 53 28 27 78 53 79 6e 63 27 29 3b 7d 0a  LUES('xSync');}.
0b40: 20 20 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a    }.  execsql {.
0b50: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
0b60: 20 6c 6f 67 28 6d 73 67 29 3b 0a 20 20 20 20 49   log(msg);.    I
0b70: 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 32 20  NSERT INTO abc2 
0b80: 56 41 4c 55 45 53 28 34 2c 20 35 2c 20 36 29 3b  VALUES(4, 5, 6);
0b90: 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52  .    SELECT * FR
0ba0: 4f 4d 20 6c 6f 67 3b 0a 20 20 7d 0a 7d 20 7b 78  OM log;.  }.} {x
0bb0: 53 79 6e 63 7d 0a 64 6f 5f 74 65 73 74 20 76 74  Sync}.do_test vt
0bc0: 61 62 37 2d 32 2e 33 20 7b 0a 20 20 65 78 65 63  ab7-2.3 {.  exec
0bd0: 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53 45 52 54  sql {.    INSERT
0be0: 20 49 4e 54 4f 20 61 62 63 32 20 56 41 4c 55 45   INTO abc2 VALUE
0bf0: 53 28 34 2c 20 35 2c 20 36 29 3b 0a 20 20 20 20  S(4, 5, 6);.    
0c00: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 6c 6f  SELECT * FROM lo
0c10: 67 3b 0a 20 20 7d 0a 7d 20 7b 78 53 79 6e 63 20  g;.  }.} {xSync 
0c20: 78 53 79 6e 63 7d 0a 64 6f 5f 74 65 73 74 20 76  xSync}.do_test v
0c30: 74 61 62 37 2d 32 2e 34 20 7b 0a 20 20 65 78 65  tab7-2.4 {.  exe
0c40: 63 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53 45 52  csql {.    INSER
0c50: 54 20 49 4e 54 4f 20 61 62 63 32 20 56 41 4c 55  T INTO abc2 VALU
0c60: 45 53 28 34 2c 20 35 2c 20 36 29 3b 0a 20 20 20  ES(4, 5, 6);.   
0c70: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 6c   SELECT * FROM l
0c80: 6f 67 3b 0a 20 20 7d 0a 7d 20 7b 78 53 79 6e 63  og;.  }.} {xSync
0c90: 20 78 53 79 6e 63 20 78 53 79 6e 63 7d 0a 0a 23   xSync xSync}..#
0ca0: 20 43 72 65 61 74 65 20 61 20 64 61 74 61 62 61   Create a databa
0cb0: 73 65 20 74 61 62 6c 65 20 66 72 6f 6d 20 77 69  se table from wi
0cc0: 74 68 69 6e 20 78 53 79 6e 63 20 63 61 6c 6c 62  thin xSync callb
0cd0: 61 63 6b 2e 0a 64 6f 5f 74 65 73 74 20 76 74 61  ack..do_test vta
0ce0: 62 37 2d 32 2e 35 20 7b 0a 20 20 73 65 74 20 3a  b7-2.5 {.  set :
0cf0: 3a 63 61 6c 6c 62 61 63 6b 73 28 78 53 79 6e 63  :callbacks(xSync
0d00: 2c 61 62 63 29 20 7b 0a 20 20 20 20 65 78 65 63  ,abc) {.    exec
0d10: 73 71 6c 20 7b 20 43 52 45 41 54 45 20 54 41 42  sql { CREATE TAB
0d20: 4c 45 20 6e 65 77 74 61 62 28 64 2c 20 65 2c 20  LE newtab(d, e, 
0d30: 66 29 3b 20 7d 0a 20 20 7d 0a 20 20 65 78 65 63  f); }.  }.  exec
0d40: 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53 45 52 54  sql {.    INSERT
0d50: 20 49 4e 54 4f 20 61 62 63 32 20 56 41 4c 55 45   INTO abc2 VALUE
0d60: 53 28 31 2c 20 32 2c 20 33 29 3b 0a 20 20 20 20  S(1, 2, 3);.    
0d70: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
0d80: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 4f   sqlite_master O
0d90: 52 44 45 52 20 42 59 20 6e 61 6d 65 3b 0a 20 20  RDER BY name;.  
0da0: 7d 0a 7d 20 7b 61 62 63 20 61 62 63 32 20 6c 6f  }.} {abc abc2 lo
0db0: 67 20 6e 65 77 74 61 62 7d 0a 0a 23 20 44 72 6f  g newtab}..# Dro
0dc0: 70 20 61 20 64 61 74 61 62 61 73 65 20 74 61 62  p a database tab
0dd0: 6c 65 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 78  le from within x
0de0: 53 79 6e 63 20 63 61 6c 6c 62 61 63 6b 2e 0a 23  Sync callback..#
0df0: 20 54 68 69 73 20 69 73 20 6e 6f 74 20 61 6c 6c   This is not all
0e00: 6f 77 65 64 2e 20 20 54 61 62 6c 65 73 20 63 61  owed.  Tables ca
0e10: 6e 6e 6f 74 20 62 65 20 64 72 6f 70 70 65 64 20  nnot be dropped 
0e20: 77 68 69 6c 65 0a 23 20 61 6e 79 20 6f 74 68 65  while.# any othe
0e30: 72 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 61  r statement is a
0e40: 63 74 69 76 65 2e 0a 23 0a 64 6f 5f 74 65 73 74  ctive..#.do_test
0e50: 20 76 74 61 62 37 2d 32 2e 36 20 7b 0a 20 20 73   vtab7-2.6 {.  s
0e60: 65 74 20 3a 3a 63 61 6c 6c 62 61 63 6b 73 28 78  et ::callbacks(x
0e70: 53 79 6e 63 2c 61 62 63 29 20 7b 0a 20 20 20 20  Sync,abc) {.    
0e80: 73 65 74 20 3a 3a 72 63 20 5b 63 61 74 63 68 73  set ::rc [catchs
0e90: 71 6c 20 7b 20 44 52 4f 50 20 54 41 42 4c 45 20  ql { DROP TABLE 
0ea0: 6e 65 77 74 61 62 20 7d 5d 0a 20 20 7d 0a 20 20  newtab }].  }.  
0eb0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 49 4e  execsql {.    IN
0ec0: 53 45 52 54 20 49 4e 54 4f 20 61 62 63 32 20 56  SERT INTO abc2 V
0ed0: 41 4c 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 0a  ALUES(1, 2, 3);.
0ee0: 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20      SELECT name 
0ef0: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
0f00: 65 72 20 4f 52 44 45 52 20 42 59 20 6e 61 6d 65  er ORDER BY name
0f10: 3b 0a 20 20 7d 0a 7d 20 7b 61 62 63 20 61 62 63  ;.  }.} {abc abc
0f20: 32 20 6c 6f 67 20 6e 65 77 74 61 62 7d 0a 64 6f  2 log newtab}.do
0f30: 5f 74 65 73 74 20 76 74 61 62 37 2d 32 2e 36 2e  _test vtab7-2.6.
0f40: 31 20 7b 0a 20 20 73 65 74 20 3a 3a 72 63 0a 7d  1 {.  set ::rc.}
0f50: 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20 74 61   {1 {database ta
0f60: 62 6c 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a  ble is locked}}.
0f70: 65 78 65 63 73 71 6c 20 7b 44 52 4f 50 20 54 41  execsql {DROP TA
0f80: 42 4c 45 20 6e 65 77 74 61 62 7d 0a 0a 23 20 57  BLE newtab}..# W
0f90: 72 69 74 65 20 74 6f 20 61 6e 20 61 74 74 61 63  rite to an attac
0fa0: 68 65 64 20 64 61 74 61 62 61 73 65 20 66 72 6f  hed database fro
0fb0: 6d 20 78 53 79 6e 63 28 29 2e 0a 69 66 63 61 70  m xSync()..ifcap
0fc0: 61 62 6c 65 20 61 74 74 61 63 68 20 7b 0a 20 20  able attach {.  
0fd0: 64 6f 5f 74 65 73 74 20 76 74 61 62 37 2d 33 2e  do_test vtab7-3.
0fe0: 31 20 7b 0a 20 20 20 20 66 6f 72 63 65 64 65 6c  1 {.    forcedel
0ff0: 65 74 65 20 74 65 73 74 32 2e 64 62 0a 20 20 20  ete test2.db.   
1000: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73   forcedelete tes
1010: 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20  t2.db-journal.  
1020: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
1030: 20 20 41 54 54 41 43 48 20 27 74 65 73 74 32 2e    ATTACH 'test2.
1040: 64 62 27 20 41 53 20 64 62 32 3b 0a 20 20 20 20  db' AS db2;.    
1050: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 64    CREATE TABLE d
1060: 62 32 2e 73 74 75 66 66 28 64 65 73 63 72 69 70  b2.stuff(descrip
1070: 74 69 6f 6e 2c 20 73 68 61 70 65 2c 20 63 6f 6c  tion, shape, col
1080: 6f 72 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73  or);.    }.    s
1090: 65 74 20 3a 3a 63 61 6c 6c 62 61 63 6b 73 28 78  et ::callbacks(x
10a0: 53 79 6e 63 2c 61 62 63 29 20 7b 0a 20 20 20 20  Sync,abc) {.    
10b0: 20 20 65 78 65 63 73 71 6c 20 7b 20 49 4e 53 45    execsql { INSE
10c0: 52 54 20 49 4e 54 4f 20 64 62 32 2e 73 74 75 66  RT INTO db2.stuf
10d0: 66 20 56 41 4c 55 45 53 28 27 61 62 63 27 2c 20  f VALUES('abc', 
10e0: 27 73 71 75 61 72 65 27 2c 20 27 67 72 65 65 6e  'square', 'green
10f0: 27 29 3b 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20  '); }.    }.    
1100: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20  execsql {.      
1110: 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 32  INSERT INTO abc2
1120: 20 56 41 4c 55 45 53 28 31 2c 20 32 2c 20 33 29   VALUES(1, 2, 3)
1130: 3b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 2a  ;.      SELECT *
1140: 20 66 72 6f 6d 20 73 74 75 66 66 3b 0a 20 20 20   from stuff;.   
1150: 20 7d 0a 20 20 7d 20 7b 61 62 63 20 73 71 75 61   }.  } {abc squa
1160: 72 65 20 67 72 65 65 6e 7d 0a 7d 0a 0a 23 20 55  re green}.}..# U
1170: 50 44 41 54 45 3a 20 54 68 65 20 6e 65 78 74 20  PDATE: The next 
1180: 74 65 73 74 20 70 61 73 73 65 73 2c 20 62 75 74  test passes, but
1190: 20 6c 65 61 6b 73 20 6d 65 6d 6f 72 79 2e 20 53   leaks memory. S
11a0: 6f 20 6c 65 61 76 65 20 69 74 20 6f 75 74 2e 0a  o leave it out..
11b0: 23 0a 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e  #.# The followin
11c0: 67 20 74 65 73 74 73 20 74 65 73 74 20 74 68 61  g tests test tha
11d0: 74 20 77 72 69 74 69 6e 67 20 74 6f 20 74 68 65  t writing to the
11e0: 20 64 61 74 61 62 61 73 65 20 66 72 6f 6d 20 77   database from w
11f0: 69 74 68 69 6e 0a 23 20 74 68 65 20 78 43 6f 6d  ithin.# the xCom
1200: 6d 69 74 20 63 61 6c 6c 62 61 63 6b 20 63 61 75  mit callback cau
1210: 73 65 73 20 61 20 6d 69 73 75 73 65 20 65 72 72  ses a misuse err
1220: 6f 72 2e 0a 23 20 64 6f 5f 74 65 73 74 20 76 74  or..# do_test vt
1230: 61 62 37 2d 34 2e 31 20 7b 0a 23 20 20 20 75 6e  ab7-4.1 {.#   un
1240: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
1250: 3a 3a 63 61 6c 6c 62 61 63 6b 73 28 78 53 79 6e  ::callbacks(xSyn
1260: 63 2c 61 62 63 29 0a 23 20 20 20 73 65 74 20 3a  c,abc).#   set :
1270: 3a 63 61 6c 6c 62 61 63 6b 73 28 78 43 6f 6d 6d  :callbacks(xComm
1280: 69 74 2c 61 62 63 29 20 7b 0a 23 20 20 20 20 20  it,abc) {.#     
1290: 65 78 65 63 73 71 6c 20 7b 20 49 4e 53 45 52 54  execsql { INSERT
12a0: 20 49 4e 54 4f 20 6c 6f 67 20 56 41 4c 55 45 53   INTO log VALUES
12b0: 28 27 68 65 6c 6c 6f 27 29 20 7d 0a 23 20 20 20  ('hello') }.#   
12c0: 7d 0a 23 20 20 20 63 61 74 63 68 73 71 6c 20 7b  }.#   catchsql {
12d0: 0a 23 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e  .#     INSERT IN
12e0: 54 4f 20 61 62 63 32 20 56 41 4c 55 45 53 28 31  TO abc2 VALUES(1
12f0: 2c 20 32 2c 20 33 29 3b 0a 23 20 20 20 7d 0a 23  , 2, 3);.#   }.#
1300: 20 7d 20 7b 31 20 7b 62 61 64 20 70 61 72 61 6d   } {1 {bad param
1310: 65 74 65 72 20 6f 72 20 6f 74 68 65 72 20 41 50  eter or other AP
1320: 49 20 6d 69 73 75 73 65 7d 7d 0a 0a 23 20 54 68  I misuse}}..# Th
1330: 65 73 65 20 74 65 73 74 73 2c 20 76 74 61 62 37  ese tests, vtab7
1340: 2d 34 2e 2a 2c 20 74 65 73 74 20 74 68 61 74 20  -4.*, test that 
1350: 61 6e 20 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44  an SQLITE_LOCKED
1360: 20 65 72 72 6f 72 20 69 73 20 72 65 74 75 72 6e   error is return
1370: 65 64 0a 23 20 69 66 20 61 6e 20 61 74 74 65 6d  ed.# if an attem
1380: 70 74 20 74 6f 20 77 72 69 74 65 20 74 6f 20 61  pt to write to a
1390: 20 76 69 72 74 75 61 6c 20 6d 6f 64 75 6c 65 20   virtual module 
13a0: 74 61 62 6c 65 20 6f 72 20 63 72 65 61 74 65 20  table or create 
13b0: 61 20 6e 65 77 20 0a 23 20 76 69 72 74 75 61 6c  a new .# virtual
13c0: 20 74 61 62 6c 65 20 66 72 6f 6d 20 77 69 74 68   table from with
13d0: 69 6e 20 61 6e 20 78 53 79 6e 63 28 29 20 63 61  in an xSync() ca
13e0: 6c 6c 62 61 63 6b 2e 0a 64 6f 5f 74 65 73 74 20  llback..do_test 
13f0: 76 74 61 62 37 2d 34 2e 31 20 7b 0a 20 20 65 78  vtab7-4.1 {.  ex
1400: 65 63 73 71 6c 20 7b 0a 20 20 20 20 43 52 45 41  ecsql {.    CREA
1410: 54 45 20 54 41 42 4c 45 20 64 65 66 28 64 2c 20  TE TABLE def(d, 
1420: 65 2c 20 66 29 3b 0a 20 20 20 20 43 52 45 41 54  e, f);.    CREAT
1430: 45 20 56 49 52 54 55 41 4c 20 54 41 42 4c 45 20  E VIRTUAL TABLE 
1440: 64 65 66 32 20 55 53 49 4e 47 20 65 63 68 6f 28  def2 USING echo(
1450: 64 65 66 29 3b 0a 20 20 7d 0a 20 20 73 65 74 20  def);.  }.  set 
1460: 3a 3a 63 61 6c 6c 62 61 63 6b 73 28 78 53 79 6e  ::callbacks(xSyn
1470: 63 2c 61 62 63 29 20 7b 0a 20 20 20 20 73 65 74  c,abc) {.    set
1480: 20 3a 3a 65 72 72 6f 72 20 5b 63 61 74 63 68 73   ::error [catchs
1490: 71 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f  ql { INSERT INTO
14a0: 20 64 65 66 32 20 56 41 4c 55 45 53 28 31 2c 20   def2 VALUES(1, 
14b0: 32 2c 20 33 29 20 7d 5d 0a 20 20 7d 0a 20 20 65  2, 3) }].  }.  e
14c0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53  xecsql {.    INS
14d0: 45 52 54 20 49 4e 54 4f 20 61 62 63 32 20 56 41  ERT INTO abc2 VA
14e0: 4c 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 0a 20  LUES(1, 2, 3);. 
14f0: 20 7d 0a 20 20 73 65 74 20 3a 3a 65 72 72 6f 72   }.  set ::error
1500: 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20  .} {1 {database 
1510: 74 61 62 6c 65 20 69 73 20 6c 6f 63 6b 65 64 7d  table is locked}
1520: 7d 0a 64 6f 5f 74 65 73 74 20 76 74 61 62 37 2d  }.do_test vtab7-
1530: 34 2e 32 20 7b 0a 20 20 73 65 74 20 3a 3a 63 61  4.2 {.  set ::ca
1540: 6c 6c 62 61 63 6b 73 28 78 53 79 6e 63 2c 61 62  llbacks(xSync,ab
1550: 63 29 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 65  c) {.    set ::e
1560: 72 72 6f 72 20 5b 63 61 74 63 68 73 71 6c 20 7b  rror [catchsql {
1570: 20 43 52 45 41 54 45 20 56 49 52 54 55 41 4c 20   CREATE VIRTUAL 
1580: 54 41 42 4c 45 20 64 65 66 33 20 55 53 49 4e 47  TABLE def3 USING
1590: 20 65 63 68 6f 28 64 65 66 29 20 7d 5d 0a 20 20   echo(def) }].  
15a0: 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  }.  execsql {.  
15b0: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62    INSERT INTO ab
15c0: 63 32 20 56 41 4c 55 45 53 28 31 2c 20 32 2c 20  c2 VALUES(1, 2, 
15d0: 33 29 3b 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a  3);.  }.  set ::
15e0: 65 72 72 6f 72 0a 7d 20 7b 31 20 7b 64 61 74 61  error.} {1 {data
15f0: 62 61 73 65 20 74 61 62 6c 65 20 69 73 20 6c 6f  base table is lo
1600: 63 6b 65 64 7d 7d 0a 0a 64 6f 5f 74 65 73 74 20  cked}}..do_test 
1610: 76 74 61 62 37 2d 34 2e 33 20 7b 0a 20 20 73 65  vtab7-4.3 {.  se
1620: 74 20 3a 3a 63 61 6c 6c 62 61 63 6b 73 28 78 53  t ::callbacks(xS
1630: 79 6e 63 2c 61 62 63 29 20 7b 0a 20 20 20 20 73  ync,abc) {.    s
1640: 65 74 20 3a 3a 65 72 72 6f 72 20 5b 63 61 74 63  et ::error [catc
1650: 68 73 71 6c 20 7b 20 44 52 4f 50 20 54 41 42 4c  hsql { DROP TABL
1660: 45 20 64 65 66 32 20 7d 5d 0a 20 20 7d 0a 20 20  E def2 }].  }.  
1670: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 49 4e  execsql {.    IN
1680: 53 45 52 54 20 49 4e 54 4f 20 61 62 63 32 20 56  SERT INTO abc2 V
1690: 41 4c 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 0a  ALUES(1, 2, 3);.
16a0: 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20      SELECT name 
16b0: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
16c0: 65 72 20 4f 52 44 45 52 20 42 59 20 6e 61 6d 65  er ORDER BY name
16d0: 3b 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 65 72  ;.  }.  set ::er
16e0: 72 6f 72 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61  ror.} {1 {databa
16f0: 73 65 20 74 61 62 6c 65 20 69 73 20 6c 6f 63 6b  se table is lock
1700: 65 64 7d 7d 0a 0a 74 72 61 63 65 20 72 65 6d 6f  ed}}..trace remo
1710: 76 65 20 76 61 72 69 61 62 6c 65 20 3a 3a 65 63  ve variable ::ec
1720: 68 6f 5f 6d 6f 64 75 6c 65 20 77 72 69 74 65 20  ho_module write 
1730: 65 63 68 6f 5f 6d 6f 64 75 6c 65 5f 74 72 61 63  echo_module_trac
1740: 65 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c  e.unset -nocompl
1750: 61 69 6e 20 3a 3a 63 61 6c 6c 62 61 63 6b 73 0a  ain ::callbacks.
1760: 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a           .finish_test.