Import SQLite 3.7.6.3.

third_party/sqlite/src/test/descidx1.test

 # 2005 December 21
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #*************************************************************************
 # This file implements regression tests for SQLite library.  The
 # focus of this script is descending indices.
 #
 # $Id: descidx1.test,v 1.10 2008/03/19 00:21:31 drh Exp $
 #
 
 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
+
 db eval {PRAGMA legacy_file_format=OFF}
 
 # This procedure sets the value of the file-format in file 'test.db'
 # to $newval. Also, the schema cookie is incremented.
 # 
 proc set_file_format {newval} {
   hexio_write test.db 44 [hexio_render_int32 $newval]
   set schemacookie [hexio_get_int [hexio_read test.db 40 4]]
   incr schemacookie
   hexio_write test.db 40 [hexio_render_int32 $schemacookie]
@@ skipping 320 matching lines @@
       PRAGMA legacy_file_format=ON;
       VACUUM;
     }
     get_file_format
   } {4}
 } 
 
 
 
 finish_test