Pass all (relevant) regression tests when using the codec. (CVS 1223)
FossilOrigin-Name: 5200e9edc5fdba0285a3cb1cd808cbf66d7a349e
diff --git a/test/tclsqlite.test b/test/tclsqlite.test
index b8c90dc..fcbd25a 100644
--- a/test/tclsqlite.test
+++ b/test/tclsqlite.test
@@ -15,15 +15,15 @@
# 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.18 2004/02/01 01:22:52 drh Exp $
+# $Id: tclsqlite.test,v 1.19 2004/02/11 02:18:07 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
# Check the error messages generated by tclsqlite
#
-if {[sqlite -has-crypto]} {
- set r "sqlite HANDLE FILENAME ?-key CRYPTOKEY?"
+if {[sqlite -has-codec]} {
+ set r "sqlite_orig HANDLE FILENAME ?-key CODEC-KEY?"
} else {
set r "sqlite HANDLE FILENAME ?MODE?"
}