964     foreach {testname sql} $args {}
967     foreach {testname sql result} $args {}
984       [list "execsql {$sql} $db"] \
988 proc do_catchsql_test {testname sql result} {
990   uplevel do_test [list $testname] [list "catchsql {$sql}"] [list $result]
992 proc do_timed_execsql_test {testname sql {result {}}} {
994   uplevel do_test [list $testname] [list "execsql_timed {$sql}"]\
1005 proc query_plan_graph {sql} {  argument
1006   db eval "EXPLAIN QUERY PLAN $sql" {
1063 proc do_eqp_test {name sql res} {
1065     uplevel do_test $name [list [list query_plan_graph $sql]] [list $res]
1070     uplevel do_execsql_test $name [list "EXPLAIN QUERY PLAN $sql"] [list $res]
1123   foreach {tn sql res} $testlist {
1125       execsql $sql
1129       db eval $sql {incr nRow}
1132       uplevel do_execsql_test ${prefix}.${tn} [list $sql] [list [list {*}$res]]
1135       uplevel do_catchsql_test ${prefix}.${tn} [list $sql] [list $res]
1151 proc speed_trial {name numstmt units sql} {  argument
1154   set speed [time {sqlite3_exec_nr db $sql}]
1421 proc execsql {sql {db db}} {
1423   uplevel [list $db eval $sql]
1425 proc execsql_timed {sql {db db}} {
1427     set x [uplevel [list $db eval $sql]]
1436 proc catchsql {sql {db db}} {
1438   set r [catch [list uplevel [list $db eval $sql]] msg]
1445 proc explain {sql {db db}} {
1449   $db eval "explain $sql" {} {
1456 proc explain_i {sql {db db}} {
1494   $db eval "explain $sql" {} {
1529   $db eval "explain $sql" {} {
1551 proc execsql_pp {sql {db db}} {
1553   $db eval $sql A {
1596 proc explain_no_trace {sql} {  argument
1597   set tr [db eval "EXPLAIN $sql"]
1604 proc execsql2 {sql} {  argument
1606   db eval $sql data {
1616 proc memdbsql {sql} {  argument
1618   set result [memdb eval $sql]
1625 proc stepsql {dbptr sql} {  argument
1626   set sql [string trim $sql]
1628   while {[string length $sql]>0} {
1629     if {[catch {sqlite3_prepare $dbptr $sql -1 sqltail} vm]} {
1632     set sql [string trim $sqltail]
1666 proc sql_uses_stmt {db sql} {  argument
1667   set stmt [sqlite3_prepare $db $sql -1 dummy]
1738   set sql [lindex $args end]
1792   if {[string length $sql]>0} {
1794     puts $f   "$sql"
2102       SELECT name, type, sql FROM sqlite_master order by name
2124     set sql {
2131     set sql {
2136   set tbllist [$db eval $sql]
2176   set sql ""
2181     append sql "INSERT INTO ${database}.malloc VALUES"
2182     append sql "('test', $nCall, $nByte, '$lStack');\n"
2197     append sql "INSERT INTO ${database}.frame VALUES($f, '$line');\n"
2211     append sql "INSERT INTO ${database}.file VALUES('$f', '$contents');\n"
2214   set escaped "BEGIN; ${tbl}${tbl2}${tbl3}${sql} ; COMMIT;"
2257     SELECT name FROM sqlite_master WHERE type='index' AND sql LIKE 'create%'
2422 proc sql36231 {sql} {  argument
2427   execsql $sql db36231