TDBC

Hex Artifact Content
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Aug 20.

Artifact aaea568e1cb26758b15077de9535aadf911ae0bf:

Attachment "patch-tests_tdbcmysql_test" to ticket [491a0e30c4] added by stu 2017-05-26 05:02:57.
0000: 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 74 64 62  Index: tests/tdb
0010: 63 6d 79 73 71 6c 2e 74 65 73 74 0a 2d 2d 2d 20  cmysql.test.--- 
0020: 74 65 73 74 73 2f 74 64 62 63 6d 79 73 71 6c 2e  tests/tdbcmysql.
0030: 74 65 73 74 2e 6f 72 69 67 0a 2b 2b 2b 20 74 65  test.orig.+++ te
0040: 73 74 73 2f 74 64 62 63 6d 79 73 71 6c 2e 74 65  sts/tdbcmysql.te
0050: 73 74 0a 40 40 20 2d 33 32 38 36 2c 36 20 2b 33  st.@@ -3286,6 +3
0060: 32 38 36 2c 33 37 20 40 40 20 74 65 73 74 20 74  286,37 @@ test t
0070: 64 62 63 3a 3a 6d 79 73 71 6c 2d 33 30 2e 31 20  dbc::mysql-30.1 
0080: 7b 4d 75 6c 74 69 70 6c 65 20 72 65 73 75 6c 74  {Multiple result
0090: 20 73 65 74 73 20 2d 20 62 75 74 20 69 6e 20 72   sets - but in r
00a0: 0a 20 0a 20 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . . #-----------
00b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
00c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
00d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
00e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
00f0: 2d 2d 2d 2d 0a 20 0a 2b 73 65 74 20 73 74 6d 74  ----. .+set stmt
0100: 20 5b 3a 3a 64 62 20 70 72 65 70 61 72 65 20 7b   [::db prepare {
0110: 0a 2b 20 20 20 20 43 52 45 41 54 45 20 54 41 42  .+    CREATE TAB
0120: 4c 45 20 6d 79 74 61 62 6c 65 28 0a 2b 09 61 5f  LE mytable(.+.a_
0130: 69 64 20 49 4e 54 45 47 45 52 0a 2b 20 20 20 20  id INTEGER.+    
0140: 29 20 45 4e 47 49 4e 45 3d 49 6e 6e 6f 44 42 0a  ) ENGINE=InnoDB.
0150: 2b 7d 5d 0a 2b 73 65 74 20 72 73 20 5b 24 73 74  +}].+set rs [$st
0160: 6d 74 20 65 78 65 63 75 74 65 5d 0a 2b 72 65 6e  mt execute].+ren
0170: 61 6d 65 20 24 72 73 20 7b 7d 0a 2b 72 65 6e 61  ame $rs {}.+rena
0180: 6d 65 20 24 73 74 6d 74 20 7b 7d 0a 2b 0a 2b 73  me $stmt {}.+.+s
0190: 65 74 20 73 74 6d 74 20 5b 64 62 20 70 72 65 70  et stmt [db prep
01a0: 61 72 65 20 7b 0a 2b 20 20 20 20 49 4e 53 45 52  are {.+    INSER
01b0: 54 20 49 4e 54 4f 20 6d 79 74 61 62 6c 65 28 61  T INTO mytable(a
01c0: 5f 69 64 29 20 56 41 4c 55 45 53 28 3a 61 5f 69  _id) VALUES(:a_i
01d0: 64 29 0a 2b 7d 5d 0a 2b 24 73 74 6d 74 20 70 61  d).+}].+$stmt pa
01e0: 72 61 6d 74 79 70 65 20 61 5f 69 64 20 69 6e 74  ramtype a_id int
01f0: 65 67 65 72 0a 2b 66 6f 72 20 7b 73 65 74 20 61  eger.+for {set a
0200: 5f 69 64 20 31 30 30 7d 20 7b 24 61 5f 69 64 20  _id 100} {$a_id 
0210: 3c 20 31 30 30 30 7d 20 7b 69 6e 63 72 20 61 5f  < 1000} {incr a_
0220: 69 64 7d 20 7b 0a 2b 20 20 20 20 73 65 74 20 72  id} {.+    set r
0230: 73 20 5b 24 73 74 6d 74 20 65 78 65 63 75 74 65  s [$stmt execute
0240: 5d 0a 2b 20 20 20 20 72 65 6e 61 6d 65 20 24 72  ].+    rename $r
0250: 73 20 7b 7d 0a 2b 7d 0a 2b 72 65 6e 61 6d 65 20  s {}.+}.+rename 
0260: 24 73 74 6d 74 20 7b 7d 0a 2b 0a 2b 74 65 73 74  $stmt {}.+.+test
0270: 20 74 64 62 63 3a 3a 6d 79 73 71 6c 2d 35 30 2e   tdbc::mysql-50.
0280: 30 20 7b 7d 20 2d 62 6f 64 79 20 7b 0a 2b 09 64  0 {} -body {.+.d
0290: 62 20 63 6f 6c 75 6d 6e 73 20 6d 79 74 61 62 6c  b columns mytabl
02a0: 65 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 5b 64 69  e.+} -result [di
02b0: 63 74 20 63 72 65 61 74 65 20 61 5f 69 64 20 5b  ct create a_id [
02c0: 6c 69 73 74 20 6e 61 6d 65 20 61 5f 69 64 20 74  list name a_id t
02d0: 79 70 65 20 69 6e 74 65 67 65 72 20 70 72 65 63  ype integer prec
02e0: 69 73 69 6f 6e 20 31 31 20 73 63 61 6c 65 20 30  ision 11 scale 0
02f0: 20 6e 75 6c 6c 61 62 6c 65 20 31 5d 5d 0a 2b 0a   nullable 1]].+.
0300: 2b 74 65 73 74 20 74 64 62 63 3a 3a 6d 79 73 71  +test tdbc::mysq
0310: 6c 2d 35 30 2e 31 20 7b 7d 20 2d 62 6f 64 79 20  l-50.1 {} -body 
0320: 7b 0a 2b 09 64 62 20 61 6c 6c 72 6f 77 73 20 7b  {.+.db allrows {
0330: 53 45 4c 45 43 54 20 61 5f 69 64 20 46 52 4f 4d  SELECT a_id FROM
0340: 20 6d 79 74 61 62 6c 65 20 57 48 45 52 45 20 61   mytable WHERE a
0350: 5f 69 64 3d 32 34 31 7d 0a 2b 7d 20 2d 72 65 73  _id=241}.+} -res
0360: 75 6c 74 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20  ult [list [list 
0370: 61 5f 69 64 20 32 34 31 5d 5d 0a 2b 0a 2b 3a 3a  a_id 241]].+.+::
0380: 64 62 20 61 6c 6c 72 6f 77 73 20 7b 44 52 4f 50  db allrows {DROP
0390: 20 54 41 42 4c 45 20 6d 79 74 61 62 6c 65 7d 0a   TABLE mytable}.
03a0: 2b 0a 2b 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  +.+#------------
03b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03f0: 2d 2d 2d 0a 2b 0a 20 23 20 54 65 73 74 20 63 6c  ---.+. # Test cl
0400: 65 61 6e 75 70 2e 20 44 72 6f 70 20 74 61 62 6c  eanup. Drop tabl
0410: 65 73 20 61 6e 64 20 67 65 74 20 72 69 64 20 6f  es and get rid o
0420: 66 20 74 68 65 20 74 65 73 74 20 64 61 74 61 62  f the test datab
0430: 61 73 65 2e 0a 20 0a 20 0a                       ase.. . .