[Bioperl-guts-l] bioperl commit

[Richard Adams]

radams
Thu Jul 15 07:44:20 EDT 2004
Update of /home/repository/bioperl/bioperl-live/t
In directory pub.open-bio.org:/tmp/cvs-serv9542/t

Modified Files:
	protgraph.t 
Log Message:
pod updates

bioperl-live/t protgraph.t,1.8,1.9
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/protgraph.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/bioperl/bioperl-live/t/protgraph.t	2004/07/15 09:33:44	1.8
+++ /home/repository/bioperl/bioperl-live/t/protgraph.t	2004/07/15 11:44:20	1.9
@@ -14,7 +14,7 @@
         use lib 't';
     }
     use Test;
-    $NUMTESTS  = 50;
+    $NUMTESTS  = 52;
     plan tests => $NUMTESTS;
     eval {	require Class::AutoClass;	
          	require Clone;
@@ -129,6 +129,11 @@
 
 ok map {$_->object_id}$g2->edges;
 
+## get an edge by its id
+
+ok my $edge = $g2->edge_by_id('4368E');
+ok $edge->object_id, '4368E';
+
 ## count all edges
 my $count = 0;
 ok $g2->edge_count, 71;