40
41 clear all
42 set era Taisho
43 check era Meiji
44 check datetime 45 Jan 1 0 0 0
45 check millisecond 0
46
47 clear all
48 set era Showa
49 check era Taisho
50 check datetime 15 Jan 1 0 0 0
51 check millisecond 0
52
53 clear all
54 set era Heisei
55 check era Showa
56 check datetime 64 Jan 1 0 0 0
57 check millisecond 0
58
59 clear all
60 set era NewEra
61 check era Heisei
62 check datetime 31 Jan 1 0 0 0
63 check millisecond 0
64
65 #
66 # Field resolution tests
67 #
68 clear all
69 get firstdayofweek
70 # The test cases below assume that the first day of week is
71 # Sunday. So we should make sure it is.
72 eval $result == Sun
73 assign $result $fdow
74
75 test Field resolution: YEAR + MONTH + WEEK_OF_MONTH + DAY_OF_WEEK
76 set era Showa
77 set year 64
78 set week_of_month 1
79 check day_of_week $fdow
80 check date 64 Jan 1
|
40
41 clear all
42 set era Taisho
43 check era Meiji
44 check datetime 45 Jan 1 0 0 0
45 check millisecond 0
46
47 clear all
48 set era Showa
49 check era Taisho
50 check datetime 15 Jan 1 0 0 0
51 check millisecond 0
52
53 clear all
54 set era Heisei
55 check era Showa
56 check datetime 64 Jan 1 0 0 0
57 check millisecond 0
58
59 clear all
60 set era Reiwa
61 check era Heisei
62 check datetime 31 Jan 1 0 0 0
63 check millisecond 0
64
65 #
66 # Field resolution tests
67 #
68 clear all
69 get firstdayofweek
70 # The test cases below assume that the first day of week is
71 # Sunday. So we should make sure it is.
72 eval $result == Sun
73 assign $result $fdow
74
75 test Field resolution: YEAR + MONTH + WEEK_OF_MONTH + DAY_OF_WEEK
76 set era Showa
77 set year 64
78 set week_of_month 1
79 check day_of_week $fdow
80 check date 64 Jan 1
|