7 use Linux::SysInfo::TestThreads;
9 use Test::More 'no_plan';
11 use Linux::SysInfo qw<sysinfo>;
14 my $tid = threads->tid();
17 skip 'system error (sysinfo returned undef)' => 4 unless defined $si;
18 is ref($si), 'HASH', "sysinfo returns a hash reference in thread $tid";
21 if (defined $si->{uptime}) {
22 like $si->{uptime}, qr/^\d+(?:\.\d+)?$/,
23 "key $_ looks like a number in thread $tid";
25 fail "key $_ isn't defined in thread $tid";
31 my @threads = map spawn(\&try, $_), 1 .. 10;
33 $_->join for @threads;