database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

:-) (CVS 11)

Browse Source 
FossilOrigin-Name: 9818723ee127bc535e79f6876546cc027b4999e6
This commit is contained in:
drh
2000-05-30 00:51:26 +00:00
parent a5c2f08f20
commit 62c6819115
6 changed files with 165 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
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.2 2000/05/29 23:48:23 drh Exp $
# $Id: tester.tcl,v 1.3 2000/05/30 00:51:27 drh Exp $
# Create a test database
#
@ -83,8 +83,7 @@ proc finish_test {} {
proc execsql {sql} {
set result {}
db eval $sql data {
foreach f [lsort [array names data]] {
if {$f=="*"} continue
foreach f $data(*) {
lappend result $data($f)
}
}