updates to move to newer gnu-er time
[feisty_meow.git] / nucleus / library / tests_timely / test_earth_time.cpp
1 /*
2 *  Name   : test_earth_time                                                   *
3 *  Author : Chris Koeritz                                                     *
4 **
5 * Copyright (c) 2007-$now By Author.  This program is free software; you can  *
6 * redistribute it and/or modify it under the terms of the GNU General Public  *
7 * License as published by the Free Software Foundation; either version 2 of   *
8 * the License or (at your option) any later version.  This is online at:      *
9 *     http://www.fsf.org/copyleft/gpl.html                                    *
10 * Please send any updates to: fred@gruntose.com                               *
11 */
12
13 #define DEBUG_EARTH_TIME
14   // set this to enable debugging features of the string class.
15
16 #include <application/hoople_main.h>
17 #include <basis/functions.h>
18 #include <basis/guards.h>
19 #include <basis/astring.h>
20 #include <loggers/file_logger.h>
21 #include <mathematics/chaos.h>
22 #include <structures/static_memory_gremlin.h>
23 #include <timely/earth_time.h>
24 #include <timely/time_stamp.h>
25 #include <unit_test/unit_base.h>
26
27 #include <stdio.h>
28 #include <stdlib.h>
29 #include <string.h>
30
31 using namespace application;
32 using namespace basis;
33 using namespace mathematics;
34 using namespace filesystem;
35 using namespace loggers;
36 using namespace structures;
37 using namespace textual;
38 using namespace timely;
39 using namespace unit_test;
40
41 #undef LOG
42 #define LOG(s) CLASS_EMERGENCY_LOG(program_wide_logger::get(), s)
43 #undef BASE_LOG
44 #define BASE_LOG(s) STAMPED_EMERGENCY_LOG(program_wide_logger::get(), s)
45
46 const int TIME_FORMAT = clock_time::MERIDIAN | clock_time::SECONDS
47     | clock_time::MILLISECONDS;
48   // the way we like to see our seconds get printed out.
49
50 //////////////
51
52 class test_earth_time : virtual public unit_base, virtual public application_shell
53 {
54 public:
55   test_earth_time() {}
56   DEFINE_CLASS_NAME("test_earth_time");
57
58   virtual int execute();
59
60   void run_test_01();
61   void run_test_02();
62   void run_test_03();
63 };
64
65 //////////////
66
67 void test_earth_time::run_test_01()
68 {
69   FUNCDEF("run_test_01");
70   // this test makes sure that clock_time's normalize is working as expected.
71
72   time_locus checker_1(clock_time(12, 0, 60), day_in_year(), 2007);
73   clock_time::normalize(checker_1);
74   time_locus compare_1(clock_time(12, 1, 0), day_in_year(), 2007);
75 //BASE_LOG(astring("a=") + checker_1.text_form(TIME_FORMAT));
76 //BASE_LOG(astring("b=") + compare_1.text_form(TIME_FORMAT));
77   ASSERT_EQUAL(checker_1, compare_1, "normalize should not fail test 1");
78
79   time_locus checker_2(clock_time(12, 0, -1), day_in_year(), 2007);
80   clock_time::normalize(checker_2);
81   time_locus compare_2(clock_time(11, 59, 59), day_in_year(), 2007);
82   ASSERT_EQUAL(checker_2, compare_2, "normalize should not fail test 2");
83
84   time_locus checker_3(clock_time(11, 59, 61), day_in_year(), 2007);
85   clock_time::normalize(checker_3);
86   time_locus compare_3(clock_time(12, 00, 01), day_in_year(), 2007);
87   ASSERT_EQUAL(checker_3, compare_3, "normalize should not fail test 3");
88
89   time_locus checker_4(clock_time(12, 54, -61), day_in_year(), 2007);
90   clock_time::normalize(checker_4);
91   time_locus compare_4(clock_time(12, 52, 59), day_in_year(), 2007);
92   ASSERT_EQUAL(checker_4, compare_4, "normalize should not fail test 4");
93
94   time_locus checker_5(clock_time(12, -32, -62), day_in_year(), 2007);
95   clock_time::normalize(checker_5);
96   time_locus compare_5(clock_time(11, 26, 58), day_in_year(), 2007);
97   ASSERT_EQUAL(checker_5, compare_5, "normalize should not fail test 5");
98 }
99
100 void test_earth_time::run_test_02()
101 {
102   FUNCDEF("run_test_02");
103   // this test makes sure that day_in_year's normalize is working as expected.
104
105   time_locus checker_1(clock_time(0, 0, -1), day_in_year(JANUARY, 1), 2007);
106   time_locus::normalize(checker_1);
107   time_locus compare_1(clock_time(23, 59, 59), day_in_year(DECEMBER, 31), 2006);
108 //BASE_LOG(astring("a=") + checker_1.text_form(TIME_FORMAT));
109 //BASE_LOG(astring("b=") + compare_1.text_form(TIME_FORMAT));
110   ASSERT_EQUAL(checker_1, compare_1, "normalize should not fail test 1");
111
112   time_locus checker_2(clock_time(23, 59, 60), day_in_year(DECEMBER, 31), 2007);
113   time_locus::normalize(checker_2);
114   time_locus compare_2(clock_time(0, 0, 0), day_in_year(JANUARY, 1), 2008);
115   ASSERT_EQUAL(checker_2, compare_2, "normalize should not fail test 2");
116
117
118 //add more cases!
119 //  test leap years
120 //  test lotso things.
121
122 }
123
124 void test_earth_time::run_test_03()
125 {
126   FUNCDEF("run_test_03");
127   // test out the now and greenwich_now methods.
128
129 //hmmm: what are some ways to test this?
130
131   time_locus curr_now = now();
132 LOG(astring("now() returned locus: ") + curr_now.text_form_long(clock_time::MILITARY, day_in_year::LONG_MONTH | day_in_year::INCLUDE_DAY, time_locus::LONG_YEAR));
133
134   time_locus curr_green = greenwich_now();
135 LOG(astring("greenwich_now() returned locus: ") + curr_green.text_form_long(clock_time::MILITARY, day_in_year::LONG_MONTH | day_in_year::INCLUDE_DAY, time_locus::LONG_YEAR));
136
137
138 }
139
140 int test_earth_time::execute()
141 {
142   FUNCDEF("execute");
143
144   run_test_01();
145   run_test_02(); 
146   run_test_03(); 
147
148   return final_report();
149 }
150
151 //////////////
152
153 HOOPLE_MAIN(test_earth_time, )
154