t/host.t

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