#!perl
use strict;
use Test::More tests => 5;

use Haiku::SysInfo;

my $si = Haiku::SysInfo->new;
ok($si, "make sysinfo object");
ok($si->cpu_count, "at least one cpu");
ok($si->max_pages, "have some memory");
ok($si->cpu_clock_speed, "the cpu runs");

# this can, in theory, fail, on old, old CPUs
ok($si->cpu_brand_string, "it has a brand string");