Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

#!/usr/bin/env perl
use v5.12.5;
our $VERSION = '9999.99.99_99'; # VERSION
use Test::More tests => 3;
$Rex::Logger::silent = 1;
stderr_like( sub { Rex::Inventory::Proc->new() }, qr{^$}, 'stderr is empty' );
my $cpu_count = scalar @{ Rex::Inventory::Proc->new()->get_cpus };
if ( -r '/proc/cpuinfo' ) {
isnt( $cpu_count, 0, 'Found some CPUs' );
}
else {
is( $cpu_count, 0, 'No CPUs found' );
}