t/host.t

   1 use strictures 1;
   2 use Test::More;
   3 use FindBin;
   4
   5 use System::Introspector::Probe::Host;
   6
   7 my $probe = System::Introspector::Probe::Host->new(
   8     hostname_file => "$FindBin::Bin/data/hostname",
   9 );
  10 my $data = $probe->gather;
  11
  12 ok length($data->{hostname}), 'found a hostname';
  13 ok defined($data->{uname}{ $_ }), "has uname $_" for qw(
  14     hardware_platform
  15     kernel_name
  16     kernel_release
  17     kernel_version
  18     machine
  19     nodename
  20     operating_system
  21     processor
  22 );
  23
  24 done_testing;