database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Minor bugs fixed. (CVS 307)

Browse Source 
FossilOrigin-Name: 6e7e7dbf8e93d00eced88404aed792fcf9e75b7d
This commit is contained in:
drh
2001-11-09 22:41:44 +00:00
parent ce927065c2
commit 04096485f4
6 changed files with 27 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
test/tester.tcl
View File

@ -11,7 +11,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.20 2001/09/27 15:11:55 drh Exp $
# $Id: tester.tcl,v 1.21 2001/11/09 22:41:45 drh Exp $
# Make sure tclsqlite was compiled correctly. Abort now with an
# error message if not.
@ -183,6 +183,17 @@ proc catchsql {sql {db db}} {
return $r
}
# Do an VDBE code dump on the SQL given
#
proc explain {sql {db db}} {
puts ""
puts "addr opcode p1 p2 p3 "
puts "---- ------------ ------ ------ ---------------"
$db eval "explain $sql" {} {
puts [format {%-4d %-12.12s %-6d %-6d %s} $addr $opcode $p1 $p2 $p3]
}
}
# Another procedure to execute SQL. This one includes the field
# names in the returned list.
#