[Compbench-devel] CompBenchmarks++/CBM-PI/t 06-CBM-LibUI.pl, NONE, 1.1

[Frederic T. <xf...@us...>]

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();