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

Changes to test scripts to accommodate different architectures and different

Browse Source 
versions of Tcl. (CVS 5057)

FossilOrigin-Name: 8eb2c07c520c12c2cd4610596dbec451c8275e95
This commit is contained in:
drh
2008-04-28 13:02:57 +00:00
parent 06af763e30
commit d65e530b7c
4 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/tclsqlite.test
View File

@ -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.63 2007/10/23 08:17:48 danielk1977 Exp $
# $Id: tclsqlite.test,v 1.64 2008/04/28 13:02:58 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -69,15 +69,15 @@ do_test tcl-1.5 {
} msg]
lappend v $msg
} {0 {}}
catch {expr x*} msg
do_test tcl-1.6 {
set v [catch {
db eval {SELECT * FROM t1} data {
expr x*
}
} msg]
regsub {:.*$} $msg {} msg
lappend v $msg
} {1 {syntax error in expression "x*"}}
} [list 1 $msg]
do_test tcl-1.7 {
set v [catch {db} msg]
lappend v $msg