Import SQLite 3.7.6.3.

third_party/sqlite/src/test/descidx2.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: descidx2.test,v 1.5 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 140 matching lines @@
   cksort {SELECT b FROM t1 WHERE a>3 AND a<8 ORDER BY a}
 } {4 5 6 7 nosort}
 do_test descidx2-3.25 {
   cksort {SELECT b FROM t1 WHERE a>3 AND a<8 ORDER BY a ASC}
 } {4 5 6 7 nosort}
 do_test descidx2-3.26 {
   cksort {SELECT b FROM t1 WHERE a>3 AND a<8 ORDER BY a DESC}
 } {7 6 5 4 nosort}
 
 finish_test