compbench-devel

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

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

Modified Files:
	00-CBMSystem-public.pl 00-XML.pl 
Log Message:
check_null() used (from libtest.pl). See comments in later file.

Index: 00-CBMSystem-public.pl
===================================================================
RCS file: /cvsroot/compbench/CompBenchmarks++/CBM-PI/t/00-CBMSystem-public.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** 00-CBMSystem-public.pl	23 May 2007 15:35:41 -0000	1.8
--- 00-CBMSystem-public.pl	23 May 2007 17:27:24 -0000	1.9
***************
*** 13,17 ****
  sub test_Split {
    ok($sys->Split("a\nb", "\n", 0) eq "a");
!   ok($sys->Split("a\n\nb", "\n", 1) eq "");
    ok($sys->Split("a\nb", "\n", 1) eq "b");
    ok($sys->Split("a\nb\n", "\n", 1) eq "b");
--- 13,18 ----
  sub test_Split {
    ok($sys->Split("a\nb", "\n", 0) eq "a");
! 
!   ok(check_null($sys->Split("a\n\nb", "\n", 1)));
    ok($sys->Split("a\nb", "\n", 1) eq "b");
    ok($sys->Split("a\nb\n", "\n", 1) eq "b");
***************
*** 20,25 ****
    ok($sys->Split("4.2.1", ".", 1) eq "2");
    ok($sys->Split("4.2.1", ".", 2) eq "1");
!   ok($sys->Split("4.2.1", " ", 0) eq "", "Split('4.2.1', ' ', 0) is ''");
!   ok($sys->Split("4.2.1", " ", 1) eq "", "Split('4.2.1', ' ', 1) is ''");
  }
  
--- 21,26 ----
    ok($sys->Split("4.2.1", ".", 1) eq "2");
    ok($sys->Split("4.2.1", ".", 2) eq "1");
!   ok(check_null($sys->Split("4.2.1", " ", 0)), "Split('4.2.1', ' ', 0) is ''");
!   ok(check_null($sys->Split("4.2.1", " ", 1)), "Split('4.2.1', ' ', 1) is ''");
  }
  

Index: 00-XML.pl
===================================================================
RCS file: /cvsroot/compbench/CompBenchmarks++/CBM-PI/t/00-XML.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** 00-XML.pl	12 Apr 2007 19:59:28 -0000	1.7
--- 00-XML.pl	23 May 2007 17:27:24 -0000	1.8
***************
*** 31,35 ****
  
    if (!defined($v)) {
!     ok(!defined($value));
    } else {
      ok($v eq $value);
--- 31,35 ----
  
    if (!defined($v)) {
!     ok(check_null($value));
    } else {
      ok($v eq $value);
***************
*** 50,56 ****
  
    if (!defined($v)) {
!     ok(!defined($value));
    } else {
-     print "V='$v' value='$value'\n";
      ok($v eq $value);
    }
--- 50,55 ----
  
    if (!defined($v)) {
!     ok(check_null($value));
    } else {
      ok($v eq $value);
    }
***************
*** 69,73 ****
  
    if (!defined($v0)) {
!     ok(!defined($v1));
    } else {
      ok($v0 eq $v1);
--- 68,72 ----
  
    if (!defined($v0)) {
!     ok(check_null($v1));
    } else {
      ok($v0 eq $v1);