]>
Commit | Line | Data |
---|---|---|
7c673cae FG |
1 | /* Copyright (c) 2002,2003 CrystalClear Software, Inc. |
2 | * Use, modification and distribution is subject to the | |
3 | * Boost Software License, Version 1.0. (See accompanying | |
4 | * file LICENSE_1_0.txt or http://www.boost.org/LICENSE_1_0.txt) | |
5 | * Author: Jeff Garland | |
6 | */ | |
7 | ||
8 | #include "boost/date_time/gregorian/greg_calendar.hpp" | |
9 | #include "../testfrmwk.hpp" | |
10 | #include <iostream> | |
11 | ||
12 | ||
13 | void | |
14 | test_greg_calendar() | |
15 | { | |
16 | using namespace boost::gregorian; | |
17 | check("Day of week 2000-09-24 == 0 (Sun)", | |
18 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(2000,9,24))==0); | |
19 | check("Day of week 2000-09-25 == 1 (Mon)", | |
20 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(2000,9,25))==1); | |
21 | check("Day of week 2000-09-26 == 2 (Tue)", | |
22 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(2000,9,26))==2); | |
23 | check("Day of week 2000-09-27 == 3 (Wed)", | |
24 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(2000,9,27))==3); | |
25 | check("Day of week 2000-09-28 == 4 (Thu)", | |
26 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(2000,9,28))==4); | |
27 | check("Day of week 2000-09-29 == 5 (Fri)", | |
28 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(2000,9,29))==5); | |
29 | check("Day of week 2000-09-30 == 6 (Sat)", gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(2000,9,30))==6); | |
30 | //see calendar FAQ 2.2 for reference | |
31 | check("Day of week 1953-08-02 == 0 (Sun)", gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1953,8,2))==0); | |
32 | check("Day of week 1953-08-03 == 1 (Mon)", gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1953,8,3))==1); | |
33 | check("Day of week 1953-08-04 == 2 (Tue)", gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1953,8,4))==2); | |
34 | check("Day of week 1953-08-05 == 3 (Wed)", gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1953,8,5))==3); | |
35 | check("Day of week 1953-08-06 == 4 (Thu)", gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1953,8,6))==4); | |
36 | check("Day of week 1953-08-07 == 5 (Fri)", gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1953,8,7))==5); | |
37 | check("Day of week 1953-08-08 == 6 (Sat)", gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1953,8,8))==6); | |
38 | check("Day of week 2001-08-31 == 5 (Fri)", gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(2001,8,31))==5); | |
39 | ||
40 | //Checked against Caledrical Calc M. Edition p 396 and www site | |
41 | check("Day of week 1400-01-01 == 3 (Wed)", | |
42 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1400,1,1))==3); | |
43 | check("Day of week 1436-02-03 == 3 (Wed)", | |
44 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1436,2,3))==3); | |
45 | check("Day of week 1492-04-9 == 6 (Sat)", | |
46 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1492,4,9))==6); | |
47 | check("Day of week 1560-03-5 == 6 (Sat)", | |
48 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1560,3,5))==6); | |
49 | check("Day of week 1716-07-24 == 5 (Fri)", | |
50 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1716,7,24))==5); | |
51 | check("Day of week 1768-06-19 == 0 (Sun)", | |
52 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1768,6,19))==0); | |
53 | check("Day of week 1839-03-27 == 3 (Wed)", | |
54 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1839,3,27))==3); | |
55 | check("Day of week 1819-08-02 == 1 (Mon)", | |
56 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1819,8,2))==1); | |
57 | check("Day of week 1903-04-19 == 0 (Sun)", | |
58 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1903,4,19))==0); | |
59 | check("Day of week 1929-08-25 == 0 (Sun)", | |
60 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(1929,8,25))==0); | |
61 | check("Day of week 2038-11-10 == 3 (Wed)", | |
62 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(2038,11,10))==3); | |
63 | check("Day of week 2094-07-18 == 0 (Sun)", | |
64 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(2094,7,18))==0); | |
65 | //verified against website applet | |
66 | check("Day of week 3002-07-10 == 6 (Sat)", | |
67 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(3002,7,10))==6); | |
68 | //verified against website applet | |
69 | check("Day of week 4002-07-10 == 3 (Wed)", | |
70 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(4002,7,10))==3); | |
71 | //verified against website applet | |
72 | check("Day of week 5002-07-10 == 6 (Sat)", | |
73 | gregorian_calendar::day_of_week(gregorian_calendar::ymd_type(5002,7,10))==6); | |
74 | ||
75 | check("1404 is a leap year", gregorian_calendar::is_leap_year(1404)); | |
76 | check("2000 is a leap year", gregorian_calendar::is_leap_year(2000)); | |
77 | check("2004 is a leap year", gregorian_calendar::is_leap_year(2004)); | |
78 | check("2400 is a leap year", gregorian_calendar::is_leap_year(2400)); | |
79 | check("4000 is a leap year", gregorian_calendar::is_leap_year(4000)); | |
80 | check("1400 is NOT a leap year", !gregorian_calendar::is_leap_year(1400)); | |
81 | check("1900 is NOT a leap year", !gregorian_calendar::is_leap_year(1900)); | |
82 | check("2100 is NOT a leap year", !gregorian_calendar::is_leap_year(2100)); | |
83 | check("1999 is NOT a leap year", !gregorian_calendar::is_leap_year(1999)); | |
84 | check("5000 is NOT a leap year", !gregorian_calendar::is_leap_year(5000)); | |
85 | ||
86 | ||
87 | unsigned long jday1 = gregorian_calendar::day_number(gregorian_calendar::ymd_type(2000,1,1)); | |
88 | unsigned long jday2 = gregorian_calendar::day_number(gregorian_calendar::ymd_type(2001,1,1)); | |
89 | // unsigned short year, month, day; | |
90 | // //2451545 is 2000-1-1 | |
91 | check("ToDayNumber 2000-1-1 is day 2451545", jday1 == 2451545); | |
92 | check("ToDayNumber 2001-1-1 is day 2451911", jday2 == 2451911); | |
93 | gregorian_calendar::ymd_type ymd = gregorian_calendar::from_day_number(jday1); | |
94 | check("from_day_number test 2000-1-1", (ymd.year==2000)&& | |
95 | (ymd.month==1) && | |
96 | (ymd.day==1) ); | |
97 | ||
98 | unsigned long jday3 = gregorian_calendar::day_number(gregorian_calendar::ymd_type(1999,1,1)); | |
99 | check("366 days between 2000-1-1 and 2001-1-1", (jday2-jday1) == 366); | |
100 | check("731 days between 1999-1-1 and 2001-1-1 ",(jday2-jday3) == 731); | |
101 | ||
102 | unsigned long jday4 = gregorian_calendar::day_number(gregorian_calendar::ymd_type(2000,2,28)); | |
103 | unsigned long jday5 = gregorian_calendar::day_number(gregorian_calendar::ymd_type(2000,3,1)); | |
104 | check("2 days between 2000-2-28 and 2000-3-1 ",(jday5-jday4) == 2); | |
105 | ||
106 | check("31 days in month Jan 2000", gregorian_calendar::end_of_month_day(2000,1) == 31); | |
107 | check("29 days in month Feb 2000", gregorian_calendar::end_of_month_day(2000,2) == 29); | |
108 | check("28 days in month Feb 1999", gregorian_calendar::end_of_month_day(1999,2) == 28); | |
109 | check("28 days in month Feb 2001", gregorian_calendar::end_of_month_day(2001,2) == 28); | |
110 | check("31 days in month Mar 2000", gregorian_calendar::end_of_month_day(2000,3) == 31); | |
111 | check("30 days in month Apr 2000", gregorian_calendar::end_of_month_day(2000,4) == 30); | |
112 | check("31 days in month May 2000", gregorian_calendar::end_of_month_day(2000,5) == 31); | |
113 | check("30 days in month Jun 2000", gregorian_calendar::end_of_month_day(2000,6) == 30); | |
114 | check("31 days in month Jul 2000", gregorian_calendar::end_of_month_day(2000,7) == 31); | |
115 | check("31 days in month Aug 2000", gregorian_calendar::end_of_month_day(2000,8) == 31); | |
116 | check("30 days in month Sep 2000", gregorian_calendar::end_of_month_day(2000,9) == 30); | |
117 | check("31 days in month Oct 2000", gregorian_calendar::end_of_month_day(2000,10) == 31); | |
118 | check("30 days in month Nov 2000", gregorian_calendar::end_of_month_day(2000,11) == 30); | |
119 | check("31 days in month Dec 2000", gregorian_calendar::end_of_month_day(2000,12) == 31); | |
120 | ||
121 | ||
122 | // unsigned long jday0 = date_limits<>::dayNumber(gregorian_calendar::ymd_type(1900,1,1)); | |
123 | // std::cout << "Day 0: " << jday0 << std::endl; | |
124 | ||
125 | std::cout << gregorian_calendar::epoch().year << std::endl; | |
126 | } | |
127 | ||
128 | ||
129 | int | |
130 | main() | |
131 | { | |
132 | test_greg_calendar(); | |
133 | return printTestStats(); | |
134 | } | |
135 |