39 lines
998 B
Plaintext
39 lines
998 B
Plaintext
# 2023-08-29
|
|
#
|
|
# 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.
|
|
#
|
|
#***********************************************************************
|
|
#
|
|
# Test cases for the strftime() SQL function. Comparisons against the
|
|
# C-library strftime() function.
|
|
|
|
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
|
|
}
|
|
|
|
if {$tcl_platform(os)=="Linux"} {
|
|
set FMT {%d,%e,%F,%H,%k,%I,%l,%j,%m,%M,%u,%w,%W,%Y,%%,%P,%p}
|
|
} else {
|
|
set FMT {%d,%e,%F,%H,%I,%j,%p,%R,%u,%w,%W,%%}
|
|
}
|
|
for {set i 0} {$i<=86400} {incr i} {
|
|
set TS [expr {$i*86401}]
|
|
do_execsql_test date4-$i {
|
|
SELECT strftime($::FMT,$::TS,'unixepoch');
|
|
} [list [strftime $FMT $TS]]
|
|
}
|
|
|
|
finish_test
|