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

Add test file e_update.test.

Browse Source 
FossilOrigin-Name: 03985ed4a0677b1c37696c0725d26d241665bf4e
This commit is contained in:
dan
2010-09-20 19:17:53 +00:00
parent d2db09068b
commit af1dcab2b7
4 changed files with 322 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
test/tester.tcl
View File

@ -350,6 +350,7 @@ proc do_catchsql_test {testname sql result} {
#
# -errorformat FMTSTRING
# -count
# -query SQL
#
proc do_select_tests {prefix args} {
@ -358,11 +359,14 @@ proc do_select_tests {prefix args} {
set errfmt ""
set countonly 0
set query ""
for {set i 0} {$i < [llength $switches]} {incr i} {
set s [lindex $switches $i]
set n [string length $s]
if {$n>=2 && [string equal -length $n $s "-errorformat"]} {
if {$n>=2 && [string equal -length $n $s "-query"]} {
set query [lindex $switches [incr i]]
} elseif {$n>=2 && [string equal -length $n $s "-errorformat"]} {
set errfmt [lindex $switches [incr i]]
} elseif {$n>=2 && [string equal -length $n $s "-count"]} {
set countonly 1
@ -380,6 +384,11 @@ proc do_select_tests {prefix args} {
}
foreach {tn sql res} $testlist {
if {$query != ""} {
execsql $sql
set sql $query
}
if {$countonly} {
set nRow 0
db eval $sql {incr nRow}