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;
  11
  12  my $si = sysinfo;
  13  ok(defined $si);
  14
  15  ok(exists $si->{$_}) for qw/totalhigh freehigh mem_unit/;
  16 }