compbench-devel

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

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

Modified Files:
	00-XML.pl 
Log Message:
XML file banner added.
Improved test set.


Index: 00-XML.pl
===================================================================
RCS file: /cvsroot/compbench/CompBenchmarks++/CBM-PI/t/00-XML.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 00-XML.pl	23 Jan 2007 18:49:36 -0000	1.3
--- 00-XML.pl	24 Jan 2007 19:35:26 -0000	1.4
***************
*** 6,10 ****
  require "libtest.pl";
  
! use Test::Simple tests => 36;
  
  my $sys;
--- 6,10 ----
  require "libtest.pl";
  
! use Test::Simple tests => 40;
  
  my $sys;
***************
*** 86,89 ****
--- 86,91 ----
    ok($root->childNumber() == 1);
    ok($child->childNumber() == 0);
+   my $c = $root->getChild("child");
+   ok($c->Name() eq $child->Name());
    test_node_eq($child, $root->getChild(0));
    test_str($root, "<root>\n <child/>\n</root>");
***************
*** 98,101 ****
--- 100,104 ----
    $root->add($att0);
    test_attribute($root->getAttribute(0), "att0", undef);
+   test_attribute($root->getAttribute("att0"), "att0", undef);
  }
  
***************
*** 137,141 ****
  
      my $H = $X->read($fn);
!     ok($H->str() eq $e, "Parsing of $_:\nEXPECTED:$e\nEOF\nHAS*****:" . $H->str() . "\nEOF");
    }
  }
--- 140,145 ----
  
      my $H = $X->read($fn);
!     my $w = "<?xml version=\"1.0\" ?>\n\n" . $H->str();
!     ok($w eq $e, "Parsing of $_:\nEXPECTED:$e\nEOF\nHAS*****:" . $w . "\nEOF");
    }
  }