diff options
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 |