use warnings;
use strict;
use Test::More tests => 2;
require_ok "hostname.pl";
my $host = eval { &hostname };
if($@) {
like $@, qr/Cannot get host name/;
} else {
ok 1;
}
1;
use warnings;
use strict;
use Test::More tests => 2;
require_ok "hostname.pl";
my $host = eval { &hostname };
if($@) {
like $@, qr/Cannot get host name/;
} else {
ok 1;
}
1;