Artifact
446b88283b12efb12691479a403cde15d64fbb82:
- File
test/tester.tcl
— part of check-in
[ced90c3f]
at
2000-12-10 18:23:49
on branch trunk
— speed tweaks and documentation updates (CVS 167)
(user:
drh
size: 3640)
0000: 23 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 # Copyright (c)
0010: 31 39 39 39 2c 20 32 30 30 30 20 44 2e 20 52 69 1999, 2000 D. Ri
0020: 63 68 61 72 64 20 48 69 70 70 0a 23 0a 23 20 54 chard Hipp.#.# T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 23 20 6d te it and/or.# m
0070: 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 odify it under t
0080: 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 he terms of the
0090: 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c GNU General Publ
00a0: 69 63 0a 23 20 4c 69 63 65 6e 73 65 20 61 73 20 ic.# License as
00b0: 70 75 62 6c 69 73 68 65 64 20 62 79 20 74 68 65 published by the
00c0: 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 Free Software F
00d0: 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74 68 65 oundation; eithe
00e0: 72 0a 23 20 76 65 72 73 69 6f 6e 20 32 20 6f 66 r.# version 2 of
00f0: 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 the License, or
0100: 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e (at your option
0110: 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 ) any later vers
0120: 69 6f 6e 2e 0a 23 0a 23 20 54 68 69 73 20 70 72 ion..#.# This pr
0130: 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 ogram is distrib
0140: 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 uted in the hope
0150: 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 that it will be
0160: 20 75 73 65 66 75 6c 2c 0a 23 20 62 75 74 20 57 useful,.# but W
0170: 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 ITHOUT ANY WARRA
0180: 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 NTY; without eve
0190: 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 n the implied wa
01a0: 72 72 61 6e 74 79 20 6f 66 0a 23 20 4d 45 52 43 rranty of.# MERC
01b0: 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 HANTABILITY or F
01c0: 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 ITNESS FOR A PAR
01d0: 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e TICULAR PURPOSE.
01e0: 20 20 53 65 65 20 74 68 65 20 47 4e 55 0a 23 20 See the GNU.#
01f0: 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c General Public L
0200: 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 icense for more
0210: 64 65 74 61 69 6c 73 2e 0a 23 20 0a 23 20 59 6f details..# .# Yo
0220: 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 u should have re
0230: 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 ceived a copy of
0240: 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c the GNU General
0250: 20 50 75 62 6c 69 63 0a 23 20 4c 69 63 65 6e 73 Public.# Licens
0260: 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 e along with thi
0270: 73 20 6c 69 62 72 61 72 79 3b 20 69 66 20 6e 6f s library; if no
0280: 74 2c 20 77 72 69 74 65 20 74 6f 20 74 68 65 0a t, write to the.
0290: 23 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 # Free Software
02a0: 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e Foundation, Inc.
02b0: 2c 20 35 39 20 54 65 6d 70 6c 65 20 50 6c 61 63 , 59 Temple Plac
02c0: 65 20 2d 20 53 75 69 74 65 20 33 33 30 2c 0a 23 e - Suite 330,.#
02d0: 20 42 6f 73 74 6f 6e 2c 20 4d 41 20 20 30 32 31 Boston, MA 021
02e0: 31 31 2d 31 33 30 37 2c 20 55 53 41 2e 0a 23 0a 11-1307, USA..#.
02f0: 23 20 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74 # Author contact
0300: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 23 20 information:.#
0310: 20 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a drh@hwaci.com.
0320: 23 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68 # http://www.h
0330: 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 23 0a waci.com/drh/.#.
0340: 23 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a #***************
0350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0360: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0370: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0380: 2a 2a 2a 2a 2a 2a 2a 2a 0a 23 20 54 68 69 73 20 ********.# This
0390: 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 file implements
03a0: 73 6f 6d 65 20 63 6f 6d 6d 6f 6e 20 54 43 4c 20 some common TCL
03b0: 72 6f 75 74 69 6e 65 73 20 75 73 65 64 20 66 6f routines used fo
03c0: 72 20 72 65 67 72 65 73 73 69 6f 6e 0a 23 20 74 r regression.# t
03d0: 65 73 74 69 6e 67 20 74 68 65 20 53 51 4c 69 74 esting the SQLit
03e0: 65 20 6c 69 62 72 61 72 79 0a 23 0a 23 20 24 49 e library.#.# $I
03f0: 64 3a 20 74 65 73 74 65 72 2e 74 63 6c 2c 76 20 d: tester.tcl,v
0400: 31 2e 38 20 32 30 30 30 2f 31 32 2f 31 30 20 31 1.8 2000/12/10 1
0410: 38 3a 32 33 3a 35 32 20 64 72 68 20 45 78 70 20 8:23:52 drh Exp
0420: 24 0a 0a 23 20 43 72 65 61 74 65 20 61 20 74 65 $..# Create a te
0430: 73 74 20 64 61 74 61 62 61 73 65 0a 23 0a 69 66 st database.#.if
0440: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 {![info exists
0450: 64 62 70 72 65 66 69 78 5d 7d 20 7b 0a 20 20 69 dbprefix]} {. i
0460: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
0470: 65 6e 76 28 53 51 4c 49 54 45 5f 50 52 45 46 49 env(SQLITE_PREFI
0480: 58 29 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 X)]} {. set d
0490: 62 70 72 65 66 69 78 20 24 65 6e 76 28 53 51 4c bprefix $env(SQL
04a0: 49 54 45 5f 50 52 45 46 49 58 29 3a 0a 20 20 7d ITE_PREFIX):. }
04b0: 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 else {. set
04c0: 64 62 70 72 65 66 69 78 20 22 67 64 62 6d 3a 22 dbprefix "gdbm:"
04d0: 0a 20 20 7d 0a 7d 0a 73 77 69 74 63 68 20 24 64 . }.}.switch $d
04e0: 62 70 72 65 66 69 78 20 7b 0a 20 20 67 64 62 6d bprefix {. gdbm
04f0: 3a 20 7b 0a 20 20 20 66 69 6c 65 20 64 65 6c 65 : {. file dele
0500: 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 64 62 te -force testdb
0510: 0a 20 20 20 66 69 6c 65 20 6d 6b 64 69 72 20 74 . file mkdir t
0520: 65 73 74 64 62 0a 20 20 7d 0a 20 20 6d 65 6d 6f estdb. }. memo
0530: 72 79 3a 20 7b 0a 20 20 20 23 20 64 6f 20 6e 6f ry: {. # do no
0540: 74 68 69 6e 67 0a 20 20 7d 0a 7d 0a 73 71 6c 69 thing. }.}.sqli
0550: 74 65 20 64 62 20 24 7b 64 62 70 72 65 66 69 78 te db ${dbprefix
0560: 7d 74 65 73 74 64 62 0a 0a 23 20 41 62 6f 72 74 }testdb..# Abort
0570: 20 65 61 72 6c 79 20 69 66 20 74 68 69 73 20 73 early if this s
0580: 63 72 69 70 74 20 68 61 73 20 62 65 65 6e 20 72 cript has been r
0590: 75 6e 20 62 65 66 6f 72 65 2e 0a 23 0a 69 66 20 un before..#.if
05a0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6e 54 {[info exists nT
05b0: 65 73 74 5d 7d 20 72 65 74 75 72 6e 0a 0a 23 20 est]} return..#
05c0: 53 65 74 20 74 68 65 20 74 65 73 74 20 63 6f 75 Set the test cou
05d0: 6e 74 65 72 73 20 74 6f 20 7a 65 72 6f 0a 23 0a nters to zero.#.
05e0: 73 65 74 20 6e 45 72 72 20 30 0a 73 65 74 20 6e set nErr 0.set n
05f0: 54 65 73 74 20 30 0a 73 65 74 20 73 6b 69 70 5f Test 0.set skip_
0600: 74 65 73 74 20 30 0a 0a 23 20 49 6e 76 6f 6b 65 test 0..# Invoke
0610: 20 74 68 65 20 64 6f 5f 74 65 73 74 20 70 72 6f the do_test pro
0620: 63 65 64 75 72 65 20 74 6f 20 72 75 6e 20 61 20 cedure to run a
0630: 73 69 6e 67 6c 65 20 74 65 73 74 20 0a 23 0a 70 single test .#.p
0640: 72 6f 63 20 64 6f 5f 74 65 73 74 20 7b 6e 61 6d roc do_test {nam
0650: 65 20 63 6d 64 20 65 78 70 65 63 74 65 64 7d 20 e cmd expected}
0660: 7b 0a 20 20 67 6c 6f 62 61 6c 20 61 72 67 76 20 {. global argv
0670: 6e 45 72 72 20 6e 54 65 73 74 20 73 6b 69 70 5f nErr nTest skip_
0680: 74 65 73 74 0a 20 20 69 66 20 7b 24 73 6b 69 70 test. if {$skip
0690: 5f 74 65 73 74 7d 20 7b 0a 20 20 20 20 73 65 74 _test} {. set
06a0: 20 73 6b 69 70 5f 74 65 73 74 20 30 0a 20 20 20 skip_test 0.
06b0: 20 72 65 74 75 72 6e 0a 20 20 7d 0a 20 20 69 66 return. }. if
06c0: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 76 {[llength $argv
06d0: 5d 3d 3d 30 7d 20 7b 20 0a 20 20 20 20 73 65 74 ]==0} { . set
06e0: 20 67 6f 20 31 0a 20 20 7d 20 65 6c 73 65 20 7b go 1. } else {
06f0: 0a 20 20 20 20 73 65 74 20 67 6f 20 30 0a 20 20 . set go 0.
0700: 20 20 66 6f 72 65 61 63 68 20 70 61 74 74 65 72 foreach patter
0710: 6e 20 24 61 72 67 76 20 7b 0a 20 20 20 20 20 20 n $argv {.
0720: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 if {[string matc
0730: 68 20 24 70 61 74 74 65 72 6e 20 24 6e 61 6d 65 h $pattern $name
0740: 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 ]} {. set
0750: 20 67 6f 20 31 0a 20 20 20 20 20 20 20 20 62 72 go 1. br
0760: 65 61 6b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 eak. }.
0770: 7d 0a 20 20 7d 0a 20 20 69 66 20 7b 21 24 67 6f }. }. if {!$go
0780: 7d 20 72 65 74 75 72 6e 0a 20 20 69 6e 63 72 20 } return. incr
0790: 6e 54 65 73 74 0a 20 20 70 75 74 73 20 2d 6e 6f nTest. puts -no
07a0: 6e 65 77 6c 69 6e 65 20 24 3a 3a 64 62 70 72 65 newline $::dbpre
07b0: 66 69 78 24 6e 61 6d 65 2e 2e 2e 0a 20 20 66 6c fix$name.... fl
07c0: 75 73 68 20 73 74 64 6f 75 74 0a 20 20 69 66 20 ush stdout. if
07d0: 7b 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c {[catch {uplevel
07e0: 20 23 30 20 22 24 63 6d 64 3b 5c 6e 22 7d 20 72 #0 "$cmd;\n"} r
07f0: 65 73 75 6c 74 5d 7d 20 7b 0a 20 20 20 20 70 75 esult]} {. pu
0800: 74 73 20 22 5c 6e 45 72 72 6f 72 3a 20 24 72 65 ts "\nError: $re
0810: 73 75 6c 74 22 0a 20 20 20 20 69 6e 63 72 20 6e sult". incr n
0820: 45 72 72 0a 20 20 7d 20 65 6c 73 65 69 66 20 7b Err. } elseif {
0830: 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 65 20 [string compare
0840: 24 72 65 73 75 6c 74 20 24 65 78 70 65 63 74 65 $result $expecte
0850: 64 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 d]} {. puts "
0860: 5c 6e 45 78 70 65 63 74 65 64 3a 20 5c 5b 24 65 \nExpected: \[$e
0870: 78 70 65 63 74 65 64 5c 5d 5c 6e 20 20 20 20 20 xpected\]\n
0880: 47 6f 74 3a 20 5c 5b 24 72 65 73 75 6c 74 5c 5d Got: \[$result\]
0890: 22 0a 20 20 20 20 69 6e 63 72 20 6e 45 72 72 0a ". incr nErr.
08a0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70 } else {. p
08b0: 75 74 73 20 22 20 4f 6b 22 0a 20 20 7d 0a 7d 0a uts " Ok". }.}.
08c0: 0a 23 20 53 6b 69 70 20 61 20 74 65 73 74 20 62 .# Skip a test b
08d0: 61 73 65 64 20 6f 6e 20 74 68 65 20 64 62 70 72 ased on the dbpr
08e0: 65 66 69 78 0a 23 0a 70 72 6f 63 20 73 6b 69 70 efix.#.proc skip
08f0: 69 66 20 7b 61 72 67 73 7d 20 7b 0a 20 20 66 6f if {args} {. fo
0900: 72 65 61 63 68 20 61 20 24 61 72 67 73 20 7b 0a reach a $args {.
0910: 20 20 20 20 69 66 20 7b 24 3a 3a 64 62 70 72 65 if {$::dbpre
0920: 66 69 78 3d 3d 24 61 7d 20 7b 0a 20 20 20 20 20 fix==$a} {.
0930: 20 73 65 74 20 3a 3a 73 6b 69 70 5f 74 65 73 74 set ::skip_test
0940: 20 31 0a 20 20 20 20 20 20 72 65 74 75 72 6e 0a 1. return.
0950: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 52 }. }.}..# R
0960: 75 6e 20 74 68 65 20 6e 65 78 74 20 74 65 73 74 un the next test
0970: 20 6f 6e 6c 79 20 69 66 20 74 68 65 20 64 62 70 only if the dbp
0980: 72 65 66 69 78 20 69 73 20 61 6d 6f 6e 67 20 74 refix is among t
0990: 68 65 20 6c 69 73 74 65 64 20 61 72 67 75 6d 65 he listed argume
09a0: 6e 74 73 0a 23 0a 70 72 6f 63 20 74 65 73 74 69 nts.#.proc testi
09b0: 66 20 7b 61 72 67 73 7d 20 7b 0a 20 20 66 6f 72 f {args} {. for
09c0: 65 61 63 68 20 61 20 24 61 72 67 73 20 7b 0a 20 each a $args {.
09d0: 20 20 20 69 66 20 7b 24 3a 3a 64 62 70 72 65 66 if {$::dbpref
09e0: 69 78 3d 3d 24 61 7d 20 7b 0a 20 20 20 20 20 20 ix==$a} {.
09f0: 73 65 74 20 3a 3a 73 6b 69 70 5f 74 65 73 74 20 set ::skip_test
0a00: 30 0a 20 20 20 20 20 20 72 65 74 75 72 6e 0a 20 0. return.
0a10: 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a }. }. set :
0a20: 3a 73 6b 69 70 5f 74 65 73 74 20 31 0a 7d 0a 0a :skip_test 1.}..
0a30: 23 20 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 # The procedure
0a40: 75 73 65 73 20 74 68 65 20 73 70 65 63 69 61 6c uses the special
0a50: 20 22 2d 2d 6d 61 6c 6c 6f 63 2d 73 74 61 74 73 "--malloc-stats
0a60: 2d 2d 22 20 6d 61 63 72 6f 20 6f 66 20 53 51 4c --" macro of SQL
0a70: 69 74 65 0a 23 20 28 77 68 69 63 68 20 69 73 20 ite.# (which is
0a80: 6f 6e 6c 79 20 61 76 61 69 6c 61 62 6c 65 20 69 only available i
0a90: 66 20 53 51 4c 69 74 65 20 69 73 20 63 6f 6d 70 f SQLite is comp
0aa0: 69 6c 65 64 20 77 69 74 68 20 2d 44 4d 45 4d 4f iled with -DMEMO
0ab0: 52 59 5f 44 45 42 55 47 3d 31 29 0a 23 20 74 6f RY_DEBUG=1).# to
0ac0: 20 73 65 65 20 68 6f 77 20 6d 61 6e 79 20 6d 61 see how many ma
0ad0: 6c 6c 6f 63 28 29 73 20 68 61 76 65 20 6e 6f 74 lloc()s have not
0ae0: 20 62 65 65 6e 20 66 72 65 65 28 29 65 64 2e 20 been free()ed.
0af0: 20 54 68 65 20 6e 75 6d 62 65 72 0a 23 20 6f 66 The number.# of
0b00: 20 73 75 72 70 6c 75 73 20 6d 61 6c 6c 6f 63 28 surplus malloc(
0b10: 29 73 20 69 73 20 73 74 6f 72 65 64 20 69 6e 20 )s is stored in
0b20: 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 the global varia
0b30: 62 6c 65 20 24 3a 3a 4c 65 61 6b 2e 0a 23 20 49 ble $::Leak..# I
0b40: 66 20 74 68 65 20 76 61 6c 75 65 20 69 6e 20 24 f the value in $
0b50: 3a 3a 4c 65 61 6b 20 67 72 6f 77 73 2c 20 69 74 ::Leak grows, it
0b60: 20 6d 61 79 20 6d 65 61 6e 20 74 68 65 72 65 20 may mean there
0b70: 69 73 20 61 20 6d 65 6d 6f 72 79 20 6c 65 61 6b is a memory leak
0b80: 0a 23 20 69 6e 20 74 68 65 20 6c 69 62 72 61 72 .# in the librar
0b90: 79 2e 0a 23 0a 70 72 6f 63 20 6d 65 6d 6c 65 61 y..#.proc memlea
0ba0: 6b 5f 63 68 65 63 6b 20 7b 7d 20 7b 0a 20 20 73 k_check {} {. s
0bb0: 65 74 20 72 20 5b 65 78 65 63 73 71 6c 20 7b 2d et r [execsql {-
0bc0: 2d 6d 61 6c 6c 6f 63 2d 73 74 61 74 73 2d 2d 7d -malloc-stats--}
0bd0: 5d 0a 20 20 69 66 20 7b 24 72 3d 3d 22 22 7d 20 ]. if {$r==""}
0be0: 72 65 74 75 72 6e 0a 20 20 73 65 74 20 3a 3a 4c return. set ::L
0bf0: 65 61 6b 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64 eak [expr {[lind
0c00: 65 78 20 24 72 20 30 5d 2d 5b 6c 69 6e 64 65 78 ex $r 0]-[lindex
0c10: 20 24 72 20 31 5d 7d 5d 0a 20 20 23 20 70 75 74 $r 1]}]. # put
0c20: 73 20 22 2a 2a 2a 20 24 3a 3a 4c 65 61 6b 20 6d s "*** $::Leak m
0c30: 61 6c 6c 6f 63 73 20 68 61 76 65 20 6e 6f 74 20 allocs have not
0c40: 62 65 65 6e 20 66 72 65 65 64 20 2a 2a 2a 22 0a been freed ***".
0c50: 7d 0a 0a 23 20 52 75 6e 20 74 68 69 73 20 72 6f }..# Run this ro
0c60: 75 74 69 6e 65 20 6c 61 73 74 0a 23 0a 70 72 6f utine last.#.pro
0c70: 63 20 66 69 6e 69 73 68 5f 74 65 73 74 20 7b 7d c finish_test {}
0c80: 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 6e 54 65 73 {. global nTes
0c90: 74 20 6e 45 72 72 0a 20 20 6d 65 6d 6c 65 61 6b t nErr. memleak
0ca0: 5f 63 68 65 63 6b 0a 20 20 63 61 74 63 68 20 7b _check. catch {
0cb0: 64 62 20 63 6c 6f 73 65 7d 0a 20 20 70 75 74 73 db close}. puts
0cc0: 20 22 24 6e 45 72 72 20 65 72 72 6f 72 73 20 6f "$nErr errors o
0cd0: 75 74 20 6f 66 20 24 6e 54 65 73 74 20 74 65 73 ut of $nTest tes
0ce0: 74 73 22 0a 20 20 65 78 69 74 20 24 6e 45 72 72 ts". exit $nErr
0cf0: 0a 7d 0a 0a 23 20 41 20 70 72 6f 63 65 64 75 72 .}..# A procedur
0d00: 65 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c e to execute SQL
0d10: 0a 23 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 20 .#.proc execsql
0d20: 7b 73 71 6c 7d 20 7b 0a 20 20 72 65 74 75 72 6e {sql} {. return
0d30: 20 5b 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a [db eval $sql].
0d40: 7d 0a 0a 23 20 41 6e 6f 74 68 65 72 20 70 72 6f }..# Another pro
0d50: 63 65 64 75 72 65 20 74 6f 20 65 78 65 63 75 74 cedure to execut
0d60: 65 20 53 51 4c 2e 20 20 54 68 69 73 20 6f 6e 65 e SQL. This one
0d70: 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 66 69 includes the fi
0d80: 65 6c 64 0a 23 20 6e 61 6d 65 73 20 69 6e 20 74 eld.# names in t
0d90: 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74 he returned list
0da0: 2e 0a 23 0a 70 72 6f 63 20 65 78 65 63 73 71 6c ..#.proc execsql
0db0: 32 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 2 {sql} {. set
0dc0: 72 65 73 75 6c 74 20 7b 7d 0a 20 20 64 62 20 65 result {}. db e
0dd0: 76 61 6c 20 24 73 71 6c 20 64 61 74 61 20 7b 0a val $sql data {.
0de0: 20 20 20 20 66 6f 72 65 61 63 68 20 66 20 24 64 foreach f $d
0df0: 61 74 61 28 2a 29 20 7b 0a 20 20 20 20 20 20 6c ata(*) {. l
0e00: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 24 66 append result $f
0e10: 20 24 64 61 74 61 28 24 66 29 0a 20 20 20 20 7d $data($f). }
0e20: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 . }. return $r
0e30: 65 73 75 6c 74 0a 7d 0a esult.}.