+ for (qw/uptime load1 load5 load15 procs
+ totalram freeram sharedram bufferram totalswap freeswap/) {
+ if (defined $si->{$_}) {
+ like $si->{$_}, qr/^\d+(?:\.\d+)?$/,
+ "key $_ looks like a number at run $run";
+ } else {
+ fail "key $_ isn't defined at run $run";
+ }
+ }
+ }
+}