# This file is part of GNU Mailutils. -*- Autotest -*-
# Copyright (C) 2011-2012, 2014-2017 Free Software Foundation, Inc.
#
# GNU Mailutils is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 3, or (at
# your option) any later version.
#
# GNU Mailutils is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.

AT_BANNER(mu_c_streamftime)

m4_pushdef([STRFTIME_TZ],[0])

dnl ------------------------------------------------------------------
dnl STRFTIME([FMT], [INPUT], [STDOUT = `'], [STDERR = `'])
dnl
m4_pushdef([STRFTIME],[
m4_pushdef([MU_TEST_GROUP],[streamftime])
m4_pushdef([MU_TEST_KEYWORDS],[strftime strftime-$1])
m4_pushdef([MU_TEST_COMMAND],[strftime -tz=STRFTIME_TZ -format='$1'])
MU_GENERIC_TEST([$1],[],[$2],[],[$3],[$4])
m4_popdef([MU_TEST_COMMAND])
m4_popdef([MU_TEST_KEYWORDS])
m4_popdef([MU_TEST_GROUP])
])

dnl ------------------------------------------------------------
# Some test data

#    January 1970
# Su Mo Tu We Th Fr Sa
#              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
#
#  1 0
#  2 86400
#  3 172800
#  4 259200
#  5 345600
#  6 432000
#  7 518400
#  8 604800
#  9 691200
# 10 777600
# 11 864000
# 12 950400
# 13 1036800
# 14 1123200
# 15 1209600
# 16 1296000
# 17 1382400
# 18 1468800
# 19 1555200
# 20 1641600
# 21 1728000
# 22 1814400
# 23 1900800
# 24 1987200
# 25 2073600
# 26 2160000
# 27 2246400
# 28 2332800
# 29 2419200
# 30 2505600
# 31 2592000

#    November 1970
# Su Mo Tu We Th Fr Sa
#  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
 
# 1 26265600
# 2 26352000
# 3 26438400
# 4 26524800
# 5 26611200
# 6 26697600
# 7 26784000

# Months
# Jan   0
# Feb   2678400 
# Mar	5097600 
# Apr	7776000 
# May	10368000
# Jun	13046400
# Jul	15638400
# Aug	18316800
# Sep	20995200
# Oct	23587200
# Nov	26265600
# Dec	28857600
#
dnl ------------------------------------------------------------
# The abbreviated weekday name.
STRFTIME([%a],
[26265600
26352000
26438400
26524800
26611200
26697600
26784000],
[Sun
Mon
Tue
Wed
Thu
Fri
Sat
])

# The full weekday name.
STRFTIME([%A],
[26265600
26352000
26438400
26524800
26611200
26697600
26784000],
[Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
])

The abbreviated month name.
STRFTIME([%b],
[0
2678400 
5097600 
7776000 
10368000
13046400
15638400
18316800
20995200
23587200
26265600
28857600],
[Jan
Feb
Mar
Apr
May
Jun
Jul
Aug
Sep
Oct
Nov
Dec
])

# The abbreviated month name.
STRFTIME([%h],
[0
2678400 
5097600 
7776000 
10368000
13046400
15638400
18316800
20995200
23587200
26265600
28857600],
[Jan
Feb
Mar
Apr
May
Jun
Jul
Aug
Sep
Oct
Nov
Dec
])

STRFTIME([%B],
[0
2678400 
5097600 
7776000 
10368000
13046400
15638400
18316800
20995200
23587200
26265600
28857600],
[January
February
March
April
May
June
July
August
September
October
November
December
])

# The century number (year/100) as a 2-digit integer.
STRFTIME([%C],
[26697600
1322872282],
[19
20
])

# The day of the month as a decimal number (range 01 to 31).
STRFTIME([%d],
[26265600
28771200],
[01
30
])

# Like %d, the day of the month as a decimal number, but a leading
# zero is replaced by a space.
STRFTIME([%e],
[26265600
28771200],
[ 1
30
])

# A no-op modifier.
STRFTIME([%EC],
[26697600
1322872282],
[19
20
])

# The ISO 8601 year with century as a decimal number.  The 4-digit
# year corresponding to the ISO week number (see %V).  This has
# the same format and value as %y, except that if the ISO week
# number belongs to the previous or next year, that year is used
# instead.

# Test data:
#   Date	TS		%V	%G
# 1972-12-31	94608000	52	1972
#
# 1973-01-01	94694400	01	1973
# 1973-12-01	123552000	48	1973
# 1973-12-30	126057600	52	1973
# 1973-12-31	126144000	01	1974
#
# 1975-01-01	157766400	01	1975
# 1975-12-28	188956800	52	1975
# 1975-12-29	189043200	01	1976
# 1975-12-31	189216000	01	1976
#
# 1977-01-01	220924800	53	1976
# 1977-01-02	221011200	53	1976
# 1977-01-03	221097600	01	1977
# 1977-12-25	251856000	51	1977
# 1977-12-26	251942400	52	1977
# 1977-12-31	252374400	52	1977

STRFTIME([%G],
[;1972
94608000
;1973
94694400
123552000
126057600
126144000
;1975
157766400
188956800
189043200
189216000
;1977
220924800
221011200
221097600
251856000
251942400
252374400],
[;1972
1972
;1973
1973
1973
1973
1974
;1975
1975
1975
1976
1976
;1977
1976
1976
1977
1977
1977
1977
])

# Like %G, but without century, that is, with a 2-digit year (00-99).
STRFTIME([%g],
[;1972
94608000
;1973
94694400
123552000
126057600
126144000
;1975
157766400
188956800
189043200
189216000
;1977
220924800
221011200
221097600
251856000
251942400
252374400],
[;1972
72
;1973
73
73
73
74
;1975
75
75
76
76
;1977
76
76
77
77
77
77
])

# The hour as a decimal number using a 24-hour clock (range 00 to 23).
STRFTIME([%H],
[1322870400
1322874000
1322877600
1322881200
1322884800
1322888400
1322892000
1322895600
1322899200
1322902800
1322906400
1322910000
1322913600
1322917200
1322920800
1322924400
1322928000
1322931600
1322935200
1322938800
1322942400
1322946000
1322949600
1322953200],
[00
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
])

# The hour as a decimal number using a 12-hour clock (range 01 to 12). 
STRFTIME([%I],
[1322870400
1322874000
1322877600
1322881200
1322884800
1322888400
1322892000
1322895600
1322899200
1322902800
1322906400
1322910000
1322913600
1322917200
1322920800
1322924400
1322928000
1322931600
1322935200
1322938800
1322942400
1322946000
1322949600
1322953200],
[12
01
02
03
04
05
06
07
08
09
10
11
12
01
02
03
04
05
06
07
08
09
10
11
])
	
# The day of the year as a decimal number (range 001 to 366).
STRFTIME([%j],
[1322872282
1204329600],
[337
061
])

# The hour (24-hour clock) as a decimal number (range 0 to 23);
# single digits are preceded by a blank.
STRFTIME([%k],
[1322870400
1322874000
1322877600
1322881200
1322884800
1322888400
1322892000
1322895600
1322899200
1322902800
1322906400
1322910000
1322913600
1322917200
1322920800
1322924400
1322928000
1322931600
1322935200
1322938800
1322942400
1322946000
1322949600
1322953200],
[ 0
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
])

# The hour (12-hour clock) as a decimal number (range 1 to 12);
# single digits are preceded by a blank.
STRFTIME([%l],
[1322870400
1322874000
1322877600
1322881200
1322884800
1322888400
1322892000
1322895600
1322899200
1322902800
1322906400
1322910000
1322913600
1322917200
1322920800
1322924400
1322928000
1322931600
1322935200
1322938800
1322942400
1322946000
1322949600
1322953200],
[12
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
])

# The month as a decimal number (range 01 to 12)
STRFTIME([%m],
[0
2678400 
5097600 
7776000 
10368000
13046400
15638400
18316800
20995200
23587200
26265600
28857600],
[01
02
03
04
05
06
07
08
09
10
11
12
])

# The minute as a decimal number (range 00 to 59).
STRFTIME([%M],
[1322870400
1322870460
1322870520
1322870580
1322870640
1322870700
1322870760
1322870820
1322870880
1322870940
1322871000
1322871060
1322871120
1322871180
1322871240
1322871300
1322871360
1322871420
1322871480
1322871540
1322871600
1322871660
1322871720
1322871780
1322871840
1322871900
1322871960
1322872020
1322872080
1322872140
1322872200
1322872260
1322872320
1322872380
1322872440
1322872500
1322872560
1322872620
1322872680
1322872740
1322872800
1322872860
1322872920
1322872980
1322873040
1322873100
1322873160
1322873220
1322873280
1322873340
1322873400
1322873460
1322873520
1322873580
1322873640
1322873700
1322873760
1322873820
1322873880
1322873940],
[00
01
02
03
04
05
06
07
08
09
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
])

# A newline character
STRFTIME([<%n>],
[0],
[<
>
])

# %O - a no-op modifier
STRFTIME([%OC],
[26697600
1322872282],
[19
20
])

# Either "AM" or "PM" according to the given time value.
# Noon is treated as "PM" and midnight as "AM".
STRFTIME([%p],
[1322870400
1322910000
1322913600
1322917200],
[AM
AM
PM
PM
])

# Like %p but in lowercase: "am" or "pm".
STRFTIME([%P],
[1322870400
1322910000
1322913600
1322917200],
[am
am
pm
pm
])

# The number of seconds since the Epoch
STRFTIME([%s],
[0
1322913600],
[0
1322913600
])

# The second as a decimal number (range 00 to 60)
STRFTIME([%S],
[1322870400
1322870401
1322870402
1322870403
1322870404
1322870405
1322870406
1322870407
1322870408
1322870409
1322870410
1322870411
1322870412
1322870413
1322870414
1322870415
1322870416
1322870417
1322870418
1322870419
1322870420
1322870421
1322870422
1322870423
1322870424
1322870425
1322870426
1322870427
1322870428
1322870429
1322870430
1322870431
1322870432
1322870433
1322870434
1322870435
1322870436
1322870437
1322870438
1322870439
1322870440
1322870441
1322870442
1322870443
1322870444
1322870445
1322870446
1322870447
1322870448
1322870449
1322870450
1322870451
1322870452
1322870453
1322870454
1322870455
1322870456
1322870457
1322870458
1322870459],
[00
01
02
03
04
05
06
07
08
09
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
])

# A tab character
STRFTIME([<%t>],
[0],
[<	>
])

# The day of the week as a decimal, range 1 to 7, Monday being 1.
STRFTIME([%u],
[26265600
26352000
26438400
26524800
26611200
26697600
26784000],
[7
1
2
3
4
5
6
])

# The week number of the current year as a decimal number, range
# 00 to 53, starting with the first Sunday as the first day of
# week 01.
#
# Test data are days of January of years from 1973 to 1978:
# Year       Day of Jan 1st	
# 1973		Mon		
# 1974		Tue		
# 1975		Wed		
# 1976		Thu		
# 1977		Sat
# 1978		Sun
STRFTIME([%U],
[; 1973 - Monday
94694400
94780800
94867200
94953600
95040000
95126400
95212800
95299200
95385600
95472000
95558400
95644800
95731200
95817600
95904000
95990400
96076800
96163200
96249600
96336000
96422400
96508800
96595200
96681600
96768000
96854400
96940800
97027200
97113600
97200000
97286400
; 1974 - Tuesday
126230400
126316800
126403200
126489600
126576000
126662400
126748800
126835200
126921600
127008000
127094400
127180800
127267200
127353600
127440000
127526400
127612800
127699200
127785600
127872000
127958400
128044800
128131200
128217600
128304000
128390400
128476800
128563200
128649600
128736000
128822400
; 1975 - Wednesday
157766400
157852800
157939200
158025600
158112000
158198400
158284800
158371200
158457600
158544000
158630400
158716800
158803200
158889600
158976000
159062400
159148800
159235200
159321600
159408000
159494400
159580800
159667200
159753600
159840000
159926400
160012800
160099200
160185600
160272000
160358400
; 1976 - Thursday
189302400
189388800
189475200
189561600
189648000
189734400
189820800
189907200
189993600
190080000
190166400
190252800
190339200
190425600
190512000
190598400
190684800
190771200
190857600
190944000
191030400
191116800
191203200
191289600
191376000
191462400
191548800
191635200
191721600
191808000
191894400
; 1977 - Saturday
220924800
221011200
221097600
221184000
221270400
221356800
221443200
221529600
221616000
221702400
221788800
221875200
221961600
222048000
222134400
222220800
222307200
222393600
222480000
222566400
222652800
222739200
222825600
222912000
222998400
223084800
223171200
223257600
223344000
223430400
223516800
; 1978 - Sunday
252460800
252547200
252633600
252720000
252806400
252892800
252979200
253065600
253152000
253238400
253324800
253411200
253497600
253584000
253670400
253756800
253843200
253929600
254016000
254102400
254188800
254275200
254361600
254448000
254534400
254620800
254707200
254793600
254880000
254966400
255052800],
[; 1973 - Monday
00
00
00
00
00
00
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
; 1974 - Tuesday
00
00
00
00
00
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
04
; 1975 - Wednesday
00
00
00
00
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
04
04
; 1976 - Thursday
00
00
00
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
04
04
04
; 1977 - Saturday
00
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
04
04
04
05
05
; 1978 - Sunday
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
04
04
04
05
05
05
])

# The ISO 8601:1988 week number of the current year as a decimal
# number range 01 to 53, where week 1 is the first week that has
# at least 4 days in the current year, and with Monday as the
# first day of the week.
#
# Test data:
#   Date	TS		%V	%G
# 1972-12-31	94608000	52	1972
#
# 1973-01-01	94694400	01	1973
# 1973-12-01	123552000	48	1973
# 1973-12-30	126057600	52	1973
# 1973-12-31	126144000	01	1974
#
# 1975-01-01	157766400	01	1975
# 1975-12-28	188956800	52	1975
# 1975-12-29	189043200	01	1976
# 1975-12-31	189216000	01	1976
#
# 1977-01-01	220924800	53	1976
# 1977-01-02	221011200	53	1976
# 1977-01-03	221097600	01	1977
# 1977-12-25	251856000	51	1977
# 1977-12-26	251942400	52	1977
# 1977-12-31	252374400	52	1977
STRFTIME([%V],
[;1972
94608000
;1973
94694400
123552000
126057600
126144000
;1975
157766400
188956800
189043200
189216000
;1977
220924800
221011200
221097600
251856000
251942400
252374400],
[;1972
52
;1973
01
48
52
01
;1975
01
52
01
01
;1977
53
53
01
51
52
52
])

# The day of the week as a decimal, range 0 to 6, Sunday being 0.
STRFTIME([%w],
[26265600
26352000
26438400
26524800
26611200
26697600
26784000],
[0
1
2
3
4
5
6
])

# The week number of the current year as a decimal number, range
# 00 to 53, starting with the first Monday as the first day of
# week 01.
STRFTIME([%W],
[; 1973 - Monday
94694400
94780800
94867200
94953600
95040000
95126400
95212800
95299200
95385600
95472000
95558400
95644800
95731200
95817600
95904000
95990400
96076800
96163200
96249600
96336000
96422400
96508800
96595200
96681600
96768000
96854400
96940800
97027200
97113600
97200000
97286400
; 1974 - Tuesday
126230400
126316800
126403200
126489600
126576000
126662400
126748800
126835200
126921600
127008000
127094400
127180800
127267200
127353600
127440000
127526400
127612800
127699200
127785600
127872000
127958400
128044800
128131200
128217600
128304000
128390400
128476800
128563200
128649600
128736000
128822400
; 1975 - Wednesday
157766400
157852800
157939200
158025600
158112000
158198400
158284800
158371200
158457600
158544000
158630400
158716800
158803200
158889600
158976000
159062400
159148800
159235200
159321600
159408000
159494400
159580800
159667200
159753600
159840000
159926400
160012800
160099200
160185600
160272000
160358400
; 1976 - Thursday
189302400
189388800
189475200
189561600
189648000
189734400
189820800
189907200
189993600
190080000
190166400
190252800
190339200
190425600
190512000
190598400
190684800
190771200
190857600
190944000
191030400
191116800
191203200
191289600
191376000
191462400
191548800
191635200
191721600
191808000
191894400
; 1977 - Saturday
220924800
221011200
221097600
221184000
221270400
221356800
221443200
221529600
221616000
221702400
221788800
221875200
221961600
222048000
222134400
222220800
222307200
222393600
222480000
222566400
222652800
222739200
222825600
222912000
222998400
223084800
223171200
223257600
223344000
223430400
223516800
; 1978 - Sunday
252460800
252547200
252633600
252720000
252806400
252892800
252979200
253065600
253152000
253238400
253324800
253411200
253497600
253584000
253670400
253756800
253843200
253929600
254016000
254102400
254188800
254275200
254361600
254448000
254534400
254620800
254707200
254793600
254880000
254966400
255052800],
[; 1973 - Monday
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
04
04
04
05
05
05
; 1974 - Tuesday
00
00
00
00
00
00
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
; 1975 - Wednesday
00
00
00
00
00
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
04
; 1976 - Thursday
00
00
00
00
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
04
04
; 1977 - Saturday
00
00
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
04
04
04
05
; 1978 - Sunday
00
01
01
01
01
01
01
01
02
02
02
02
02
02
02
03
03
03
03
03
03
03
04
04
04
04
04
04
04
05
05
])

# The year as a decimal number without a century (range 00 to 99).
STRFTIME([%y],
[10
80870400
1322870453],
[70
72
11
])

# The year as a decimal number including the century.
STRFTIME([%Y],
[10
80870400
1322870453],
[1970
1972
2011
])

# The time-zone as hour offset from GMT, for formatting RFC-822
# dates (e.g. "%a, %d %b %Y %H:%M:%S %z") */
m4_define([STRFTIME_TZ],[0200])
STRFTIME([%z],
[1322870453],
[+0200
])

m4_define([STRFTIME_TZ],[-0200])
STRFTIME([%z],
[1322870453],
[-0200
])
m4_define([STRFTIME_TZ],[0])

# A literal '%' character.
STRFTIME([<%%>],
[1],
[<%>
])

# Any other character after % is reproduced verbatim
STRFTIME([<%5d>],
[1],
[<%5d>
])

dnl ------------------------------------------------------------------
STRFTIME([Today is %A, %B %e %Y%n%H:%M:%S (%z).],
[1322879591],
[Today is Saturday, December  3 2011
02:33:11 (+0000).
])

dnl ------------------------------------------------------------------
# Equivalent to %a %b %e %H:%M:%S %Y
STRFTIME([%c],
[26697600],
[Fri Nov  6 00:00:00 1970
])

# Equivalent to %m/%d/%y
STRFTIME([%D],
[80870400
1322872282],
[07/25/72
12/03/11
])

# Equivalent to %Y-%m-%d (the ISO 8601 date format)
STRFTIME([%F],
[80870400
1322872282],
[1972-07-25
2011-12-03
])

# The time in a.m. or p.m. notation, i.e. %I:%M:%S %p. */
STRFTIME([%r],
[1322872282],
[12:31:22 AM
])

# The time in 24-hour notation (%H:%M)
STRFTIME([%R],
[1322872282],
[00:31
])

# The time in 24-hour notation (%H:%M:%S)
STRFTIME([%T],
[1322872282],
[00:31:22
])

# The preferred date representation without the time:
# equivalent to %D
STRFTIME([%x],
[1322872282],
[12/03/11
])

# The preferred date representation without the date:
# equivalent to %H:%M:%S
STRFTIME([%X],
[1322872282],
[00:31:22
])

dnl ------------------------------------------------------------------

m4_popdef([STRFTIME])
m4_popdef([STRFTIME_TZ])