From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
if (!-r '/proc/loadavg') {
plan skip_all => "it seems that your system doesn't provide load statistics";
exit(0);
}
plan tests => 3;
my @loadavg = qw(
avg_1
avg_5
avg_15
);
my $sys = Sys::Statistics::Linux->new();
$sys->set(loadavg => 1);
my $stats = $sys->get;
ok(defined $stats->{loadavg}->{$_}, "checking loadavg $_") for @loadavg;