test/tools_test.c

// : vi ts=4 sw=4 noet :
/*
==================================================================================
	    Copyright (c) 2019 Nokia
	    Copyright (c) 2018-2019 AT&T Intellectual Property.

   Licensed under the Apache License, Version 2.0 (the "License");
   you may not use this file except in compliance with the License.
   You may obtain a copy of the License at

	   http://www.apache.org/licenses/LICENSE-2.0

   Unless required by applicable law or agreed to in writing, software
   distributed under the License is distributed on an "AS IS" BASIS,
   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
   See the License for the specific language governing permissions and
   limitations under the License.
==================================================================================
*/


/*
	Mnemonic:	tools_testh.c
	Abstract:	Unit tests for the RMr tools module.
	Author:		E. Scott Daniels
	Date:		21 January 2019
*/


#include <stdio.h>
#include <stdlib.h>
#include <netdb.h>
#include <errno.h>
#include <string.h>
#include <errno.h>
#include <pthread.h>
#include <ctype.h>

#include "../src/common/include/rmr.h"
#include "../src/common/include/rmr_agnostic.h"
#include "test_support.c"		// our private library of test tools

// ===== dummy context for tools testing so we don't have to pull in all of the nano/nng specific stuff =====
struct uta_ctx {
	char*	my_name;			// dns name of this host to set in sender field of a message
	int	shutdown;				// thread notification if we need to tell them to stop
	int max_mlen;				// max message length payload+header
	int	max_plen;				// max payload length
	int	flags;					// CTXFL_ constants
	int nrtele;					// number of elements in the routing table
	int send_retries;			// number of retries send_msg() should attempt if eagain/timeout indicated by nng
	//nng_socket	nn_sock;		// our general listen socket
	route_table_t* rtable;		// the active route table
	route_table_t* old_rtable;	// the previously used rt, sits here to allow for draining
	route_table_t* new_rtable;	// route table under construction
	if_addrs_t*	ip_list;		// list manager of the IP addresses that are on our known interfaces
	void*	mring;				// ring where msgs are queued while waiting for a call response msg

	char*	rtg_addr;			// addr/port of the route table generation publisher
	int		rtg_port;			// the port that the rtg listens on

	wh_mgt_t*	wormholes;		// management of user opened wormholes
	//epoll_stuff_t*	eps;		// epoll information needed for the rcv with timeout call

	//pthread_t	rtc_th;			// thread info for the rtc listener
};


#include "../src/common/src/tools_static.c"


