hostname.t   [plain text]

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;