/*

* Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).

* All rights reserved.

* This component and the accompanying materials are made available

* under the terms of "Eclipse Public License v1.0"

* which accompanies this distribution, and is available

* at the URL "http://www.eclipse.org/legal/epl-v10.html".

*

* Initial Contributors:

* Nokia Corporation - initial contribution.

*

* Contributors:

*

* Description:

* Test of NETDB.H functions - you need a real Internet connection for this!

* 

*

*/

#include <stdio.h>

#include <errno.h>

#include <stdlib.h>

#include <string.h>

#include <unistd.h>

#include <sys/types.h>

#include <sys/socket.h>

#include <sys/ioctl.h>

#include <libc/netinet/in.h>

#include <libc/arpa/inet.h>

#include <netdb.h>

#include <errno.h>

#include "CTEST.H"	/* includes C interface to EPOC32 threads, and SpawnPosixServer */

test_Data;

#define N_ADDRESSES	3

unsigned long addresses[N_ADDRESSES][3] =

	{

		{ 121, 0x112233, 0x79112233 },	/* class A 121.xxxxxxxx */

		{ 33771, 0x1122, 0x83eb1122 },	/* class B 131.235.xxxx */

		{ 12747009,  90, 0xc281015a }	/* class C 194.129.1.xx */

	};

/**

@SYMTestCaseID          SYSLIB-STDLIB-CT-1072

@SYMTestCaseDesc	    Tests for ARPA net functions

@SYMTestPriority 	    High

@SYMTestActions  	    Tests for all basic network functions 

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

void testArpa()

	{

	char* cp;

	char* cp2;

	struct in_addr iaddr;

	unsigned long ul1, ul2;

	int err;

	int i;

	test_Next("ARPA/INET.H functions");

	iaddr.s_addr=11;

	cp="16.33.50.67";

	err=inet_aton(cp, &iaddr);

	test(err==1);

	test(iaddr.s_addr==htonl(0x10213243));

	test(iaddr.s_addr==inet_addr(cp));

	cp2=inet_ntoa(iaddr);

	test(strcmp(cp2,cp)==0);

	iaddr.s_addr=11;

	err=inet_aton("16.rubbish.67", &iaddr);

	test(err==0);

	for (i=0;i<N_ADDRESSES;i++)

		{

		iaddr=inet_makeaddr(addresses[i][0], addresses[i][1]);

		test(iaddr.s_addr==ntohl(addresses[i][2]));

		ul1=inet_netof(iaddr);

		ul2=inet_lnaof(iaddr);

		test(ul1==addresses[i][0]);

		test(ul2==addresses[i][1]);

		}

	}

#define N_NAMES	3

const char* names[N_NAMES][3] = 

	{

		{ "phoenix.doc.ic.ac.uk",  "146.169.1.160",    "phoenix.doc.ic.ac.uk" },

		{ "httpsmtp.test.intra",   "192.168.20.11",   "httpsmtp.test.intra" },

		{ "unix.sri.com",          "128.18.30.211",    "unix.sri.com" }

	};

int close_console=0;

/**

@SYMTestCaseID          SYSLIB-STDLIB-CT-1073

@SYMTestCaseDesc	    Tests for ARPA net functions

@SYMTestPriority 	    High

@SYMTestActions  	    Tests for get host by name and host by address functions

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/

void testNetDB()

	{

	char hostname[128];

	struct in_addr addr, *addrp;

	int err, i;

	struct hostent *hp;

	test_Next("Get Host Name");

	err=gethostname(hostname,sizeof(hostname));

	test(err==0);

	printf("  hostname = >%s<\n", hostname);

	test_Next("Get Host By Name");

	for (i=0; i<N_NAMES; i++)

		{

		hp=gethostbyname(names[i][0]);

		test_ok(hp!=0);

		addrp=(struct in_addr*)(hp->h_addr_list[0]);

		printf("  %-30s => address %-15s\n", hp->h_name, inet_ntoa(*addrp));

		test(strcasecmp(hp->h_name,names[i][0])==0);

		test(addrp->s_addr==inet_addr(names[i][1]));

		}

	hp=gethostbyname("nosuchname.symbian.com");

	test_errno(hp==0,ENOENT);

	test(errno==HOST_NOT_FOUND);

	test_Next("Get Address of \"\"");

	hp=gethostbyname("");

	test_ok(hp!=0);

	addrp=(struct in_addr*)(hp->h_addr_list[0]);

	printf("  %-30s => address %-15s\n", hp->h_name, inet_ntoa(*addrp));

	test_Next("Get Host By Addr");

	for (i=0; i<N_NAMES; i++)

		{

		addr.s_addr=inet_addr(names[i][1]);

		hp=gethostbyaddr((const char *)&addr,sizeof(addr),AF_INET);

		test_ok(hp!=0);

		addrp=(struct in_addr*)(hp->h_addr_list[0]);

		printf("  address %-15s => %s\n", inet_ntoa(*addrp), hp->h_name);

		test(addrp->s_addr==addr.s_addr);

		test(strcasecmp(hp->h_name,names[i][2])==0);

		}

	addr.s_addr=inet_addr("10.11.199.255");

	hp=gethostbyaddr((const char *)&addr,sizeof(addr),AF_INET);

	test_errno(hp==0,ENOENT);

	test(errno==HOST_NOT_FOUND);

/*

	struct sockaddr_in testaddr;

	int fd;

	test_Next("Connect to the Imperial College Echo server");

	fd=socket(AF_INET, SOCK_STREAM, 0);

	test_ok(fd>=0);

	testaddr.sin_family=AF_INET;

	testaddr.sin_addr.s_addr=inet_addr("193.63.255.1");

	testaddr.sin_port=htons(7);	// echo

	err=connect(fd,(struct sockaddr*)&testaddr, sizeof(testaddr));

	test(err==0);

	close(fd);

*/

	test_Next("Get Address of roundrobin.test.intra which has multiple address");

	hp=gethostbyname("roundrobin.test.intra");	

	test_ok(hp!=0);

	if (hp)

		{

		if (hp->h_addr_list)

			{

			int Index = 0;

			while (hp->h_addr_list[Index])

				{

				addrp = (struct in_addr*)(hp->h_addr_list[Index]);

				printf("  %-30s => address %-15s\n", hp->h_name, inet_ntoa(*addrp));

				Index++;

				}

			}

		}

	test_Next("Get Host name of 192.168.255.4 which has multiple host name");

	addr.s_addr=inet_addr("192.168.255.4");

	hp=gethostbyaddr((const char *)&addr,sizeof(addr),AF_INET);

	test_ok(hp!=0);

	if (hp)

		{

		addrp=(struct in_addr*)(hp->h_addr_list[0]);

		printf("  address %-15s => %s\n", inet_ntoa(*addrp), hp->h_name);

		if (hp->h_aliases)

			{

			int Index = 0;

			while (hp->h_aliases[Index])

				{

				printf("  address %-15s => %s\n", inet_ntoa(*addrp), hp->h_aliases[Index]);

				Index++;

				}

			}

		}

	if (close_console)

		{

		test_Close();

		close(0);

		close(1);

		close(2);

		}

	}

int main(int argc, char *argv[])

	{

	void* client;

	int err;

	test_Title("NETDB.H Functionality");

	err=CommInit(0);	/* ensure a workable comms environment */

	test(err==0);

	testArpa();	/* doesn't use the MSystemInterface so only tested once */

	if (argc==1)

		{

		/* Run the test(s) without a CPosixServer first */		

		testNetDB();

		}

	test_Next("Do it all using the CPosixServer (for them, not me)");

	close_console=1;

	start_posix_server();	/* calls SpawnPosixServer from C++ code */

	client=create_thread(testNetDB, "TNETDB NetDB");

	test(client!=0);

	start_thread(client);

	err=wait_for_thread(client);

	test(err==0);

	test_Close();

	exit(0);

	return 0;

	}