diff options
| author | drh <drh@noemail.net> | 2008-10-09 14:45:25 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2008-10-09 14:45:25 +0000 |
| commit | 073e7b1ca34bc38dc18dfc6c65ed681fdf51f2ee (patch) | |
| tree | a708cba7d0e914d61d9cd68c06e47241826cd195 /test/tclsqlite.test | |
| parent | be51a65dbc99ff0c132b9467295821b39f786856 (diff) | |
| download | sqlite-073e7b1ca34bc38dc18dfc6c65ed681fdf51f2ee.tar.gz sqlite-073e7b1ca34bc38dc18dfc6c65ed681fdf51f2ee.zip | |
Minor cleanup of the new "status" command on the TCL bindings. (CVS 5783)
FossilOrigin-Name: ec01bd72ee875df179c680c1a40304d2f807fe38
Diffstat (limited to 'test/tclsqlite.test')
| -rw-r--r-- | test/tclsqlite.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/tclsqlite.test b/test/tclsqlite.test index c95b7acb0..3ed837508 100644 --- a/test/tclsqlite.test +++ b/test/tclsqlite.test @@ -15,7 +15,7 @@ # interface is pretty well tested. This file contains some addition # tests for fringe issues that the main test suite does not cover. # -# $Id: tclsqlite.test,v 1.69 2008/09/09 12:31:34 drh Exp $ +# $Id: tclsqlite.test,v 1.70 2008/10/09 14:45:26 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -35,7 +35,7 @@ do_test tcl-1.1 { do_test tcl-1.2 { set v [catch {db bogus} msg] lappend v $msg -} {1 {bad option "bogus": must be authorizer, busy, cache, changes, close, collate, collation_needed, commit_hook, complete, copy, enable_load_extension, errorcode, eval, exists, function, incrblob, interrupt, last_insert_rowid, nullvalue, onecolumn, profile, progress, rekey, rollback_hook, timeout, total_changes, trace, transaction, update_hook, or version}} +} {1 {bad option "bogus": must be authorizer, busy, cache, changes, close, collate, collation_needed, commit_hook, complete, copy, enable_load_extension, errorcode, eval, exists, function, incrblob, interrupt, last_insert_rowid, nullvalue, onecolumn, profile, progress, rekey, rollback_hook, status, timeout, total_changes, trace, transaction, update_hook, or version}} do_test tcl-1.2.1 { set v [catch {db cache bogus} msg] lappend v $msg |