ceph/src/boost/libs/date_time/test/gregorian/testgreg_cal.cpp

   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