2
$Id: testnet.pp,v 1.2 2003/05/17 20:54:03 michael Exp $
3
This file is part of the Free Pascal run time library.
4
Copyright (c) 2003 by the Free Pascal development team
6
test netdb unit, network part
8
See the file COPYING.FPC, included in this distribution,
9
for details about the copyright.
11
This program is distributed in the hope that it will be useful,
12
but WITHOUT ANY WARRANTY; without even the implied warranty of
13
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15
**********************************************************************}
20
Procedure DumpNetEntry(Const N : TNetworkEntry);
25
Writeln('Name : ',Name);
26
Writeln('Addr : ',HostAddrToStr(Addr));
27
Writeln('Aliases : ',Aliases);
32
Procedure TestAddr(Addr : string);
38
If GetNetworkByAddr(StrToHostAddr(Addr),N) then
41
Writeln('No entry for address ',Addr)
44
Procedure TestName(Const Net : string);
50
If GetNetworkByName(Net,N) then
53
Writeln('No entry for netname ',Net)
57
testaddr('127.0.0.0');
63
Revision 1.2 2003/05/17 20:54:03 michael
64
+ uriparser unit added. Header/Footer blocks added