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 further tests to e_createtable.test.

Browse Source 
FossilOrigin-Name: 0a4528d629018eae0b0f3e173ebda666c2e2d502
This commit is contained in:
dan
2010-09-30 18:43:14 +00:00
parent fac2bd452a
commit a3f5108c1f
4 changed files with 249 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
test/tester.tcl
View File

@ -335,11 +335,22 @@ proc do_test {name cmd expected} {
}
flush stdout
}
proc fix_testname {varname} {
upvar $varname testname
if {[info exists ::testprefix]
&& [string is digit [string range $testname 0 0]]
} {
set testname "${::testprefix}-$testname"
}
}
proc do_execsql_test {testname sql result} {
fix_testname testname
uplevel do_test $testname [list "execsql {$sql}"] [list $result]
}
proc do_catchsql_test {testname sql result} {
fix_testname testname
uplevel do_test $testname [list "catchsql {$sql}"] [list $result]
}