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

Fixed the support of UNIQUE and PRIMARY KEY. (CVS 268)

Browse Source 
FossilOrigin-Name: 116fdad06868acf6aca9e75c2c3497c0511a42c3
This commit is contained in:
drh
2001-09-27 15:11:53 +00:00
parent 717e640294
commit adbca9cfde
13 changed files with 261 additions and 238 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
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.19 2001/09/20 01:44:43 drh Exp $
# $Id: tester.tcl,v 1.20 2001/09/27 15:11:55 drh Exp $
# Make sure tclsqlite was compiled correctly. Abort now with an
# error message if not.
@ -174,6 +174,15 @@ proc execsql {sql {db db}} {
return [$db eval $sql]
}
# Execute SQL and catch exceptions.
#
proc catchsql {sql {db db}} {
# puts "SQL = $sql"
set r [catch {$db eval $sql} msg]
lappend r $msg
return $r
}
# Another procedure to execute SQL. This one includes the field
# names in the returned list.
#