1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl
use Test::More tests => 4;
BEGIN { use_ok('Sys::CPU'); }
$number = &Sys::CPU::cpu_count();
ok( defined($number), "CPU Count: $number" );
TODO: {
local $TODO = "/proc/cpuinfo doesn't always report 'cpu MHz' or 'clock' or 'bogomips' ...";
$speed = &Sys::CPU::cpu_clock();
ok( defined($speed), "CPU Speed: $speed" );
}
TODO: {
local $TODO = "/proc/cpuinfo doesn't always report 'model name' or 'machine' ...";
$type = &Sys::CPU::cpu_type();
ok( defined($type), "CPU Type: $type" );
}
|
