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