blob: 688f84d0f1d0f1ec53d6826a73a8ad51b7af44e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
# 2024-08-19
#
# 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.
#
#***********************************************************************
#
# https://sqlite.org/forum/forumpost/eaa0a09786c6368b
#
# Apparently SQLite has been miscomputing leap-year dates before
# the year 0400.
#
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
}
# Data sources:
# 1-10 https://ssd.jpl.nasa.gov/tools/jdc/#/cd
# 11 Jean Meeus, Astronomical Algorithms, ISBN 0-943396-61-1, p.59
# 12 https://en.wikipedia.org/wiki/Julian_day
#
# ID YEAR MONTH DAY JD
set date5data {
1 2024 2 29 2460369.5
2 2024 3 1 2460370.5
3 2023 2 28 2460003.5
4 2023 3 1 2460004.5
5 2000 2 29 2451603.5
6 2000 3 1 2451604.5
7 1900 2 28 2415078.5
8 1900 3 1 2415079.5
9 1712 2 29 2346413.5
10 1712 3 1 2346414.5
11 1977 4 26 2443259.5
12 2013 1 1 2456293.5
}
foreach {id y m d jd} $date5data {
set date [format %04d-%02d-%02d $y $m $d]
do_execsql_test date5-jd$jd {
SELECT date($::jd);
} $date
do_execsql_test date5-cal/$date {
SELECT julianday($::date);
} $jd
for {set i 1} {$y+400*$i<=9999} {incr i} {
set y2 [expr {$y+400*$i}]
set date2 [format %04d-%02d-%02d $y2 $m $d]
set jd2 [expr {$jd+146097*$i}]
do_execsql_test date5-jd$jd2 {
SELECT date($::jd2);
} $date2
do_execsql_test date5-cal/$date2 {
SELECT julianday($::date2);
} $jd2
}
for {set i 1} {$y-400*$i>=-4712} {incr i} {
set y2 [expr {$y-400*$i}]
if {$y2<0} {
set date2 [format -%04d-%02d-%02d [expr {-$y2}] $m $d]
} else {
set date2 [format %04d-%02d-%02d $y2 $m $d]
}
set jd2 [expr {$jd-146097*$i}]
do_execsql_test date5-jd$jd2 {
SELECT date($::jd2);
} $date2
do_execsql_test date5-cal/$date2 {
SELECT julianday($::date2);
} $jd2
}
}
finish_test
|
