This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Initial integration of libnet-1.0703.
[perl5.git] / lib / Net / t / hostname.t
1
2 use Net::Domain qw(hostname domainname hostdomain);
3 use Net::Config;
4
5 unless($NetConfig{test_hosts}) {
6     print "1..0\n";
7     exit 0;
8 }
9
10 print "1..1\n";
11
12 $domain = domainname();
13
14 if(defined $domain && $domain ne "") {
15  print "ok 1\n";
16 }
17 else {
18  print "not ok 1\n";
19 }