diff options
Diffstat (limited to 'test/bind.test')
| -rw-r--r-- | test/bind.test | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/bind.test b/test/bind.test index 8bdc7af93..5ac134403 100644 --- a/test/bind.test +++ b/test/bind.test @@ -11,7 +11,7 @@ # This file implements regression tests for SQLite library. The # focus of this script testing the sqlite_bind API. # -# $Id: bind.test,v 1.26 2005/01/12 00:08:25 drh Exp $ +# $Id: bind.test,v 1.27 2005/01/20 02:17:02 danielk1977 Exp $ # set testdir [file dirname $argv0] @@ -494,8 +494,10 @@ catch {sqlite3_finalize $VM} # Make sure we catch an unterminated "(" in a Tcl-style variable name # -do_test bind-11.1 { - catchsql {SELECT * FROM sqlite_master WHERE name=$abc(123 and sql NOT NULL;} -} {1 {unrecognized token: "$abc(123"}} +ifcapable tclvar { + do_test bind-11.1 { + catchsql {SELECT * FROM sqlite_master WHERE name=$abc(123 and sql NOT NULL;} + } {1 {unrecognized token: "$abc(123"}} +} finish_test |