Update of /cvsroot/compbench/CompBenchmarks++/CBM-PI/t
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv26973
Modified Files:
05-Plan.pl
Log Message:
More tests.
Index: 05-Plan.pl
===================================================================
RCS file: /cvsroot/compbench/CompBenchmarks++/CBM-PI/t/05-Plan.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 05-Plan.pl 25 Jan 2007 20:34:53 -0000 1.1
--- 05-Plan.pl 25 Jan 2007 20:57:31 -0000 1.2
***************
*** 6,10 ****
require "libtest.pl";
! use Test::Simple tests => 109;
my $sys;
--- 6,10 ----
require "libtest.pl";
! use Test::Simple tests => 123;
my $sys;
***************
*** 87,93 ****
--- 87,99 ----
ok($P->nextIteration(1) == ($last!=($it+1)), "nextIteration() is correct");
$it++;
+ ok($P->currentIteration() == $it, "currentIteration() is correct");
}
}
}
+ ok($P->nextIteration(0) == 0);
+
+ my $x = `cat $top_srcdir/reference/plan.xml`;
+ chomp($x);
+ ok($P->XML()->str() eq $x, "$top_srcdir/reference/plan.xml matches");
}
|
