Update of /cvsroot/compbench/CompBenchmarks++/CBM-PI/t
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv25467
Added Files:
06-CBM-LibUI.pl
Log Message:
First import.
--- NEW FILE: 06-CBM-LibUI.pl ---
#!/usr/bin/perl -w -I ..
# -----------------------------------------------------------------------------
# $Id: 06-CBM-LibUI.pl,v 1.1 2007/01/30 19:11:44 xfred Exp $
#
# This is free software.
# For details, see the GNU Public License in the COPYING file, or
# Look http://www.fsf.org
# -----------------------------------------------------------------------------
use strict;
use CBM::LibUI;
use Test::Simple tests => 225;
my $EXPECTED_PACKAGES = 7;
my $EXPECTED_BENCHMARKS = 61;
my $libui;
our $top_srcdir;
my $P;
sub test_libui {
ok(defined($libui));
ok(defined($libui->cbmSystem()));
my @PACKAGES = $libui->Packages();
foreach(@PACKAGES) {
ok(defined($_));
ok(defined($_->Name()));
}
ok((@PACKAGES)+0 == $EXPECTED_PACKAGES);
my @BENCHMARKS = $libui->Benchmarks();
foreach(@BENCHMARKS) {
ok(defined($_));
ok(defined($_->Name()));
}
ok((@BENCHMARKS)+0 == $EXPECTED_BENCHMARKS);
my %host = $libui->Host();
my @HPARAMS = ('os', 'os_version',
'host_id',
'hostname',
'processor_name',
'processor_mhz',
'processor_cache',
'processor_number',
'arch');
foreach(@HPARAMS) {
ok(defined($host{$_}), "$_ is defined in host description");
ok($host{$_} ne "", "$_ is not empty in host descrption");
ok(!($host{$_} =~ /^\s*$/));
}
}
sub test_libui_programs {
my %progs = $libui->Programs();
my %used;
my @XPROGRAMS = qw (
BZIP2 CUT
DD DIALOG GREP
GZIP HEAD MAKE MKDIR PATCH
RM TAIL TAR UNZIP WGET
ZCAT CAT
PERL
);
foreach(@XPROGRAMS) {
ok(defined($progs{$_}));
ok(-x $progs{$_});
$used{$progs{$_}}++;
}
foreach(keys %used) {
ok($used{$_} == 1);
}
ok(((keys %progs)+0)==(@XPROGRAMS+0));
}
sub test_libui_plan {
my $plan = $libui->Plan();
$plan->reset();
ok($plan->compilerNumber()==0);
ok($plan->compilerOptionNumber()==0);
ok($plan->benchmarkNumber()==0);
}
$libui=CBM::LibUI->new();
$libui->cbmSystem();
test_libui();
test_libui_programs();
test_libui_plan();
|