Simple tests for NSS.
[kopensolaris-gnu/glibc.git] / nss / test-netdb.c
1 /* Copyright (C) 1998 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3    Contributed by Andreas Jaeger <aj@arthur.rhein-neckar.de>, 1998.
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Library General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    The GNU C Library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Library General Public License for more details.
14
15    You should have received a copy of the GNU Library General Public
16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18    Boston, MA 02111-1307, USA.  */
19
20 /*
21   Testing of some network related lookup functions.
22   The system databases looked up are:
23   - /etc/services
24   - /etc/hosts
25   - /etc/networks
26   - /etc/protocols
27   - /etc/rpc
28   The tests try to be fairly generic and simple so that they work on
29   every possible setup (and might therefore not detect some possible
30   errors).
31 */
32
33 #include <netdb.h>
34 #include <rpc/netdb.h>
35 #include <stdio.h>
36 #include <arpa/inet.h>
37 #include <netinet/in.h>
38 #include <sys/param.h>
39 #include <sys/socket.h>
40
41 /*
42   The following define is neccessary for glibc 2.0.6
43 */
44 #ifndef INET6_ADDRSTRLEN
45 # define INET6_ADDRSTRLEN 46
46 #endif
47
48 int error_count;
49
50 void
51 output_servent (const char *call, struct servent *sptr)
52 {
53   char **pptr;
54
55   if (sptr == NULL)
56     printf ("Call: %s returned NULL\n", call);
57   else
58     {
59       printf ("Call: %s, returned: s_name: %s, s_port: %d, s_proto: %s\n",
60               call, sptr->s_name, ntohs(sptr->s_port), sptr->s_proto);
61       for (pptr = sptr->s_aliases; *pptr != NULL; pptr++)
62         printf ("  alias: %s\n", *pptr);
63     }
64 }
65
66
67 void
68 test_services (void)
69 {
70   struct servent *sptr;
71
72   sptr = getservbyname ("domain", "tcp");
73   output_servent ("getservbyname (\"domain\", \"tcp\")", sptr);
74
75   sptr = getservbyname ("domain", "udp");
76   output_servent ("getservbyname (\"domain\", \"udp\")", sptr);
77
78   sptr = getservbyname ("domain", NULL);
79   output_servent ("getservbyname (\"domain\", NULL)", sptr);
80
81   sptr = getservbyname ("not-existant", NULL);
82   output_servent ("getservbyname (\"not-existant\", NULL)", sptr);
83
84   sptr = getservbyport (htons(53), "tcp");
85   output_servent ("getservbyport (htons(53), \"tcp\")", sptr);
86
87   sptr = getservbyport (htons(53), NULL);
88   output_servent ("getservbyport (htons(53), NULL)", sptr);
89
90   sptr = getservbyport (htons(1), "udp"); /* shouldn't exist */
91   output_servent ("getservbyport (htons(1), \"udp\")", sptr);
92
93   setservent (0);
94   do
95     {
96       sptr = getservent ();
97       output_servent ("getservent ()", sptr);
98     }
99   while (sptr != NULL);
100   endservent ();
101 }
102
103
104 void
105 output_hostent (const char *call, struct hostent *hptr)
106 {
107   int i;
108   char **pptr;
109   char buf[INET6_ADDRSTRLEN];
110
111   if (hptr == NULL)
112     printf ("Call: %s returned NULL\n", call);
113   else
114     {
115       printf ("Call: %s returned: name: %s, addr_type: %d\n",
116               call, hptr->h_name, hptr->h_addrtype);
117       for (pptr = hptr->h_aliases; *pptr != NULL; pptr++)
118         printf ("  alias: %s\n", *pptr);
119
120       for (pptr = hptr->h_addr_list; *pptr != NULL; pptr++)
121         printf ("  ip: %s\n",
122                 inet_ntop (hptr->h_addrtype, *pptr, buf, sizeof (buf)));
123     }
124 }
125
126 void
127 test_hosts (void)
128 {
129   struct hostent *hptr1, *hptr2;
130   char name[MAXHOSTNAMELEN];
131   size_t namelen = sizeof(name);
132   struct in_addr ip;
133
134   hptr1 = gethostbyname ("localhost");
135   hptr2 = gethostbyname ("LocalHost");
136   if (hptr1 != NULL || hptr2 != NULL)
137     {
138       if (hptr1 == NULL)
139         {
140           printf ("localhost not found - but LocalHost found:-(\n");
141           ++error_count;
142         }
143       else if (hptr2 == NULL)
144         {
145           printf ("LocalHost not found - but localhost found:-(\n");
146           ++error_count;
147         }
148       else if (strcmp (hptr1->h_name, hptr2->h_name) != 0)
149         {
150           printf ("localhost and LocalHost have different canoncial name\n");
151           printf ("gethostbyname (\"localhost\")->%s\n", hptr1->h_name);
152           printf ("gethostbyname (\"LocalHost\")->%s\n", hptr2->h_name);
153           ++error_count;
154         }
155       else
156         output_hostent ("gethostbyname(\"localhost\")", hptr1);
157     }
158
159
160   if (gethostname (name, namelen) == 0)
161     {
162       printf ("Hostname: %s\n", name);
163       hptr1 = gethostbyname (name);
164       output_hostent ("gethostbyname (gethostname(...))", hptr1);
165     }
166
167   ip.s_addr = htonl (INADDR_LOOPBACK);
168   hptr1 = gethostbyaddr ((char *)&ip, sizeof(ip), AF_INET);
169   if (hptr1 != NULL)
170     {
171       printf ("official name of 127.0.0.1: %s\n", hptr1->h_name);
172     }
173
174   sethostent (0);
175   do
176     {
177       hptr1 = gethostent ();
178       output_hostent ("gethostent ()", hptr1);
179     }
180   while (hptr1 != NULL);
181   endhostent ();
182
183 }
184
185
186 void
187 output_netent (const char *call, struct netent *nptr)
188 {
189   char **pptr;
190
191   if (nptr == NULL)
192     printf ("Call: %s returned NULL\n", call);
193   else
194     {
195       struct in_addr ip;
196
197       ip.s_addr = htonl(nptr->n_net);
198       printf ("Call: %s, returned: n_name: %s, network_number: %s\n",
199               call, nptr->n_name, inet_ntoa (ip));
200
201       for (pptr = nptr->n_aliases; *pptr != NULL; pptr++)
202         printf ("  alias: %s\n", *pptr);
203     }
204 }
205
206 void
207 test_network (void)
208 {
209   struct netent *nptr;
210   u_int32_t ip;
211
212   /*
213     this test needs the following line in /etc/networks:
214      loopback        127.0.0.0
215   */
216   nptr = getnetbyname ("loopback");
217   output_netent ("getnetbyname (\"loopback\")",nptr);
218
219   ip = inet_network ("127.0.0.0");
220   nptr = getnetbyaddr (ip, AF_INET);
221   output_netent ("getnetbyaddr (inet_network (\"127.0.0.0\"), AF_INET)",nptr);
222
223   setnetent (0);
224   do
225     {
226       nptr = getnetent ();
227       output_netent ("getnetent ()", nptr);
228     }
229   while (nptr != NULL);
230   endnetent ();
231 }
232
233
234 void
235 output_protoent (const char *call, struct protoent *prptr)
236 {
237   char **pptr;
238
239   if (prptr == NULL)
240     printf ("Call: %s returned NULL\n", call);
241   else
242     {
243       printf ("Call: %s, returned: p_name: %s, p_proto: %d\n",
244               call, prptr->p_name, prptr->p_proto);
245       for (pptr = prptr->p_aliases; *pptr != NULL; pptr++)
246         printf ("  alias: %s\n", *pptr);
247     }
248 }
249
250
251 void
252 test_protocols (void)
253 {
254   struct protoent *prptr;
255
256   prptr = getprotobyname ("IP");
257   output_protoent ("getprotobyname (\"IP\")", prptr);
258
259   prptr = getprotobynumber (1);
260   output_protoent ("getprotobynumber (1)", prptr);
261
262   setprotoent (0);
263   do
264     {
265       prptr = getprotoent ();
266       output_protoent ("getprotoent ()", prptr);
267     }
268   while (prptr != NULL);
269   endprotoent ();
270 }
271
272
273 void
274 output_rpcent (const char *call, struct rpcent *rptr)
275 {
276   char **pptr;
277
278   if (rptr == NULL)
279     printf ("Call: %s returned NULL\n", call);
280   else
281     {
282       printf ("Call: %s, returned: r_name: %s, r_number: %d\n",
283                 call, rptr->r_name, rptr->r_number);
284       for (pptr = rptr->r_aliases; *pptr != NULL; pptr++)
285         printf ("  alias: %s\n", *pptr);
286     }
287 }
288
289 void
290 test_rpc (void)
291 {
292   struct rpcent *rptr;
293
294   rptr = getrpcbyname ("portmap");
295   output_rpcent ("getrpcyname (\"portmap\")", rptr);
296
297   rptr = getrpcbynumber (100000);
298   output_rpcent ("getrpcbynumber (100000)", rptr);
299
300   setrpcent (0);
301   do
302     {
303       rptr = getrpcent ();
304       output_rpcent ("getrpcent ()", rptr);
305     }
306   while (rptr != NULL);
307   endrpcent ();
308 }
309
310 /*
311   Override /etc/nsswitch.conf for this program.
312   This is mainly useful for developers
313 */
314 void
315 setdb (const char *dbname)
316 {
317   if (strcmp ("db", dbname))
318       {
319         /*
320           db is not implemented for hosts, networks
321         */
322         __nss_configure_lookup ("hosts", dbname);
323         __nss_configure_lookup ("networks", dbname);
324       }
325   __nss_configure_lookup ("protocols", dbname);
326   __nss_configure_lookup ("rpc", dbname);
327   __nss_configure_lookup ("services", dbname);
328 }
329
330
331 int
332 main (void)
333 {
334   /*
335     setdb ("db");
336   */
337   test_hosts ();
338   test_network ();
339   test_protocols ();
340   test_rpc ();
341   test_services ();
342
343   if (error_count)
344     printf ("\n %d errors occured!\n", error_count);
345   else
346     printf ("No visible errors occured!\n");
347
348   exit (error_count);
349 }