t/20-extended.t

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