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

:-) (CVS 24)

Browse Source 
FossilOrigin-Name: 4cd98ebaeaedf66b258bbfa3a04d90c054294322
This commit is contained in:
drh
2000-05-31 17:59:25 +00:00
parent bf66fff0c5
commit 3aadb2e64c
5 changed files with 325 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
test/tester.tcl
View File

@ -23,7 +23,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.3 2000/05/30 00:51:27 drh Exp $
# $Id: tester.tcl,v 1.4 2000/05/31 17:59:27 drh Exp $
# Create a test database
#
@ -89,3 +89,16 @@ proc execsql {sql} {
}
return $result
}
# Another procedure to execute SQL. This one includes the field
# names in the returned list.
#
proc execsql2 {sql} {
set result {}
db eval $sql data {
foreach f $data(*) {
lappend result $f $data($f)
}
}
return $result
}