database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +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

14
test/tester.tcl
View File

@ -11,12 +11,12 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.36 2004/06/15 02:44:20 danielk1977 Exp $
# $Id: tester.tcl,v 1.37 2004/06/19 00:16:31 drh Exp $
# Make sure tclsqlite was compiled correctly. Abort now with an
# Make sure tclsqlite3 was compiled correctly. Abort now with an
# error message if not.
#
if {[sqlite -tcl-uses-utf]} {
if {[sqlite3 -tcl-uses-utf]} {
if {"\u1234"=="u1234"} {
puts stderr "***** BUILD PROBLEM *****"
puts stderr "$argv0 was linked against an older version"
@ -42,9 +42,9 @@ if {[sqlite -tcl-uses-utf]} {
# Use the pager codec if it is available
#
if {[sqlite -has-codec] && [info command sqlite_orig]==""} {
rename sqlite sqlite_orig
proc sqlite {args} {
if {[sqlite3 -has-codec] && [info command sqlite_orig]==""} {
rename sqlite3 sqlite_orig
proc sqlite3 {args} {
if {[llength $args]==2 && [string index [lindex $args 0] 0]!="-"} {
lappend args -key {xyzzy}
}
@ -58,7 +58,7 @@ if {[sqlite -has-codec] && [info command sqlite_orig]==""} {
catch {db close}
file delete -force test.db
file delete -force test.db-journal
sqlite db ./test.db
sqlite3 db ./test.db
if {[info exists ::SETUP_SQL]} {
db eval $::SETUP_SQL
}