Import SQLite 3.7.6.3.

third_party/sqlite/src/test/date.test

 # 2003 October 31
 #
 # 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 file is testing date and time functions.
 #
 # $Id: date.test,v 1.34 2009/04/16 12:58:03 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
+
 # Skip this whole file if date and time functions are omitted
 # at compile-time
 #
 ifcapable {!datetime} {
   finish_test
   return
 }
 
 proc datetest {tnum expr result} {
   do_test date-$tnum [subst {
@@ skipping 43 matching lines @@
 datetest 2.2 datetime(946684800,'unixepoch') {2000-01-01 00:00:00}
 datetest 2.2b datetime('946684800','unixepoch') {2000-01-01 00:00:00}
 for {set i 0} {$i<1000} {incr i} {
   set sql [format {strftime('%%H:%%M:%%f',1237962480.%03d,'unixepoch')} $i]
   set res [format {06:28:00.%03d} $i]
   datetest 2.2c-$i $sql $res
 }
 datetest 2.3 {date('2003-10-22','weekday 0')} 2003-10-26
 datetest 2.4 {date('2003-10-22','weekday 1')} 2003-10-27
 datetest 2.4a {date('2003-10-22','weekday  1')} 2003-10-27
-datetest 2.4b {date('2003-10-22','weekday  1x')} 2003-10-27
+datetest 2.4b {date('2003-10-22','weekday  1x')} NULL
 datetest 2.4c {date('2003-10-22','weekday  -1')} NULL
 datetest 2.4d {date('2003-10-22','weakday  1x')} NULL
 datetest 2.4e {date('2003-10-22','weekday ')} NULL
 datetest 2.5 {date('2003-10-22','weekday 2')} 2003-10-28
 datetest 2.6 {date('2003-10-22','weekday 3')} 2003-10-22
 datetest 2.7 {date('2003-10-22','weekday 4')} 2003-10-23
 datetest 2.8 {date('2003-10-22','weekday 5')} 2003-10-24
 datetest 2.9 {date('2003-10-22','weekday 6')} 2003-10-25
 datetest 2.10 {date('2003-10-22','weekday 7')} NULL
 datetest 2.11 {date('2003-10-22','weekday 5.5')} NULL
@@ skipping 395 matching lines @@
 datetest 13.32 {date('2002-01-01','+1.5 years')} {2003-07-02}
 datetest 13.33 {date('2002-01-01','-1.5 years')} {2000-07-02}
 datetest 13.34 {date('2001-01-01','-1.5 years')} {1999-07-02}
 
 # Test for issues reported by BareFeet (list.sql at tandb.com.au)
 # on mailing list on 2008-06-12.
 #
 # Put a floating point number in the database so that we can manipulate
 # raw bits using the hexio interface.
 #
-do_test date-14.1 {
-  execsql {
-    PRAGMA auto_vacuum=OFF;
-    PRAGMA page_size = 1024;
-    CREATE TABLE t1(x);
-    INSERT INTO t1 VALUES(1.1);
+if {0==[sqlite3 -has-codec]} {
+  do_test date-14.1 {
+    execsql {
+      PRAGMA auto_vacuum=OFF;
+      PRAGMA page_size = 1024;
+      CREATE TABLE t1(x);
+      INSERT INTO t1 VALUES(1.1);
+    }
+    db close
+    hexio_write test.db 2040 4142ba32bffffff9
+    sqlite3 db test.db
+    db eval {SELECT * FROM t1}
+  } {2454629.5}
+  
+  # Changing the least significant byte of the floating point value between
+  # 00 and FF should always generate a time of either 23:59:59 or 00:00:00,
+  # never 24:00:00
+  #
+  for {set i 0} {$i<=255} {incr i} {
+    db close
+    hexio_write test.db 2047 [format %02x $i]
+    sqlite3 db test.db
+    do_test date-14.2.$i {
+      set date [db one {SELECT datetime(x) FROM t1}]
+      expr {$date eq "2008-06-12 00:00:00" || $date eq "2008-06-11 23:59:59"}
+    } {1}
   }
-  db close
-  hexio_write test.db 2040 4142ba32bffffff9
-  sqlite3 db test.db
-  db eval {SELECT * FROM t1}
-} {2454629.5}
-
-# Changing the least significant byte of the floating point value between
-# 00 and FF should always generate a time of either 23:59:59 or 00:00:00,
-# never 24:00:00
-#
-for {set i 0} {$i<=255} {incr i} {
-  db close
-  hexio_write test.db 2047 [format %02x $i]
-  sqlite3 db test.db
-  do_test date-14.2.$i {
-    set date [db one {SELECT datetime(x) FROM t1}]
-    expr {$date eq "2008-06-12 00:00:00" || $date eq "2008-06-11 23:59:59"}
-  } {1}
 }
 finish_test