t/20-extended.t

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