diff options
| author | drh <drh@noemail.net> | 2018-09-19 15:08:21 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2018-09-19 15:08:21 +0000 |
| commit | c6727c8342f753403303be237658acbafcd20b74 (patch) | |
| tree | ca3b9f36a14ece1bc9e5fa4c08b30ab2e8979266 /test/tclsqlite.test | |
| parent | 16f39b6e5d8010d3da305a02fc0ba85102f1c858 (diff) | |
| download | sqlite-c6727c8342f753403303be237658acbafcd20b74.tar.gz sqlite-c6727c8342f753403303be237658acbafcd20b74.zip | |
Fix the "sqlite3" command in the TCL interface so that it correctly returns
an error if invoked with no arguments.
FossilOrigin-Name: 2034fa8089676132b5e2f71bdebf1af9ca141da2e173920c6e84fb974ab0f022
Diffstat (limited to 'test/tclsqlite.test')
| -rw-r--r-- | test/tclsqlite.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/tclsqlite.test b/test/tclsqlite.test index fb4be3dfc..36063bc46 100644 --- a/test/tclsqlite.test +++ b/test/tclsqlite.test @@ -17,6 +17,8 @@ # # $Id: tclsqlite.test,v 1.73 2009/03/16 13:19:36 danielk1977 Exp $ +catch {sqlite3} + set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -31,6 +33,11 @@ do_test tcl-1.1 { regsub {really_sqlite3} $msg {sqlite3} msg lappend v $msg } [list 1 "wrong # args: should be \"$r\""] +do_test tcl-1.1.1 { + set v [catch {sqlite3} msg] + regsub {really_sqlite3} $msg {sqlite3} msg + lappend v $msg +} [list 1 "wrong # args: should be \"$r\""] do_test tcl-1.2 { set v [catch {db bogus} msg] lappend v $msg |