database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Change the name of the TCL command from "sqlite" to "sqlite3" so that both

Browse Source 
SQLite version 2 and SQLite version 3 can be used by Tcl at the same time. (CVS 1626)

FossilOrigin-Name: d705d051bed2b92b6c3bbcc75fe5b056633b9c31
This commit is contained in:
drh
2004-06-19 00:16:31 +00:00
parent 81c95efaf5
commit ef4ac8f9df
43 changed files with 247 additions and 247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
test/tclsqlite.test
View File

@ -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)"