enhance(API): Add constant passthru for wrappers
[ric-plt/lib/rmr.git] / test / tools_test.c
1 // : vi ts=4 sw=4 noet :
2 /*
3 ==================================================================================
4             Copyright (c) 2019 Nokia
5             Copyright (c) 2018-2019 AT&T Intellectual Property.
6
7    Licensed under the Apache License, Version 2.0 (the "License");
8    you may not use this file except in compliance with the License.
9    You may obtain a copy of the License at
10
11            http://www.apache.org/licenses/LICENSE-2.0
12
13    Unless required by applicable law or agreed to in writing, software
14    distributed under the License is distributed on an "AS IS" BASIS,
15    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
16    See the License for the specific language governing permissions and
17    limitations under the License.
18 ==================================================================================
19 */
20
21
22 /*
23         Mnemonic:       tools_testh.c
24         Abstract:       Unit tests for the RMr tools module.
25         Author:         E. Scott Daniels
26         Date:           21 January 2019
27 */
28
29
30 #include <stdio.h>
31 #include <stdlib.h>
32 #include <netdb.h>
33 #include <errno.h>
34 #include <string.h>
35 #include <errno.h>
36 #include <pthread.h>
37 #include <ctype.h>
38
39 #include "../src/common/include/rmr.h"
40 #include "../src/common/include/rmr_agnostic.h"
41 #include "test_support.c"               // our private library of test tools
42
43 // ===== dummy context for tools testing so we don't have to pull in all of the nano/nng specific stuff =====
44 struct uta_ctx {
45         char*   my_name;                        // dns name of this host to set in sender field of a message
46         int     shutdown;                               // thread notification if we need to tell them to stop
47         int max_mlen;                           // max message length payload+header
48         int     max_plen;                               // max payload length
49         int     flags;                                  // CTXFL_ constants
50         int nrtele;                                     // number of elements in the routing table
51         int send_retries;                       // number of retries send_msg() should attempt if eagain/timeout indicated by nng
52         //nng_socket    nn_sock;                // our general listen socket
53         route_table_t* rtable;          // the active route table
54         route_table_t* old_rtable;      // the previously used rt, sits here to allow for draining
55         route_table_t* new_rtable;      // route table under construction
56         if_addrs_t*     ip_list;                // list manager of the IP addresses that are on our known interfaces
57         void*   mring;                          // ring where msgs are queued while waiting for a call response msg
58
59         char*   rtg_addr;                       // addr/port of the route table generation publisher
60         int             rtg_port;                       // the port that the rtg listens on
61
62         wh_mgt_t*       wormholes;              // management of user opened wormholes
63         //epoll_stuff_t*        eps;            // epoll information needed for the rcv with timeout call
64
65         //pthread_t     rtc_th;                 // thread info for the rtc listener
66 };
67
68
69 #include "../src/common/src/tools_static.c"
70
71
72 int main( ) {
73         int i;
74         int j;
75         int errors = 0;
76         char* tokens[127];
77         char* buf = "2,Fred,Wilma,Barney,Betty,Dino,Pebbles,Bambam,Mr. Slate,Gazoo";
78         char*   dbuf;                           // duplicated buf since C marks a const string is unumtable
79         char*   hname;
80         uta_ctx_t ctx;                          // context for uta_lookup test
81         void*   if_list;
82
83
84         // ------------------ tokenise tests -----------------------------------------------------------
85         dbuf = strdup( buf );
86         i = uta_tokenise( dbuf, tokens, 127, ',' );
87         errors += fail_not_equal( i, 10, "unexpected number of tokens returned (comma sep)" );
88         for( j = 0; j < i; j++ ) {
89                 //fprintf( stderr, ">>>> [%d] (%s)\n", j, tokens[j] );
90                 errors += fail_if_nil( tokens[j], "token from buffer" );
91         }
92         errors += fail_not_equal( strcmp( tokens[4], "Betty" ), 0, "4th token wasn't 'Betty'" );
93
94         free( dbuf );
95         dbuf = strdup( buf );
96         i = uta_tokenise( dbuf, tokens, 127, '|' );
97         errors += fail_not_equal( i, 1, "unexpected number of tokens returned (bar sep)" );
98         free( dbuf );
99
100         // ------------ has str tests -----------------------------------------------------------------
101         j = uta_has_str( buf, "Mr. Slate", ',', 1 );                    // should fail (-1) because user should use strcmp in this situation
102         errors += fail_if_true( j >= 0, "test to ensure has str rejects small max" );
103
104         j = uta_has_str( buf, "Mr. Slate", ',', 27 );
105         errors += fail_if_true( j < 0, "has string did not find Mr. Slate" );
106
107         j = uta_has_str( buf, "Mrs. Slate", ',', 27 );
108         errors += fail_if_true( j >= 0, "has string not found Mrs. Slate" );
109
110         // ------------ host name 2 ip tests ---------------------------------------------------------
111         hname = uta_h2ip( "192.168.1.2" );
112         errors += fail_not_equal( strcmp( hname, "192.168.1.2" ), 0, "h2ip did not return IP address when given address" );
113         errors += fail_if_nil( hname, "h2ip did not return a pointer" );
114
115         hname = uta_h2ip( "yahoo.com" );
116         errors += fail_if_nil( hname, "h2ip did not return a pointer" );
117
118         hname = uta_h2ip( "yahoo.com:1234" );                                                   // should ignore the port
119         errors += fail_if_nil( hname, "h2ip did not return a pointer" );
120
121         // ------------ rtg lookup test -------------------------------------------------------------
122         ctx.rtg_port = 0;
123         ctx.rtg_addr = NULL;
124
125         i = uta_lookup_rtg( NULL );                                             // ensure it handles a nil context
126         errors += fail_if_true( i, "rtg lookup returned that it found something when not expected to (nil context)" );
127
128         setenv( "RMR_RTG_SVC", "localhost:1234", 1);
129         i = uta_lookup_rtg( &ctx );
130         errors += fail_if_false( i, "rtg lookup returned that it did not find something when expected to" );
131         errors += fail_if_nil( ctx.rtg_addr, "rtg lookup did not return a pointer (with port)" );
132         errors += fail_not_equal( ctx.rtg_port, 1234, "rtg lookup did not capture the port" );
133
134         setenv( "RMR_RTG_SVC", "localhost", 1);                 // test ability to generate default port
135         uta_lookup_rtg( &ctx );
136         errors += fail_if_nil( ctx.rtg_addr, "rtg lookup did not return a pointer (no port)" );
137         errors += fail_not_equal( ctx.rtg_port, 5656, "rtg lookup did not return default port" );
138
139         unsetenv( "RMR_RTG_SVC" );                                              // this should fail as the default name (rtg) will be unknown during testing
140         i = uta_lookup_rtg( &ctx );
141         errors += fail_if_true( i, "rtg lookup returned that it found something when not expected to" );
142
143
144         // ------------ my ip stuff -----------------------------------------------------------------
145
146         if_list = mk_ip_list( "1235" );
147         errors += fail_if_nil( if_list, "mk_ip_list returned nil pointer" );
148
149         i = has_myip( NULL, NULL, ',', 128 );           // should be false if pointers are nil
150         errors += fail_if_true( i, "has_myip returned true when given nil buffer" );
151
152         i = has_myip( "buffer contents not valid", NULL, ',', 128 );            // should be false if pointers are nil
153         errors += fail_if_true( i, "has_myip returned true when given nil list" );
154
155         i = has_myip( "buffer contents not valid", NULL, ',', 1 );                      // should be false if max < 2
156         errors += fail_if_true( i, "has_myip returned true when given small max value" );
157
158         i = has_myip( "buffer.contents.not.valid", if_list, ',', 128 );         // should be false as there is nothing valid in the list
159         errors += fail_if_true( i, "has_myip returned true when given a buffer with no valid info" );
160
161
162         setenv( "RMR_BIND_IF", "192.168.4.30", 1 );                     // drive the case where we have a hard set interface; and set known interface in list
163         if_list = mk_ip_list( "1235" );
164         errors += fail_if_nil( if_list, "mk_ip_list with env set returned nil pointer" );
165
166         i = has_myip( "192.168.1.2:1235,192.168.4.30:1235,192.168.2.19:4567", if_list, ',', 128 );              // should find our ip in middle
167         errors += fail_if_false( i, "has_myip did not find IP in middle of list" );
168
169         i = has_myip( "192.168.4.30:1235,192.168.2.19:4567,192.168.2.19:2222", if_list, ',', 128 );             // should find our ip at head
170         errors += fail_if_false( i, "has_myip did not find IP at head of list" );
171
172         i = has_myip( "192.168.23.45:4444,192.168.1.2:1235,192.168.4.30:1235", if_list, ',', 128 );             // should find our ip at end
173         errors += fail_if_false( i, "has_myip did not find IP at tail of list" );
174
175         i = has_myip( "192.168.4.30:1235", if_list, ',', 128 );                                                                                 // should find our ip when only in list
176         errors += fail_if_false( i, "has_myip did not find IP when only one in list" );
177
178         return errors > 0;                      // overall exit code bad if errors
179 }