/ Hex Artifact Content
Login

Artifact 0c5f4cbffe102d43c3b2188af91a9e36348f974b:


0000: 23 20 32 30 30 39 20 4d 61 72 63 68 20 31 38 0a  # 2009 March 18.
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 0a 23 20 24 49 64 3a 20 74  *****.#.# $Id: t
0170: 6b 74 33 37 33 31 2e 74 65 73 74 2c 76 20 31 2e  kt3731.test,v 1.
0180: 31 20 32 30 30 39 2f 30 33 2f 31 37 20 32 32 3a  1 2009/03/17 22:
0190: 33 33 3a 30 31 20 64 72 68 20 45 78 70 20 24 0a  33:01 drh Exp $.
01a0: 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b 66 69  .set testdir [fi
01b0: 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76  le dirname $argv
01c0: 30 5d 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64  0].source $testd
01d0: 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a 69 66  ir/tester.tcl.if
01e0: 63 61 70 61 62 6c 65 20 7b 21 74 72 69 67 67 65  capable {!trigge
01f0: 72 7d 20 7b 0a 20 20 66 69 6e 69 73 68 5f 74 65  r} {.  finish_te
0200: 73 74 0a 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 23  st.  return.}..#
0210: 20 54 68 65 20 74 65 73 74 73 20 69 6e 20 74 68   The tests in th
0220: 69 73 20 66 69 6c 65 20 77 65 72 65 20 77 72 69  is file were wri
0230: 74 74 65 6e 20 62 65 66 6f 72 65 20 53 51 4c 69  tten before SQLi
0240: 74 65 20 73 75 70 70 6f 72 74 65 64 20 72 65 63  te supported rec
0250: 75 72 73 69 76 65 0a 23 20 74 72 69 67 67 65 72  ursive.# trigger
0260: 20 69 6e 76 6f 63 61 74 69 6f 6e 2c 20 61 6e 64   invocation, and
0270: 20 73 6f 6d 65 20 74 65 73 74 73 20 64 65 70 65   some tests depe
0280: 6e 64 20 6f 6e 20 74 68 61 74 20 74 6f 20 70 61  nd on that to pa
0290: 73 73 2e 20 53 6f 20 64 69 73 61 62 6c 65 0a 23  ss. So disable.#
02a0: 20 72 65 63 75 72 73 69 76 65 20 74 72 69 67 67   recursive trigg
02b0: 65 72 73 20 66 6f 72 20 74 68 69 73 20 66 69 6c  ers for this fil
02c0: 65 2e 0a 63 61 74 63 68 73 71 6c 20 7b 20 70 72  e..catchsql { pr
02d0: 61 67 6d 61 20 72 65 63 75 72 73 69 76 65 5f 74  agma recursive_t
02e0: 72 69 67 67 65 72 73 20 3d 20 6f 66 66 20 7d 20  riggers = off } 
02f0: 0a 0a 64 6f 5f 74 65 73 74 20 74 6b 74 33 37 33  ..do_test tkt373
0300: 31 2d 31 2e 31 20 7b 0a 20 20 65 78 65 63 73 71  1-1.1 {.  execsq
0310: 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54  l {.    CREATE T
0320: 41 42 4c 45 20 74 31 28 61 20 50 52 49 4d 41 52  ABLE t1(a PRIMAR
0330: 59 20 4b 45 59 2c 20 62 29 3b 0a 20 20 20 20 43  Y KEY, b);.    C
0340: 52 45 41 54 45 20 54 52 49 47 47 45 52 20 74 72  REATE TRIGGER tr
0350: 31 20 41 46 54 45 52 20 49 4e 53 45 52 54 20 4f  1 AFTER INSERT O
0360: 4e 20 74 31 20 42 45 47 49 4e 0a 20 20 20 20 20  N t1 BEGIN.     
0370: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
0380: 56 41 4c 55 45 53 28 6e 65 77 2e 61 20 7c 7c 20  VALUES(new.a || 
0390: 27 2b 27 2c 20 6e 65 77 2e 62 20 7c 7c 20 27 2b  '+', new.b || '+
03a0: 27 29 3b 0a 20 20 20 20 45 4e 44 3b 0a 20 20 7d  ');.    END;.  }
03b0: 0a 7d 20 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20 74  .} {}..do_test t
03c0: 6b 74 33 37 33 31 2d 31 2e 32 20 7b 0a 20 20 65  kt3731-1.2 {.  e
03d0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53  xecsql {.    INS
03e0: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
03f0: 45 53 28 27 61 27 2c 20 27 62 27 29 3b 0a 20 20  ES('a', 'b');.  
0400: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
0410: 20 56 41 4c 55 45 53 28 27 63 27 2c 20 27 64 27   VALUES('c', 'd'
0420: 29 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20  );.    SELECT * 
0430: 46 52 4f 4d 20 74 31 3b 0a 20 20 7d 0a 7d 20 7b  FROM t1;.  }.} {
0440: 61 20 62 20 61 2b 20 62 2b 20 63 20 64 20 63 2b  a b a+ b+ c d c+
0450: 20 64 2b 7d 0a 0a 64 6f 5f 74 65 73 74 20 74 6b   d+}..do_test tk
0460: 74 33 37 33 31 2d 31 2e 33 20 7b 0a 20 20 65 78  t3731-1.3 {.  ex
0470: 65 63 73 71 6c 20 7b 0a 20 20 20 20 44 45 4c 45  ecsql {.    DELE
0480: 54 45 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20  TE FROM t1;.    
0490: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 32 28  CREATE TABLE t2(
04a0: 61 2c 20 62 29 3b 0a 20 20 20 20 49 4e 53 45 52  a, b);.    INSER
04b0: 54 20 49 4e 54 4f 20 74 32 20 56 41 4c 55 45 53  T INTO t2 VALUES
04c0: 28 27 65 27 2c 20 27 66 27 29 3b 0a 20 20 20 20  ('e', 'f');.    
04d0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 20 56  INSERT INTO t2 V
04e0: 41 4c 55 45 53 28 27 67 27 2c 20 27 68 27 29 3b  ALUES('g', 'h');
04f0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
0500: 20 74 31 20 53 45 4c 45 43 54 20 2a 20 46 52 4f   t1 SELECT * FRO
0510: 4d 20 74 32 3b 0a 20 20 20 20 53 45 4c 45 43 54  M t2;.    SELECT
0520: 20 2a 20 46 52 4f 4d 20 74 31 3b 0a 20 20 7d 0a   * FROM t1;.  }.
0530: 7d 20 7b 65 20 66 20 65 2b 20 66 2b 20 67 20 68  } {e f e+ f+ g h
0540: 20 67 2b 20 68 2b 7d 0a 0a 69 6e 74 65 67 72 69   g+ h+}..integri
0550: 74 79 5f 63 68 65 63 6b 20 74 6b 74 33 37 33 31  ty_check tkt3731
0560: 2d 31 2e 34 0a 0a 66 69 6e 69 73 68 5f 74 65 73  -1.4..finish_tes
0570: 74 0a                                            t.