5 use System::Introspector::Probe::Host;
7 my $probe = System::Introspector::Probe::Host->new(
8 hostname_file => "$FindBin::Bin/data/hostname",
10 my $data = $probe->gather;
12 ok length($data->{hostname}), 'found a hostname';
13 ok defined($data->{uname}{ $_ }), "has uname $_" for qw(