new version
[feisty_meow.git] / octopi / library / tests_sockets / test_address.cpp
1 /*
2 *  Name   : test_address
3 *  Author : Chris Koeritz
4 *  Purpose: Tests some attributes of the network_address class for correctness.
5 **
6 * Copyright (c) 2001-$now By Author.  This program is free software; you can  *
7 * redistribute it and/or modify it under the terms of the GNU General Public  *
8 * License as published by the Free Software Foundation; either version 2 of   *
9 * the License or (at your option) any later version.  This is online at:      *
10 *     http://www.fsf.org/copyleft/gpl.html                                    *
11 * Please send any updates to: fred@gruntose.com                               *
12 */
13
14 #include <application/hoople_main.h>
15 #include <basis/byte_array.h>
16 #include <basis/astring.h>
17 #include <loggers/program_wide_logger.h>
18 #include <structures/static_memory_gremlin.h>
19 #include <sockets/internet_address.h>
20 #include <unit_test/unit_base.h>
21
22 using namespace application;
23 using namespace basis;
24 //using namespace filesystem;
25 using namespace loggers;
26 using namespace mathematics;
27 using namespace sockets;
28 using namespace structures;
29 using namespace textual;
30 using namespace timely;
31 using namespace unit_test;
32
33 //#include <stdio.h>
34 //#include <string.h>
35
36 #define LOG(to_print) EMERGENCY_LOG(program_wide_logger().get(), astring(to_print))
37
38 class test_address : public virtual unit_base, virtual public application_shell
39 {
40 public:
41   test_address() {}
42   DEFINE_CLASS_NAME("test_address");
43   virtual int execute();
44 };
45
46 int test_address::execute()
47 {
48   FUNCDEF("execute");
49   // testing is_valid_internet_address here...
50
51   bool all_zero = false;
52   byte_array ip_form;
53   astring to_test = "12.5.55.37";
54   if (!internet_address::is_valid_internet_address(to_test, ip_form, all_zero))
55     deadly_error(class_name(), "1st address",
56         "failed to say address was valid");
57   if (all_zero)
58     deadly_error(class_name(), "1st address", "said address was all zeros");
59   if ( (ip_form[0] != 12) || (ip_form[1] != 5) || (ip_form[2] != 55)
60       || (ip_form[3] != 37) )
61     deadly_error(class_name(), "1st address", "address had incorrect contents");
62
63   to_test = "12.5.55.372";
64   if (internet_address::is_valid_internet_address(to_test, ip_form, all_zero))
65     deadly_error(class_name(), "2nd address", "failed to say address was invalid");
66
67   to_test = "12.5.55.37.3";
68   if (internet_address::is_valid_internet_address(to_test, ip_form, all_zero))
69     deadly_error(class_name(), "3rd address", "failed to say address was invalid");
70
71   to_test = "12.5.55";
72   if (internet_address::is_valid_internet_address(to_test, ip_form, all_zero))
73     deadly_error(class_name(), "4th address", "failed to say address was invalid");
74
75   to_test = "0.0.0.0";
76   if (!internet_address::is_valid_internet_address(to_test, ip_form, all_zero))
77     deadly_error(class_name(), "5th address", "failed to say address was valid");
78   if (!all_zero)
79     deadly_error(class_name(), "5th address", "said address was not all zeros");
80   if ( (ip_form[0] != 0) || (ip_form[1] != 0) || (ip_form[2] != 0)
81       || (ip_form[3] != 0) )
82     deadly_error(class_name(), "5th address", "address had incorrect contents");
83
84   to_test = "0.0.0.1";
85   if (!internet_address::is_valid_internet_address(to_test, ip_form, all_zero))
86     deadly_error(class_name(), "6th address", "failed to say address was valid");
87   if (all_zero)
88     deadly_error(class_name(), "6th address", "said address was all zeros");
89   if ( (ip_form[0] != 0) || (ip_form[1] != 0) || (ip_form[2] != 0)
90       || (ip_form[3] != 1) )
91     deadly_error(class_name(), "6th address", "address had incorrect contents");
92
93   to_test = "0.0.0.";
94   if (internet_address::is_valid_internet_address(to_test, ip_form, all_zero))
95     deadly_error(class_name(), "7th address", "failed to say address was invalid");
96
97   to_test = "0.0.0";
98   if (internet_address::is_valid_internet_address(to_test, ip_form, all_zero))
99     deadly_error(class_name(), "7th address", "failed to say address was invalid");
100
101   to_test = "this may have. an ip address in it somewhere... 92.21. 23.123. 1235.6.3  9 oops  hey where is it.  23.51.2 2.4 1.2.343 09023.2.3. marbles 23.15.123.5 manus kobble 23.1.5.2 sturp nort ation";
102   astring found;
103   if (!internet_address::has_ip_address(to_test, found))
104     deadly_error(class_name(), "8th address", "failed to find ip address");
105   ASSERT_EQUAL(found, astring("23.15.123.5"), "8th address: ip address found should be correct");
106
107   to_test = "furples 92.23.1 9123.5.3 12398. 23 11 1 1 0202 2.4.1.5";
108   if (!internet_address::has_ip_address(to_test, found))
109     deadly_error(class_name(), "9th address", "failed to find ip address");
110   if (found != astring("2.4.1.5"))
111     deadly_error(class_name(), "9th address", astring("ip address found was wrong: ") + found + ", should have been 2.4.1.5");
112
113   to_test = "12.5.55.2\"";
114   if (!internet_address::has_ip_address(to_test, found))
115     deadly_error(class_name(), "10th address", "failed to find ip address");
116   if (found != astring("12.5.55.2"))
117     deadly_error(class_name(), "10th address", astring("ip address found was wrong: ") + found + ", should have been 12.5.55.2");
118
119   to_test = "12.5.55.2";
120   if (!internet_address::has_ip_address(to_test, found))
121     deadly_error(class_name(), "11th address", "failed to find ip address");
122   if (found != astring("12.5.55.2"))
123     deadly_error(class_name(), "11th address", astring("ip address found was wrong: ") + found + ", should have been 12.5.55.2");
124
125   return final_report();
126 }
127
128 HOOPLE_MAIN(test_address, )
129