diff options
Diffstat (limited to 'test/tclsqlite.test')
| -rw-r--r-- | test/tclsqlite.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/tclsqlite.test b/test/tclsqlite.test index bbf2d43f0..2920d97d0 100644 --- a/test/tclsqlite.test +++ b/test/tclsqlite.test @@ -15,20 +15,20 @@ # 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.23 2004/06/10 10:51:53 danielk1977 Exp $ +# $Id: tclsqlite.test,v 1.24 2004/06/19 00:16:31 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Check the error messages generated by tclsqlite # -if {[sqlite -has-codec]} { +if {[sqlite3 -has-codec]} { set r "sqlite_orig HANDLE FILENAME ?-key CODEC-KEY?" } else { - set r "sqlite HANDLE FILENAME ?MODE?" + set r "sqlite3 HANDLE FILENAME ?MODE?" } do_test tcl-1.1 { - set v [catch {sqlite bogus} msg] + set v [catch {sqlite3 bogus} msg] lappend v $msg } [list 1 "wrong # args: should be \"$r\""] do_test tcl-1.2 { @@ -71,7 +71,7 @@ do_test tcl-1.6 { lappend v $msg } {1 {syntax error in expression "x*"}} -if {[sqlite -tcl-uses-utf]} { +if {[sqlite3 -tcl-uses-utf]} { do_test tcl-2.1 { execsql "CREATE TABLE t\u0123x(a int, b\u1235 float)" execsql "PRAGMA table_info(t\u0123x)" |