diff options
| author | drh <drh@noemail.net> | 2008-04-28 13:02:57 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2008-04-28 13:02:57 +0000 |
| commit | d65e530b7cd963fb61f5c51583f5a921c1f5db1f (patch) | |
| tree | 208b2f8ca7d485fc2348c97a5f57b91e189306f6 /test/tclsqlite.test | |
| parent | 06af763e30f1a9e98eaa10263e990dbeabce1064 (diff) | |
| download | sqlite-d65e530b7cd963fb61f5c51583f5a921c1f5db1f.tar.gz sqlite-d65e530b7cd963fb61f5c51583f5a921c1f5db1f.zip | |
Changes to test scripts to accommodate different architectures and different
versions of Tcl. (CVS 5057)
FossilOrigin-Name: 8eb2c07c520c12c2cd4610596dbec451c8275e95
Diffstat (limited to 'test/tclsqlite.test')
| -rw-r--r-- | test/tclsqlite.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/tclsqlite.test b/test/tclsqlite.test index 1c746f4ca..60bd8a3bd 100644 --- a/test/tclsqlite.test +++ b/test/tclsqlite.test @@ -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 |