6abbef89e6
cases are passing. FossilOrigin-Name: 2cf6518140d61e2123dc20f39d7e97e7bce17e7641405df7fd63e1cdda444ae0
112 lines
4.1 KiB
Plaintext
112 lines
4.1 KiB
Plaintext
# 2023-05-30
|
|
#
|
|
# 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.
|
|
#
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
# 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 timediff-$tnum [subst {
|
|
execsql "SELECT coalesce($expr,'NULL')"
|
|
}] [list $result]
|
|
}
|
|
set tcl_precision 15
|
|
|
|
|
|
# February overflow on a leap year
|
|
datetest 1.1 {datetime('2000-01-31','+1 month')} {2000-03-02 00:00:00}
|
|
datetest 1.2 {datetime('2004-01-29','+1 month')} {2004-02-29 00:00:00}
|
|
datetest 1.3 {datetime('2000-03-01','-1 day')} {2000-02-29 00:00:00}
|
|
datetest 1.4 {datetime('2000-03-31','-1 month')} {2000-03-02 00:00:00}
|
|
datetest 1.5 {datetime('2000-03-30','-1 month')} {2000-03-01 00:00:00}
|
|
datetest 1.6 {datetime('2000-03-29','-1 month')} {2000-02-29 00:00:00}
|
|
datetest 1.7 {datetime('2000-03-28','-1 month')} {2000-02-28 00:00:00}
|
|
datetest 1.8 {datetime('2000-02-29','+1 year')} {2001-03-01 00:00:00}
|
|
datetest 1.9 {datetime('2000-02-29','+4 years')} {2004-02-29 00:00:00}
|
|
|
|
datetest 1.10 {datetime('1998-11-10','+0001-03-19 12:34:56')} \
|
|
{2000-02-29 12:34:56}
|
|
datetest 1.11 {datetime('2000-01-31','+0004-01-00 12:34:56')} \
|
|
{2004-03-02 12:34:56}
|
|
datetest 1.12 {datetime('2000-01-29','+0008-01-00 12:34:56')} \
|
|
{2008-02-29 12:34:56}
|
|
datetest 1.13 {datetime('2001-03-31','-0001-01-00 06:10')} \
|
|
{2000-03-01 17:50:00}
|
|
|
|
|
|
# February overflow on a non-leap year
|
|
datetest 2.1 {datetime('2001-01-31','+1 month')} {2001-03-03 00:00:00}
|
|
datetest 2.2 {datetime('2005-01-29','+1 month')} {2005-03-01 00:00:00}
|
|
datetest 2.3 {datetime('2001-03-01','-1 day')} {2001-02-28 00:00:00}
|
|
datetest 2.4 {datetime('2001-03-31','-1 month')} {2001-03-03 00:00:00}
|
|
datetest 2.5 {datetime('2001-03-30','-1 month')} {2001-03-02 00:00:00}
|
|
datetest 2.6 {datetime('2001-03-29','-1 month')} {2001-03-01 00:00:00}
|
|
datetest 2.7 {datetime('2001-03-28','-1 month')} {2001-02-28 00:00:00}
|
|
|
|
datetest 2.10 {datetime('1999-11-10','+0001-03-19 12:34:56')} \
|
|
{2001-03-01 12:34:56}
|
|
datetest 2.11 {datetime('2000-01-31','+0005-01-00 12:34:56')} \
|
|
{2005-03-03 12:34:56}
|
|
datetest 2.12 {datetime('2000-01-29','+0009-01-00 12:34:56')} \
|
|
{2009-03-01 12:34:56}
|
|
datetest 2.13 {datetime('2002-03-31','-0001-01-00 06:10')} \
|
|
{2001-03-02 17:50:00}
|
|
|
|
# timediff
|
|
datetest 3.1 {timediff('2000-03-02','2000-01-31')} {+0000-01-00 00:00:00.000}
|
|
datetest 3.2 {timediff('2000-01-31','2000-03-02')} {-0000-01-02 00:00:00.000}
|
|
datetest 3.3 {timediff('2000-03-02','1999-01-31')} {+0001-01-00 00:00:00.000}
|
|
datetest 3.4 {timediff('1999-01-31','2000-03-02')} {-0001-01-02 00:00:00.000}
|
|
|
|
unset -nocomplain p1
|
|
unset -nocomplain p2
|
|
set p1 {
|
|
1 {0000-01-01 12:34:56}
|
|
2 {1776-07-04 13:00:00}
|
|
3 {-275529600}
|
|
4 {2440587.5}
|
|
5 {2000-05-29 14:26}
|
|
6 {2023-05-29 18:11}
|
|
7 {2050-05-29 14:26}
|
|
}
|
|
set p2 {
|
|
A {1900-02-28 11:00}
|
|
B {1900-03-01 12:00}
|
|
C {2000-02-29 13:00}
|
|
D {2005-04-30 23:59:59}
|
|
E {2005-05-01}
|
|
}
|
|
|
|
foreach {x1 d1} $p1 {
|
|
foreach {x2 d2} $p2 {
|
|
set r1 [db one {SELECT datetime($d1,'auto')}]
|
|
do_execsql_test timediff-4-$x1$x2 {
|
|
SELECT datetime($d2, timediff($d1,$d2));
|
|
} [list $r1]
|
|
set r2 [db one {SELECT datetime($d2,'auto')}]
|
|
do_execsql_test timediff-4-$x2$x1 {
|
|
SELECT datetime($d1, timediff($d2,$d1));
|
|
} [list $r2]
|
|
}
|
|
}
|
|
|
|
finish_test
|