t/10-standard.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 12 * 5;
   7
   8 use Linux::SysInfo qw<sysinfo>;
   9
  10 SKIP: {
  11  for my $run (0 .. 4) {
  12   my $si = sysinfo;
  13   skip 'system error (sysinfo returned undef)' => (5 - $run) * 12
  14                                                              unless defined $si;
  15   is ref($si), 'HASH', "sysinfo returns a hash reference at run $run";
  16
  17   for (qw<uptime load1 load5 load15 procs
  18           totalram freeram sharedram bufferram totalswap freeswap>) {
  19    if (defined $si->{$_}) {
  20     like $si->{$_}, qr/^\d+(?:\.\d+)?$/,
  21                                        "key $_ looks like a number at run $run";
  22    } else {
  23     fail "key $_ isn't defined at run $run";
  24    }
  25   }
  26  }
  27 }