compbench-devel

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

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

Modified Files:
	02-CBMSystem-benchs.pl 
Log Message:
benchmarkSize() and hasTest() tested.

Index: 02-CBMSystem-benchs.pl
===================================================================
RCS file: /cvsroot/compbench/CompBenchmarks++/CBM-PI/t/02-CBMSystem-benchs.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 02-CBMSystem-benchs.pl	4 Jan 2007 19:46:23 -0000	1.1
--- 02-CBMSystem-benchs.pl	15 Jan 2007 20:39:42 -0000	1.2
***************
*** 10,14 ****
  my @benchmarks = `cat $top_srcdir/../../SupportedBenchmarks/benchmarks.list | grep -v '^#' | cut -f1 -d':'`;
  chomp(@benchmarks);
! plan tests => (@benchmarks+0)*53;
  
  my $sys;
--- 10,14 ----
  my @benchmarks = `cat $top_srcdir/../../SupportedBenchmarks/benchmarks.list | grep -v '^#' | cut -f1 -d':'`;
  chomp(@benchmarks);
! plan tests => ((@benchmarks+0)*59)+1;
  
  my $sys;
***************
*** 51,54 ****
--- 51,58 ----
    check_simple($p->localPackageName());
  
+   my $siz_b = $p->benchmarkSize();
+   check_simple($siz_b);
+   ok($siz_b > 0);
+ 
    my $bn = $b->benchmarkName();
  
***************
*** 70,73 ****
--- 74,80 ----
    my $hast = $p->hasTest();
    ok( ($hast==0) || ($hast==1) );
+ 
+   my $p = $p->hasPatch();
+   ok( ($p == 0) || ($p == 1), "hasPatch() returns 0 or 1");
  }