int main( ) {
	int i;
	int j;
	int errors = 0;
	char* tokens[127];
	char* buf = "2,Fred,Wilma,Barney,Betty,Dino,Pebbles,Bambam,Mr. Slate,Gazoo";
	char*	dbuf;				// duplicated buf since C marks a const string is unumtable
	char*	hname;
	uta_ctx_t ctx;				// context for uta_lookup test
	void*	if_list;


	// ------------------ tokenise tests -----------------------------------------------------------
	dbuf = strdup( buf );
	i = uta_tokenise( dbuf, tokens, 127, ',' );
	errors += fail_not_equal( i, 10, "unexpected number of tokens returned (comma sep)" );
	for( j = 0; j < i; j++ ) {
		//fprintf( stderr, ">>>> [%d] (%s)\n", j, tokens[j] );
		errors += fail_if_nil( tokens[j], "token from buffer" );
	}
	errors += fail_not_equal( strcmp( tokens[4], "Betty" ), 0, "4th token wasn't 'Betty'" );

	free( dbuf );
	dbuf = strdup( buf );
	i = uta_tokenise( dbuf, tokens, 127, '|' );
	errors += fail_not_equal( i, 1, "unexpected number of tokens returned (bar sep)" );
	free( dbuf );

	// ------------ has str tests -----------------------------------------------------------------
	j = uta_has_str( buf, "Mr. Slate", ',', 1 );			// should fail (-1) because user should use strcmp in this situation
	errors += fail_if_true( j >= 0, "test to ensure has str rejects small max" );

	j = uta_has_str( buf, "Mr. Slate", ',', 27 );
	errors += fail_if_true( j < 0, "has string did not find Mr. Slate" );

	j = uta_has_str( buf, "Mrs. Slate", ',', 27 );
	errors += fail_if_true( j >= 0, "has string not found Mrs. Slate" );

	// ------------ host name 2 ip tests ---------------------------------------------------------
	hname = uta_h2ip( "192.168.1.2" );
	errors += fail_not_equal( strcmp( hname, "192.168.1.2" ), 0, "h2ip did not return IP address when given address" );
	errors += fail_if_nil( hname, "h2ip did not return a pointer" );

	hname = uta_h2ip( "yahoo.com" );
	errors += fail_if_nil( hname, "h2ip did not return a pointer" );

	hname = uta_h2ip( "yahoo.com:1234" );							// should ignore the port
	errors += fail_if_nil( hname, "h2ip did not return a pointer" );

	// ------------ rtg lookup test -------------------------------------------------------------
	ctx.rtg_port = 0;
	ctx.rtg_addr = NULL;

	i = uta_lookup_rtg( NULL );						// ensure it handles a nil context
	errors += fail_if_true( i, "rtg lookup returned that it found something when not expected to (nil context)" );

	setenv( "RMR_RTG_SVC", "localhost:1234", 1);
	i = uta_lookup_rtg( &ctx );
	errors += fail_if_false( i, "rtg lookup returned that it did not find something when expected to" );
	errors += fail_if_nil( ctx.rtg_addr, "rtg lookup did not return a pointer (with port)" );
	errors += fail_not_equal( ctx.rtg_port, 1234, "rtg lookup did not capture the port" );

	setenv( "RMR_RTG_SVC", "localhost", 1);			// test ability to generate default port
	uta_lookup_rtg( &ctx );
	errors += fail_if_nil( ctx.rtg_addr, "rtg lookup did not return a pointer (no port)" );
	errors += fail_not_equal( ctx.rtg_port, 5656, "rtg lookup did not return default port" );

	unsetenv( "RMR_RTG_SVC" );						// this should fail as the default name (rtg) will be unknown during testing
	i = uta_lookup_rtg( &ctx );
	errors += fail_if_true( i, "rtg lookup returned that it found something when not expected to" );


	// ------------ my ip stuff -----------------------------------------------------------------

	if_list = mk_ip_list( "1235" );
	errors += fail_if_nil( if_list, "mk_ip_list returned nil pointer" );

	i = has_myip( NULL, NULL, ',', 128 );		// should be false if pointers are nil
	errors += fail_if_true( i, "has_myip returned true when given nil buffer" );

	i = has_myip( "buffer contents not valid", NULL, ',', 128 );		// should be false if pointers are nil
	errors += fail_if_true( i, "has_myip returned true when given nil list" );

	i = has_myip( "buffer contents not valid", NULL, ',', 1 );			// should be false if max < 2
	errors += fail_if_true( i, "has_myip returned true when given small max value" );

	i = has_myip( "buffer.contents.not.valid", if_list, ',', 128 );		// should be false as there is nothing valid in the list
	errors += fail_if_true( i, "has_myip returned true when given a buffer with no valid info" );


	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
	if_list = mk_ip_list( "1235" );
	errors += fail_if_nil( if_list, "mk_ip_list with env set returned nil pointer" );

	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
	errors += fail_if_false( i, "has_myip did not find IP in middle of list" );

	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
	errors += fail_if_false( i, "has_myip did not find IP at head of list" );

	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
	errors += fail_if_false( i, "has_myip did not find IP at tail of list" );

	i = has_myip( "192.168.4.30:1235", if_list, ',', 128 );											// should find our ip when only in list
	errors += fail_if_false( i, "has_myip did not find IP when only one in list" );

	return errors > 0;			// overall exit code bad if errors
}