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 for (1 .. 5) {
  11  my $si = sysinfo;
  12  ok(defined $si);
  13
  14  ok(exists $si->{$_}) for qw/uptime load1 load5 load15 totalram freeram sharedram bufferram totalswap freeswap procs/;
  15 }