diff options
| author | drh <drh@noemail.net> | 2010-06-21 12:47:41 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2010-06-21 12:47:41 +0000 |
| commit | 24f0f7716a8963454d77e0224c98dc76f1eebfd2 (patch) | |
| tree | f76f3b8d9477bb70be62d337bd579479b4d23078 /test/tester.tcl | |
| parent | 19515c8da1df2330c7689315dcd70fc02a4b4e28 (diff) | |
| parent | e08341c664e41bb084a7a95bfb47b90b13868694 (diff) | |
| download | sqlite-24f0f7716a8963454d77e0224c98dc76f1eebfd2.tar.gz sqlite-24f0f7716a8963454d77e0224c98dc76f1eebfd2.zip | |
Merge the experimental UNDELETABLE_WHEN_OPEN optimization into the trunk.
FossilOrigin-Name: ee0acef1faffd480fd2136f81fb2b6f6a17b5388
Diffstat (limited to 'test/tester.tcl')
| -rw-r--r-- | test/tester.tcl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/tester.tcl b/test/tester.tcl index 625bdcc3e..d6ce7eac2 100644 --- a/test/tester.tcl +++ b/test/tester.tcl @@ -49,6 +49,8 @@ # crashsql ARGS... # integrity_check TESTNAME ?DB? # do_test TESTNAME SCRIPT EXPECTED +# do_execsql_test TESTNAME SQL EXPECTED +# do_catchsql_test TESTNAME SQL EXPECTED # # Commands providing a lower level interface to the global test counters: # @@ -316,6 +318,14 @@ proc do_test {name cmd expected} { } flush stdout } + +proc do_execsql_test {testname sql result} { + uplevel do_test $testname [list "execsql {$sql}"] [list $result] +} +proc do_catchsql_test {testname sql result} { + uplevel do_test $testname [list "catchsql {$sql}"] [list $result] +} + # Run an SQL script. # Return the number of microseconds per statement. |