os/persistentdata/persistentstorage/sqlite3api/TEST/TclScript/date.test
author sl@SLION-WIN7.fritz.box
Fri, 15 Jun 2012 03:10:57 +0200
changeset 0 bde4ae8d615e
permissions -rw-r--r--
First public contribution.
     1 # 2003 October 31
     2 #
     3 # The author disclaims copyright to this source code.  In place of
     4 # a legal notice, here is a blessing:
     5 #
     6 #    May you do good and not evil.
     7 #    May you find forgiveness for yourself and forgive others.
     8 #    May you share freely, never taking more than you give.
     9 #
    10 #***********************************************************************
    11 # This file implements regression tests for SQLite library.  The
    12 # focus of this file is testing date and time functions.
    13 #
    14 # $Id: date.test,v 1.31 2008/07/08 02:12:37 drh Exp $
    15 
    16 set testdir [file dirname $argv0]
    17 source $testdir/tester.tcl
    18 
    19 # Skip this whole file if date and time functions are omitted
    20 # at compile-time
    21 #
    22 ifcapable {!datetime} {
    23   finish_test
    24   return
    25 }
    26 
    27 proc datetest {tnum expr result} {
    28   do_test date-$tnum [subst {
    29     execsql "SELECT coalesce($expr,'NULL')"
    30   }] [list $result]
    31 }
    32 set tcl_precision 15
    33 datetest 1.1 julianday('2000-01-01') 2451544.5
    34 datetest 1.2 julianday('1970-01-01') 2440587.5
    35 datetest 1.3 julianday('1910-04-20') 2418781.5
    36 datetest 1.4 julianday('1986-02-09') 2446470.5
    37 datetest 1.5 julianday('12:00:00') 2451545.0
    38 datetest 1.6 {julianday('2000-01-01 12:00:00')} 2451545.0
    39 datetest 1.7 {julianday('2000-01-01 12:00')} 2451545.0
    40 datetest 1.8 julianday('bogus') NULL
    41 datetest 1.9 julianday('1999-12-31') 2451543.5
    42 datetest 1.10 julianday('1999-12-32') NULL
    43 datetest 1.11 julianday('1999-13-01') NULL
    44 datetest 1.12 julianday('2003-02-31') 2452701.5
    45 datetest 1.13 julianday('2003-03-03') 2452701.5
    46 datetest 1.14 julianday('+2000-01-01') NULL
    47 datetest 1.15 julianday('200-01-01') NULL
    48 datetest 1.16 julianday('2000-1-01') NULL
    49 datetest 1.17 julianday('2000-01-1') NULL
    50 datetest 1.18.1 {julianday('2000-01-01     12:00:00')} 2451545.0
    51 datetest 1.18.2 {julianday('2000-01-01T12:00:00')} 2451545.0
    52 datetest 1.18.3 {julianday('2000-01-01 T12:00:00')} 2451545.0
    53 datetest 1.18.4 {julianday('2000-01-01T 12:00:00')} 2451545.0
    54 datetest 1.18.4 {julianday('2000-01-01 T 12:00:00')} 2451545.0
    55 datetest 1.19 {julianday('2000-01-01 12:00:00.1')}   2451545.00000116
    56 datetest 1.20 {julianday('2000-01-01 12:00:00.01')}  2451545.00000012
    57 datetest 1.21 {julianday('2000-01-01 12:00:00.001')} 2451545.00000001
    58 datetest 1.22 {julianday('2000-01-01 12:00:00.')} NULL
    59 datetest 1.23 julianday(12345.6) 12345.6
    60 datetest 1.23b julianday('12345.6') 12345.6
    61 datetest 1.24 {julianday('2001-01-01 12:00:00 bogus')} NULL
    62 datetest 1.25 {julianday('2001-01-01 bogus')} NULL
    63 datetest 1.26 {julianday('2001-01-01 12:60:00')} NULL
    64 datetest 1.27 {julianday('2001-01-01 12:59:60')} NULL
    65 datetest 1.28 {julianday('2001-00-01')} NULL
    66 datetest 1.29 {julianday('2001-01-00')} NULL
    67 
    68 datetest 2.1 datetime(0,'unixepoch') {1970-01-01 00:00:00}
    69 datetest 2.1b datetime(0,'unixepoc') NULL
    70 datetest 2.1c datetime(0,'unixepochx') NULL
    71 datetest 2.1d datetime('2003-10-22','unixepoch') NULL
    72 datetest 2.2 datetime(946684800,'unixepoch') {2000-01-01 00:00:00}
    73 datetest 2.2b datetime('946684800','unixepoch') {2000-01-01 00:00:00}
    74 datetest 2.3 {date('2003-10-22','weekday 0')} 2003-10-26
    75 datetest 2.4 {date('2003-10-22','weekday 1')} 2003-10-27
    76 datetest 2.4a {date('2003-10-22','weekday  1')} 2003-10-27
    77 datetest 2.4b {date('2003-10-22','weekday  1x')} 2003-10-27
    78 datetest 2.4c {date('2003-10-22','weekday  -1')} NULL
    79 datetest 2.4d {date('2003-10-22','weakday  1x')} NULL
    80 datetest 2.4e {date('2003-10-22','weekday ')} NULL
    81 datetest 2.5 {date('2003-10-22','weekday 2')} 2003-10-28
    82 datetest 2.6 {date('2003-10-22','weekday 3')} 2003-10-22
    83 datetest 2.7 {date('2003-10-22','weekday 4')} 2003-10-23
    84 datetest 2.8 {date('2003-10-22','weekday 5')} 2003-10-24
    85 datetest 2.9 {date('2003-10-22','weekday 6')} 2003-10-25
    86 datetest 2.10 {date('2003-10-22','weekday 7')} NULL
    87 datetest 2.11 {date('2003-10-22','weekday 5.5')} NULL
    88 datetest 2.12 {datetime('2003-10-22 12:34','weekday 0')} {2003-10-26 12:34:00}
    89 datetest 2.13 {datetime('2003-10-22 12:34','start of month')} \
    90    {2003-10-01 00:00:00}
    91 datetest 2.14 {datetime('2003-10-22 12:34','start of year')} \
    92    {2003-01-01 00:00:00}
    93 datetest 2.15 {datetime('2003-10-22 12:34','start of day')} \
    94    {2003-10-22 00:00:00}
    95 datetest 2.15a {datetime('2003-10-22 12:34','start of')} NULL
    96 datetest 2.15b {datetime('2003-10-22 12:34','start of bogus')} NULL
    97 datetest 2.16 time('12:34:56.43') 12:34:56
    98 datetest 2.17 {datetime('2003-10-22 12:34','1 day')} {2003-10-23 12:34:00}
    99 datetest 2.18 {datetime('2003-10-22 12:34','+1 day')} {2003-10-23 12:34:00}
   100 datetest 2.19 {datetime('2003-10-22 12:34','+1.25 day')} {2003-10-23 18:34:00}
   101 datetest 2.20 {datetime('2003-10-22 12:34','-1.0 day')} {2003-10-21 12:34:00}
   102 datetest 2.21 {datetime('2003-10-22 12:34','1 month')} {2003-11-22 12:34:00}
   103 datetest 2.22 {datetime('2003-10-22 12:34','11 month')} {2004-09-22 12:34:00}
   104 datetest 2.23 {datetime('2003-10-22 12:34','-13 month')} {2002-09-22 12:34:00}
   105 datetest 2.24 {datetime('2003-10-22 12:34','1.5 months')} {2003-12-07 12:34:00}
   106 datetest 2.25 {datetime('2003-10-22 12:34','-5 years')} {1998-10-22 12:34:00}
   107 datetest 2.26 {datetime('2003-10-22 12:34','+10.5 minutes')} \
   108   {2003-10-22 12:44:30}
   109 datetest 2.27 {datetime('2003-10-22 12:34','-1.25 hours')} \
   110   {2003-10-22 11:19:00}
   111 datetest 2.28 {datetime('2003-10-22 12:34','11.25 seconds')} \
   112   {2003-10-22 12:34:11}
   113 datetest 2.29 {datetime('2003-10-22 12:24','+5 bogus')} NULL
   114 datetest 2.30 {datetime('2003-10-22 12:24','+++')} NULL
   115 datetest 2.31 {datetime('2003-10-22 12:24','+12.3e4 femtoseconds')} NULL
   116 datetest 2.32 {datetime('2003-10-22 12:24','+12.3e4 uS')} NULL
   117 datetest 2.33 {datetime('2003-10-22 12:24','+1 abc')} NULL
   118 datetest 2.34 {datetime('2003-10-22 12:24','+1 abcd')} NULL
   119 datetest 2.35 {datetime('2003-10-22 12:24','+1 abcde')} NULL
   120 datetest 2.36 {datetime('2003-10-22 12:24','+1 abcdef')} NULL
   121 datetest 2.37 {datetime('2003-10-22 12:24','+1 abcdefg')} NULL
   122 datetest 2.38 {datetime('2003-10-22 12:24','+1 abcdefgh')} NULL
   123 datetest 2.39 {datetime('2003-10-22 12:24','+1 abcdefghi')} NULL
   124 set sqlite_current_time 1199243045
   125 datetest 2.40 {datetime()} {2008-01-02 03:04:05}
   126 set sqlite_current_time 0
   127 datetest 2.41 {datetime('2003-10-22 12:24','23 seconds')} {2003-10-22 12:24:23}
   128 datetest 2.42 {datetime('2003-10-22 12:24','345 second')} {2003-10-22 12:29:45}
   129 datetest 2.43 {datetime('2003-10-22 12:24','4 second')} {2003-10-22 12:24:04}
   130 datetest 2.44 {datetime('2003-10-22 12:24','56 second')} {2003-10-22 12:24:56}
   131 datetest 2.45 {datetime('2003-10-22 12:24','60 second')} {2003-10-22 12:25:00}
   132 datetest 2.46 {datetime('2003-10-22 12:24','70 second')} {2003-10-22 12:25:10}
   133 datetest 2.47 {datetime('2003-10-22 12:24','8.6 seconds')} {2003-10-22 12:24:08}
   134 datetest 2.48 {datetime('2003-10-22 12:24','9.4 second')} {2003-10-22 12:24:09}
   135 datetest 2.49 {datetime('2003-10-22 12:24','0000 second')} {2003-10-22 12:24:00}
   136 datetest 2.50 {datetime('2003-10-22 12:24','0001 second')} {2003-10-22 12:24:01}
   137 datetest 2.51 {datetime('2003-10-22 12:24','nonsense')} NULL
   138 
   139 datetest 3.1 {strftime('%d','2003-10-31 12:34:56.432')} 31
   140 datetest 3.2.1 {strftime('pre%fpost','2003-10-31 12:34:56.432')} pre56.432post
   141 datetest 3.2.2 {strftime('%f','2003-10-31 12:34:59.9999999')} 59.999
   142 datetest 3.3 {strftime('%H','2003-10-31 12:34:56.432')} 12
   143 datetest 3.4 {strftime('%j','2003-10-31 12:34:56.432')} 304
   144 datetest 3.5 {strftime('%J','2003-10-31 12:34:56.432')} 2452944.02426426
   145 datetest 3.6 {strftime('%m','2003-10-31 12:34:56.432')} 10
   146 datetest 3.7 {strftime('%M','2003-10-31 12:34:56.432')} 34
   147 datetest 3.8 {strftime('%s','2003-10-31 12:34:56.432')} 1067603696
   148 datetest 3.9 {strftime('%S','2003-10-31 12:34:56.432')} 56
   149 datetest 3.10 {strftime('%w','2003-10-31 12:34:56.432')} 5
   150 datetest 3.11.1 {strftime('%W','2003-10-31 12:34:56.432')} 43
   151 datetest 3.11.2 {strftime('%W','2004-01-01')} 00
   152 datetest 3.11.3 {strftime('%W','2004-01-02')} 00
   153 datetest 3.11.4 {strftime('%W','2004-01-03')} 00
   154 datetest 3.11.5 {strftime('abc%Wxyz','2004-01-04')} abc00xyz
   155 datetest 3.11.6 {strftime('%W','2004-01-05')} 01
   156 datetest 3.11.7 {strftime('%W','2004-01-06')} 01
   157 datetest 3.11.8 {strftime('%W','2004-01-07')} 01
   158 datetest 3.11.9 {strftime('%W','2004-01-08')} 01
   159 datetest 3.11.10 {strftime('%W','2004-01-09')} 01
   160 datetest 3.11.11 {strftime('%W','2004-07-18')} 28
   161 datetest 3.11.12 {strftime('%W','2004-12-31')} 52
   162 datetest 3.11.13 {strftime('%W','2007-12-31')} 53
   163 datetest 3.11.14 {strftime('%W','2007-01-01')} 01
   164 datetest 3.11.15 {strftime('%W %j',2454109.04140970)} {02 008}
   165 datetest 3.11.16 {strftime('%W %j',2454109.04140971)} {02 008}
   166 datetest 3.11.17 {strftime('%W %j',2454109.04140972)} {02 008}
   167 datetest 3.11.18 {strftime('%W %j',2454109.04140973)} {02 008}
   168 datetest 3.11.19 {strftime('%W %j',2454109.04140974)} {02 008}
   169 datetest 3.11.20 {strftime('%W %j',2454109.04140975)} {02 008}
   170 datetest 3.11.21 {strftime('%W %j',2454109.04140976)} {02 008}
   171 datetest 3.11.22 {strftime('%W %j',2454109.04140977)} {02 008}
   172 datetest 3.11.23 {strftime('%W %j',2454109.04140978)} {02 008}
   173 datetest 3.11.24 {strftime('%W %j',2454109.04140979)} {02 008}
   174 datetest 3.11.25 {strftime('%W %j',2454109.04140980)} {02 008}
   175 datetest 3.11.99 {strftime('%W %j','2454109.04140970')} {02 008}
   176 datetest 3.12 {strftime('%Y','2003-10-31 12:34:56.432')} 2003
   177 datetest 3.13 {strftime('%%','2003-10-31 12:34:56.432')} %
   178 datetest 3.14 {strftime('%_','2003-10-31 12:34:56.432')} NULL
   179 datetest 3.15 {strftime('%Y-%m-%d','2003-10-31')} 2003-10-31
   180 proc repeat {n txt} {
   181   set x {} 
   182   while {$n>0} {
   183     append x $txt
   184     incr n -1
   185   }
   186   return $x
   187 }
   188 datetest 3.16 "strftime('[repeat 200 %Y]','2003-10-31')" [repeat 200 2003]
   189 datetest 3.17 "strftime('[repeat 200 abc%m123]','2003-10-31')" \
   190     [repeat 200 abc10123]
   191 
   192 foreach c {a b c e g h i k l n o p q r t v x y z
   193            A B C D E F G I K L N O P Q R T U V Z
   194            0 1 2 3 4 5 6 6 7 9 _} {
   195   datetest 3.18.$c "strftime('%$c','2003-10-31')" NULL
   196 }
   197 
   198 # Ticket #2276.  Make sure leading zeros are inserted where appropriate.
   199 #
   200 datetest 3.20 \
   201    {strftime('%d/%f/%H/%W/%j/%m/%M/%S/%Y','0421-01-02 03:04:05.006')} \
   202    02/05.006/03/00/002/01/04/05/0421
   203 
   204 set sqlite_current_time 1157124367
   205 datetest 4.1 {date('now')} {2006-09-01}
   206 set sqlite_current_time 0
   207 
   208 datetest 5.1 {datetime('1994-04-16 14:00:00 +05:00')} {1994-04-16 09:00:00}
   209 datetest 5.2 {datetime('1994-04-16 14:00:00 -05:15')} {1994-04-16 19:15:00}
   210 datetest 5.3 {datetime('1994-04-16 05:00:00 +08:30')} {1994-04-15 20:30:00}
   211 datetest 5.4 {datetime('1994-04-16 14:00:00 -11:55')} {1994-04-17 01:55:00}
   212 datetest 5.5 {datetime('1994-04-16 14:00:00 -11:60')} NULL
   213 datetest 5.6 {datetime('1994-04-16 14:00:00 -11:55  ')} {1994-04-17 01:55:00}
   214 datetest 5.7 {datetime('1994-04-16 14:00:00 -11:55 x')} NULL
   215 datetest 5.8 {datetime('1994-04-16T14:00:00Z')} {1994-04-16 14:00:00}
   216 datetest 5.9 {datetime('1994-04-16 14:00:00z')} {1994-04-16 14:00:00}
   217 datetest 5.10 {datetime('1994-04-16 14:00:00 Z')} {1994-04-16 14:00:00}
   218 datetest 5.11 {datetime('1994-04-16 14:00:00z    ')} {1994-04-16 14:00:00}
   219 datetest 5.12 {datetime('1994-04-16 14:00:00     z    ')} {1994-04-16 14:00:00}
   220 datetest 5.13 {datetime('1994-04-16 14:00:00Zulu')} NULL
   221 datetest 5.14 {datetime('1994-04-16 14:00:00Z +05:00')} NULL
   222 datetest 5.15 {datetime('1994-04-16 14:00:00 +05:00 Z')} NULL
   223 
   224 # localtime->utc and utc->localtime conversions.  These tests only work
   225 # if the localtime is in the US Eastern Time (the time in Charlotte, NC
   226 # and in New York.)
   227 #
   228 # On non-Vista Windows platform, '2006-03-31' is treated incorrectly as being
   229 # in DST giving a 4 hour offset instead of 5.  In 2007, DST was extended to 
   230 # start three weeks earlier (second Sunday in March) and end one week
   231 # later (first Sunday in November).  Older Windows systems apply this
   232 # new rule incorrectly to dates prior to 2007.
   233 #
   234 # It might be argued that this is masking a problem on non-Vista Windows
   235 # platform.  A ticket has already been opened for this issue 
   236 # (http://www.sqlite.org/cvstrac/tktview?tn=2322).  This is just to prevent
   237 # more confusion/reports of the issue.
   238 #
   239 
   240 # $tzoffset_old should be 5 if DST is working correctly.
   241 set tzoffset_old [db one {
   242   SELECT CAST(24*(julianday('2006-03-31') -
   243                   julianday('2006-03-31','localtime'))+0.5
   244               AS INT)
   245 }]
   246 
   247 # $tzoffset_new should be 4 if DST is working correctly.
   248 set tzoffset_new [db one {
   249   SELECT CAST(24*(julianday('2007-03-31') -
   250                   julianday('2007-03-31','localtime'))+0.5
   251               AS INT)
   252 }]
   253 
   254 # Warn about possibly broken Windows DST implementations.
   255 if {$::tcl_platform(platform)=="windows" && $tzoffset_new==4 && $tzoffset_old==4} {
   256   puts "******************************************************************"
   257   puts "N.B.:  The DST support provided by your current O/S seems to be"
   258   puts "suspect in that it is reporting incorrect DST values for dates"
   259   puts "prior to 2007.  This is the known case for most (all?) non-Vista"
   260   puts "Windows versions.  Please see ticket #2322 for more information."
   261   puts "******************************************************************"
   262 }
   263 
   264 if {$tzoffset_new==4} {
   265   datetest 6.1 {datetime('2000-10-29 05:59:00','localtime')}\
   266       {2000-10-29 01:59:00}
   267   datetest 6.1.1 {datetime('2006-10-29 05:59:00','localtime')}\
   268       {2006-10-29 01:59:00}
   269   datetest 6.1.2 {datetime('2007-11-04 05:59:00','localtime')}\
   270       {2007-11-04 01:59:00}
   271 
   272   # If the new and old DST rules seem to be working correctly...
   273   if {$tzoffset_new==4 && $tzoffset_old==5} {
   274     datetest 6.2 {datetime('2000-10-29 06:00:00','localtime')}\
   275         {2000-10-29 01:00:00}
   276     datetest 6.2.1 {datetime('2006-10-29 06:00:00','localtime')}\
   277         {2006-10-29 01:00:00}
   278   }
   279   datetest 6.2.2 {datetime('2007-11-04 06:00:00','localtime')}\
   280       {2007-11-04 01:00:00}
   281 
   282   # If the new and old DST rules seem to be working correctly...
   283   if {$tzoffset_new==4 && $tzoffset_old==5} {
   284     datetest 6.3 {datetime('2000-04-02 06:59:00','localtime')}\
   285         {2000-04-02 01:59:00}
   286     datetest 6.3.1 {datetime('2006-04-02 06:59:00','localtime')}\
   287         {2006-04-02 01:59:00}
   288   }
   289   datetest 6.3.2 {datetime('2007-03-11 07:00:00','localtime')}\
   290       {2007-03-11 03:00:00}
   291 
   292   datetest 6.4 {datetime('2000-04-02 07:00:00','localtime')}\
   293       {2000-04-02 03:00:00}
   294   datetest 6.4.1 {datetime('2006-04-02 07:00:00','localtime')}\
   295       {2006-04-02 03:00:00}
   296   datetest 6.4.2 {datetime('2007-03-11 07:00:00','localtime')}\
   297       {2007-03-11 03:00:00}
   298       
   299   datetest 6.5 {datetime('2000-10-29 01:59:00','utc')} {2000-10-29 05:59:00}
   300   datetest 6.5.1 {datetime('2006-10-29 01:59:00','utc')} {2006-10-29 05:59:00}
   301   datetest 6.5.2 {datetime('2007-11-04 01:59:00','utc')} {2007-11-04 05:59:00}
   302 
   303   # If the new and old DST rules seem to be working correctly...
   304   if {$tzoffset_new==4 && $tzoffset_old==5} {
   305     datetest 6.6 {datetime('2000-10-29 02:00:00','utc')} {2000-10-29 07:00:00}
   306     datetest 6.6.1 {datetime('2006-10-29 02:00:00','utc')} {2006-10-29 07:00:00}
   307   }
   308   datetest 6.6.2 {datetime('2007-11-04 02:00:00','utc')} {2007-11-04 07:00:00}
   309 
   310   # If the new and old DST rules seem to be working correctly...
   311   if {$tzoffset_new==4 && $tzoffset_old==5} {
   312     datetest 6.7 {datetime('2000-04-02 01:59:00','utc')} {2000-04-02 06:59:00}
   313     datetest 6.7.1 {datetime('2006-04-02 01:59:00','utc')} {2006-04-02 06:59:00}
   314   }
   315   datetest 6.7.2 {datetime('2007-03-11 01:59:00','utc')} {2007-03-11 06:59:00}
   316 
   317   datetest 6.8 {datetime('2000-04-02 02:00:00','utc')} {2000-04-02 06:00:00}
   318   datetest 6.8.1 {datetime('2006-04-02 02:00:00','utc')} {2006-04-02 06:00:00}
   319   datetest 6.8.2 {datetime('2007-03-11 02:00:00','utc')} {2007-03-11 06:00:00}
   320 
   321   datetest 6.10 {datetime('2000-01-01 12:00:00','localtime')} \
   322       {2000-01-01 07:00:00}
   323   datetest 6.11 {datetime('1969-01-01 12:00:00','localtime')} \
   324       {1969-01-01 07:00:00}
   325   datetest 6.12 {datetime('2039-01-01 12:00:00','localtime')} \
   326       {2039-01-01 07:00:00}
   327   datetest 6.13 {datetime('2000-07-01 12:00:00','localtime')} \
   328       {2000-07-01 08:00:00}
   329   datetest 6.14 {datetime('1969-07-01 12:00:00','localtime')} \
   330       {1969-07-01 07:00:00}
   331   datetest 6.15 {datetime('2039-07-01 12:00:00','localtime')} \
   332       {2039-07-01 07:00:00}
   333   set sqlite_current_time \
   334      [db eval {SELECT strftime('%s','2000-07-01 12:34:56')}]
   335   datetest 6.16 {datetime('now','localtime')} {2000-07-01 08:34:56}
   336   datetest 6.17 {datetime('now','localtimex')} NULL
   337   datetest 6.18 {datetime('now','localtim')} NULL
   338   set sqlite_current_time 0
   339 }
   340 
   341 # These two are a bit of a scam. They are added to ensure that 100% of
   342 # the date.c file is covered by testing, even when the time-zone
   343 # is not -0400 (the condition for running of the block of tests above).
   344 #
   345 datetest 6.19 {datetime('2039-07-01 12:00:00','localtime',null)} NULL
   346 datetest 6.20 {datetime('2039-07-01 12:00:00','utc',null)} NULL
   347 
   348 # Date-time functions that contain NULL arguments return a NULL
   349 # result.
   350 #
   351 datetest 7.1 {datetime(null)} NULL
   352 datetest 7.2 {datetime('now',null)} NULL
   353 datetest 7.3 {datetime('now','localtime',null)} NULL
   354 datetest 7.4 {time(null)} NULL
   355 datetest 7.5 {time('now',null)} NULL
   356 datetest 7.6 {time('now','localtime',null)} NULL
   357 datetest 7.7 {date(null)} NULL
   358 datetest 7.8 {date('now',null)} NULL
   359 datetest 7.9 {date('now','localtime',null)} NULL
   360 datetest 7.10 {julianday(null)} NULL
   361 datetest 7.11 {julianday('now',null)} NULL
   362 datetest 7.12 {julianday('now','localtime',null)} NULL
   363 datetest 7.13 {strftime(null,'now')} NULL
   364 datetest 7.14 {strftime('%s',null)} NULL
   365 datetest 7.15 {strftime('%s','now',null)} NULL
   366 datetest 7.16 {strftime('%s','now','localtime',null)} NULL
   367 
   368 # Test modifiers when the date begins as a julian day number - to
   369 # make sure the HH:MM:SS is preserved.  Ticket #551.
   370 #
   371 set sqlite_current_time [db eval {SELECT strftime('%s','2003-10-22 12:34:00')}]
   372 datetest 8.1 {datetime('now','weekday 0')} {2003-10-26 12:34:00}
   373 datetest 8.2 {datetime('now','weekday 1')} {2003-10-27 12:34:00}
   374 datetest 8.3 {datetime('now','weekday 2')} {2003-10-28 12:34:00}
   375 datetest 8.4 {datetime('now','weekday 3')} {2003-10-22 12:34:00}
   376 datetest 8.5 {datetime('now','start of month')} {2003-10-01 00:00:00}
   377 datetest 8.6 {datetime('now','start of year')} {2003-01-01 00:00:00}
   378 datetest 8.7 {datetime('now','start of day')} {2003-10-22 00:00:00}
   379 datetest 8.8 {datetime('now','1 day')} {2003-10-23 12:34:00}
   380 datetest 8.9 {datetime('now','+1 day')} {2003-10-23 12:34:00}
   381 datetest 8.10 {datetime('now','+1.25 day')} {2003-10-23 18:34:00}
   382 datetest 8.11 {datetime('now','-1.0 day')} {2003-10-21 12:34:00}
   383 datetest 8.12 {datetime('now','1 month')} {2003-11-22 12:34:00}
   384 datetest 8.13 {datetime('now','11 month')} {2004-09-22 12:34:00}
   385 datetest 8.14 {datetime('now','-13 month')} {2002-09-22 12:34:00}
   386 datetest 8.15 {datetime('now','1.5 months')} {2003-12-07 12:34:00}
   387 datetest 8.16 {datetime('now','-5 years')} {1998-10-22 12:34:00}
   388 datetest 8.17 {datetime('now','+10.5 minutes')} {2003-10-22 12:44:30}
   389 datetest 8.18 {datetime('now','-1.25 hours')} {2003-10-22 11:19:00}
   390 datetest 8.19 {datetime('now','11.25 seconds')} {2003-10-22 12:34:11}
   391 datetest 8.90 {datetime('now','abcdefghijklmnopqrstuvwyxzABCDEFGHIJLMNOP')} NULL
   392 set sqlite_current_time 0
   393 
   394 # Negative years work.  Example:  '-4713-11-26' is JD 1.5.
   395 #
   396 datetest 9.1 {julianday('-4713-11-24 12:00:00')} {0.0}
   397 datetest 9.2 {julianday(datetime(5))} {5.0}
   398 datetest 9.3 {julianday(datetime(10))} {10.0}
   399 datetest 9.4 {julianday(datetime(100))} {100.0}
   400 datetest 9.5 {julianday(datetime(1000))} {1000.0}
   401 datetest 9.6 {julianday(datetime(10000))} {10000.0}
   402 datetest 9.7 {julianday(datetime(100000))} {100000.0}
   403 
   404 # datetime() with just an HH:MM:SS correctly inserts the date 2000-01-01.
   405 #
   406 datetest 10.1 {datetime('01:02:03')}  {2000-01-01 01:02:03}
   407 datetest 10.2 {date('01:02:03')}  {2000-01-01}
   408 datetest 10.3 {strftime('%Y-%m-%d %H:%M','01:02:03')} {2000-01-01 01:02}
   409 
   410 # Test the new HH:MM:SS modifier
   411 #
   412 datetest 11.1 {datetime('2004-02-28 20:00:00', '-01:20:30')} \
   413    {2004-02-28 18:39:30}
   414 datetest 11.2 {datetime('2004-02-28 20:00:00', '+12:30:00')} \
   415    {2004-02-29 08:30:00}
   416 datetest 11.3 {datetime('2004-02-28 20:00:00', '+12:30')} \
   417    {2004-02-29 08:30:00}
   418 datetest 11.4 {datetime('2004-02-28 20:00:00', '12:30')} \
   419    {2004-02-29 08:30:00}
   420 datetest 11.5 {datetime('2004-02-28 20:00:00', '-12:00')} \
   421    {2004-02-28 08:00:00}
   422 datetest 11.6 {datetime('2004-02-28 20:00:00', '-12:01')} \
   423    {2004-02-28 07:59:00}
   424 datetest 11.7 {datetime('2004-02-28 20:00:00', '-11:59')} \
   425    {2004-02-28 08:01:00}
   426 datetest 11.8 {datetime('2004-02-28 20:00:00', '11:59')} \
   427    {2004-02-29 07:59:00}
   428 datetest 11.9 {datetime('2004-02-28 20:00:00', '12:01')} \
   429    {2004-02-29 08:01:00}
   430 datetest 11.10 {datetime('2004-02-28 20:00:00', '12:60')} NULL
   431 
   432 # Ticket #1964
   433 datetest 12.1 {datetime('2005-09-01')} {2005-09-01 00:00:00}
   434 datetest 12.2 {datetime('2005-09-01','+0 hours')} {2005-09-01 00:00:00}
   435 
   436 # Ticket #1991
   437 do_test date-13.1 {
   438   execsql {
   439     SELECT strftime('%Y-%m-%d %H:%M:%f', julianday('2006-09-24T10:50:26.047'))
   440   }
   441 } {{2006-09-24 10:50:26.047}}
   442 
   443 # Ticket #2153
   444 datetest 13.2 {strftime('%Y-%m-%d %H:%M:%S', '2007-01-01 12:34:59.6')} \
   445   {2007-01-01 12:34:59}
   446 datetest 13.3 {strftime('%Y-%m-%d %H:%M:%f', '2007-01-01 12:34:59.6')} \
   447   {2007-01-01 12:34:59.600}
   448 datetest 13.4 {strftime('%Y-%m-%d %H:%M:%S', '2007-01-01 12:59:59.6')} \
   449   {2007-01-01 12:59:59}
   450 datetest 13.5 {strftime('%Y-%m-%d %H:%M:%f', '2007-01-01 12:59:59.6')} \
   451   {2007-01-01 12:59:59.600}
   452 datetest 13.6 {strftime('%Y-%m-%d %H:%M:%S', '2007-01-01 23:59:59.6')} \
   453   {2007-01-01 23:59:59}
   454 datetest 13.7 {strftime('%Y-%m-%d %H:%M:%f', '2007-01-01 23:59:59.6')} \
   455   {2007-01-01 23:59:59.600}
   456 
   457 # Test for issues reported by BareFeet (list.sql at tandb.com.au)
   458 # on mailing list on 2008-06-12.
   459 #
   460 # Put a floating point number in the database so that we can manipulate
   461 # raw bits using the hexio interface.
   462 #
   463 do_test date-14.1 {
   464   execsql {
   465     PRAGMA auto_vacuum=OFF;
   466     PRAGMA page_size = 1024;
   467     CREATE TABLE t1(x);
   468     INSERT INTO t1 VALUES(1.1);
   469   }
   470   db close
   471   hexio_write test.db 2040 4142ba32bffffff9
   472   sqlite3 db test.db
   473   db eval {SELECT * FROM t1}
   474 } {2454629.5}
   475 
   476 # Changing the least significant byte of the floating point value between
   477 # 00 and FF should always generate a time of either 23:59:59 or 00:00:00,
   478 # never 24:00:00
   479 #
   480 for {set i 0} {$i<=255} {incr i} {
   481   db close
   482   hexio_write test.db 2047 [format %02x $i]
   483   sqlite3 db test.db
   484   do_test date-14.2.$i {
   485     set date [db one {SELECT datetime(x) FROM t1}]
   486     expr {$date eq "2008-06-12 00:00:00" || $date eq "2008-06-11 23:59:59"}
   487   } {1}
   488 }
   489 finish_test