compbench-devel

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

Update of /cvsroot/compbench/CompBenchmarks++/CBM-PI/t
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv23784

Added Files:
	02-CBMSystem-benchs.pl 
Log Message:
02-CBMBenchmarkSelector-public.pl renamed.

--- NEW FILE: 02-CBMSystem-benchs.pl ---
#!/usr/bin/perl -w -I ..
use strict;
use CBM;
use Test::More;

require "libtest.pl";

our $top_srcdir;

my @benchmarks = `cat $top_srcdir/../../SupportedBenchmarks/benchmarks.list | grep -v '^#' | cut -f1 -d':'`;
chomp(@benchmarks);
plan tests => (@benchmarks+0)*53;

my $sys;

$sys = CBM::Init();

my $b;
my $p;

my %bm_hash;

foreach(@benchmarks) {
  print ">$_\n";
  $b   = $sys->Benchmark($_);
  ok(defined($b), "loading $_");
  if (!defined($b)) {
    my $N = 52;
    while ($N--) {
      ok(0);
    }
    next;
  }
  $p=$b->Package();
  ok(defined($p), "package for $_");
  my $s=$p->getStatus();
  ok(defined($s), "status exists for $_");
  ok(($s>=0) && ($s<=8), "valid status for $_ : '$s'");

  my $pack = "$_";
  $pack =~ s/^(.*?)-.+/$1/g;
  ok($pack eq $p->packageName(), "checking packageName() for $_ : '$pack'/" . $p->packageName());

  check_simple($p->packageVersion());

  my $siz = $p->packageSize();
  check_simple($siz);
  ok($siz > 0);

  check_simple($p->packageComments());
  check_simple($p->localPackageName());

  my $bn = $b->benchmarkName();

  check_simple($bn);
  ok($bn eq $_, "checking benchmark's name : got '$bn', expected '$_'");

  check_simple($b->benchmarkComments());

  my $lang = $p->language();
  check_simple($lang);
  ok( ($lang eq "C") || ($lang eq "C++"));

  check_simple($p->license());

  check_simple($p->author());
  check_simple($p->localPackageAbsoluteName());
  check_simple($p->localPackageAbsoluteDirectory());

  my $hast = $p->hasTest();
  ok( ($hast==0) || ($hast==1) );
}

$sys->done();