t/20-extended.t

   1 #!perl -T
   2
   3 use Test::More;
   4
   5 use Linux::SysInfo qw/sysinfo LS_HAS_EXTENDED/;
   6
   7 unless (LS_HAS_EXTENDED) {
   8  plan skip_all => 'your kernel does not support extended sysinfo fields';
   9 } else {
  10  plan tests => 4 * 5;
  11
  12  for (1 .. 5) {
  13   my $si = sysinfo;
  14   ok(defined $si);
  15
  16   ok(exists $si->{$_}) for qw/totalhigh freehigh mem_unit/;
  17  }
  18 }