The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#! perl -w
use strict;

# $Id$

use Config;

use Test::More tests => 3;
BEGIN { use_ok( 'Test::Smoke::Util', 'get_ncpu' ); }

ok( defined &get_ncpu, "get_ncpu() is defined" );
SKIP: {
    my $ncpu = get_ncpu( $Config{osname} );
    skip "OS does not seem to be supported ($Config{osname})", 1
        unless $ncpu;
    like( $ncpu, '/^\d+/', "Found: $ncpu" );
}