[Compbench-devel] CompBenchmarks++/CBM-PI/t 05-Plan.pl, 1.5, 1.6 06-CBM-LibUI.pl, 1.1, 1.2

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

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

Modified Files:
	05-Plan.pl 06-CBM-LibUI.pl 
Log Message:
More tests.

Index: 05-Plan.pl
===================================================================
RCS file: /cvsroot/compbench/CompBenchmarks++/CBM-PI/t/05-Plan.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** 05-Plan.pl	26 Jan 2007 13:09:57 -0000	1.5
--- 05-Plan.pl	15 Feb 2007 19:12:33 -0000	1.6
***************
*** 115,119 ****
    $X=$R->read("$top_srcdir/reference/plan.xml");
    ok($P->restore($X) == 1);
- 
    my $x = `cat $top_srcdir/reference/plan.xml`;
    chomp($x);
--- 115,118 ----

Index: 06-CBM-LibUI.pl
===================================================================
RCS file: /cvsroot/compbench/CompBenchmarks++/CBM-PI/t/06-CBM-LibUI.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 06-CBM-LibUI.pl	30 Jan 2007 19:11:44 -0000	1.1
--- 06-CBM-LibUI.pl	15 Feb 2007 19:12:33 -0000	1.2
***************
*** 11,15 ****
  use CBM::LibUI;
  
! use Test::Simple tests => 225;
  
  my $EXPECTED_PACKAGES = 7;
--- 11,15 ----
  use CBM::LibUI;
  
! use Test::Simple tests => 230;
  
  my $EXPECTED_PACKAGES = 7;
***************
*** 85,88 ****
--- 85,100 ----
    ok($plan->compilerOptionNumber()==0);
    ok($plan->benchmarkNumber()==0);
+ 
+   my $B = $libui->cbmSystem()->Benchmark('gzip-1c');
+   $plan->add($B);
+   my @B = $libui->plannedBenchmarks();
+   ok(@B==1);
+   ok($plan->benchmarkNumber()==1);
+   ok($plan->getBenchmark(0)->Name() eq $B->Name());
+   $plan->remove($B);
+ 
+   @B = $libui->plannedBenchmarks();
+   ok(@B==0);
+   ok($plan->benchmarkNumber()==0);
  }