test/date4.test

   1 # 2023-08-29
   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 #
  12 # Test cases for the strftime() SQL function.  Comparisons against the
  13 # C-library strftime() function.
  14
  15 set testdir [file dirname $argv0]
  16 source $testdir/tester.tcl
  17
  18 # Skip this whole file if date and time functions are omitted
  19 # at compile-time
  20 #
  21 ifcapable {!datetime} {
  22   finish_test
  23   return
  24 }
  25
  26 if {$tcl_platform(os)=="Linux"} {
  27   set FMT {%d,%e,%F,%H,%k,%I,%l,%j,%m,%M,%u,%w,%W,%Y,%%,%P,%p}
  28 } else {
  29   set FMT {%d,%e,%F,%H,%I,%j,%p,%R,%u,%w,%W,%%}
  30 }
  31 for {set i 0} {$i<=24854} {incr i} {
  32   set TS [expr {$i*86401}]
  33   do_execsql_test date4-$i {
  34     SELECT strftime($::FMT,$::TS,'unixepoch');
  35   } [list [strftime $FMT $TS]]
  36 }
  37
  38 finish_test