/ Hex Artifact Content
Login

Artifact 8a6e3732f5a8a24eb875a6faf287ef77bb8c0579:


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 64  st.  return.}..d
0210: 6f 5f 74 65 73 74 20 74 6b 74 33 37 33 31 2d 31  o_test tkt3731-1
0220: 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .1 {.  execsql {
0230: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
0240: 45 20 74 31 28 61 20 50 52 49 4d 41 52 59 20 4b  E t1(a PRIMARY K
0250: 45 59 2c 20 62 29 3b 0a 20 20 20 20 43 52 45 41  EY, b);.    CREA
0260: 54 45 20 54 52 49 47 47 45 52 20 74 72 31 20 41  TE TRIGGER tr1 A
0270: 46 54 45 52 20 49 4e 53 45 52 54 20 4f 4e 20 74  FTER INSERT ON t
0280: 31 20 42 45 47 49 4e 0a 20 20 20 20 20 20 49 4e  1 BEGIN.      IN
0290: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
02a0: 55 45 53 28 6e 65 77 2e 61 20 7c 7c 20 27 2b 27  UES(new.a || '+'
02b0: 2c 20 6e 65 77 2e 62 20 7c 7c 20 27 2b 27 29 3b  , new.b || '+');
02c0: 0a 20 20 20 20 45 4e 44 3b 0a 20 20 7d 0a 7d 20  .    END;.  }.} 
02d0: 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20 74 6b 74 33  {}..do_test tkt3
02e0: 37 33 31 2d 31 2e 32 20 7b 0a 20 20 65 78 65 63  731-1.2 {.  exec
02f0: 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53 45 52 54  sql {.    INSERT
0300: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
0310: 27 61 27 2c 20 27 62 27 29 3b 0a 20 20 20 20 49  'a', 'b');.    I
0320: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0330: 4c 55 45 53 28 27 63 27 2c 20 27 64 27 29 3b 0a  LUES('c', 'd');.
0340: 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f      SELECT * FRO
0350: 4d 20 74 31 3b 0a 20 20 7d 0a 7d 20 7b 61 20 62  M t1;.  }.} {a b
0360: 20 61 2b 20 62 2b 20 63 20 64 20 63 2b 20 64 2b   a+ b+ c d c+ d+
0370: 7d 0a 0a 64 6f 5f 74 65 73 74 20 74 6b 74 33 37  }..do_test tkt37
0380: 33 31 2d 31 2e 33 20 7b 0a 20 20 65 78 65 63 73  31-1.3 {.  execs
0390: 71 6c 20 7b 0a 20 20 20 20 44 45 4c 45 54 45 20  ql {.    DELETE 
03a0: 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20 43 52 45  FROM t1;.    CRE
03b0: 41 54 45 20 54 41 42 4c 45 20 74 32 28 61 2c 20  ATE TABLE t2(a, 
03c0: 62 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  b);.    INSERT I
03d0: 4e 54 4f 20 74 32 20 56 41 4c 55 45 53 28 27 65  NTO t2 VALUES('e
03e0: 27 2c 20 27 66 27 29 3b 0a 20 20 20 20 49 4e 53  ', 'f');.    INS
03f0: 45 52 54 20 49 4e 54 4f 20 74 32 20 56 41 4c 55  ERT INTO t2 VALU
0400: 45 53 28 27 67 27 2c 20 27 68 27 29 3b 0a 20 20  ES('g', 'h');.  
0410: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
0420: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
0430: 32 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20  2;.    SELECT * 
0440: 46 52 4f 4d 20 74 31 3b 0a 20 20 7d 0a 7d 20 7b  FROM t1;.  }.} {
0450: 65 20 66 20 65 2b 20 66 2b 20 67 20 68 20 67 2b  e f e+ f+ g h g+
0460: 20 68 2b 7d 0a 0a 69 6e 74 65 67 72 69 74 79 5f   h+}..integrity_
0470: 63 68 65 63 6b 20 74 6b 74 33 37 33 31 2d 31 2e  check tkt3731-1.
0480: 34 0a 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a     4..finish_test.