1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
use Test::Most; use Test::Warnings; use Scalar::Util 'looks_like_number'; plan skip_all => "no /proc/loadavg" unless -r "/proc/loadavg"; use_ok 'Sys::CpuLoad', 'proc_loadavg'; my @load = proc_loadavg(); cmp_deeply \@load, [ (code(\&looks_like_number)) x 3 ], 'load'; diag "@load"; done_testing;