[Compbench-devel] CompBenchmarks++/CBM-PI/t 05-Plan.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-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");
  }