[Bioperl-guts-l] bioperl-live/t TreeIO.t,1.29,1.30

[Jason Stajich]

Update of /home/repository/bioperl/bioperl-live/t
In directory pub.open-bio.org:/tmp/cvs-serv26012/t

Modified Files:
	TreeIO.t 
Log Message:
fix tests for now - I think this is okay...


Index: TreeIO.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/TreeIO.t,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** TreeIO.t	25 Jan 2005 12:04:58 -0000	1.29
--- TreeIO.t	31 Mar 2005 18:32:02 -0000	1.30
***************
*** 180,184 ****
  	@leaves = $tree->get_leaf_nodes;
  	ok(@leaves, 13);
! 	ok(@nodes, 24);
  	($node) = $tree->find_node(-id => '18');
  	ok($node);
--- 180,184 ----
  	@leaves = $tree->get_leaf_nodes;
  	ok(@leaves, 13);
! 	ok(@nodes, 25);
  	($node) = $tree->find_node(-id => '18');
  	ok($node);
***************
*** 199,203 ****
  @leaves = $tree->get_leaf_nodes;
  ok(@leaves, 13);
! ok(@nodes, 24);
  ($node) = $tree->find_node('18');
  ok($node->id, '18');
--- 199,203 ----
  @leaves = $tree->get_leaf_nodes;
  ok(@leaves, 13);
! ok(@nodes, 25);
  ($node) = $tree->find_node('18');
  ok($node->id, '18');
***************
*** 221,225 ****
  ok(@leaves, 13, scalar @leaves);
  
! ok(@nodes, 24, scalar @leaves);
  ($node) = $tree->find_node('18');
  ok($node->id, '18');
--- 221,225 ----
  ok(@leaves, 13, scalar @leaves);
  
! ok(@nodes, 25, scalar @nodes);
  ($node) = $tree->find_node('18');
  ok($node->id, '18');