Some changes to test scripts related to codec enabled versions of sqlite.

FossilOrigin-Name: 85dd51a75c75b2a123744f646e04538e4e5d89b3

test/capi3.test

@@ -17,6 +17,11 @@
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+# Do not use a codec for tests in this file, as the database file is
+# manipulated directly using tcl scripts (using the [hexio_write] command).
+#
+do_not_use_codec
+
 # Return the UTF-16 representation of the supplied UTF-8 string $str.
 # If $nt is true, append two 0x00 bytes as a nul terminator.
 proc utf16 {str {nt 1}} {
@@ -635,7 +640,7 @@ db close
 do_test capi3-6.0 {
   sqlite3 db test.db
   set DB [sqlite3_connection_pointer db]
-  sqlite3_key $DB xyzzy
+  if {[sqlite3 -has-codec]==0} { sqlite3_key $DB xyzzy }
   set sql {SELECT a FROM t1 order by rowid}
   set STMT [sqlite3_prepare $DB $sql -1 TAIL]
   expr 0