[Bioperl-guts-l] bioperl-live/t DB.t,1.57,1.58

[Brian Osborne]

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

Modified Files:
	DB.t 
Log Message:
Add GDB test


Index: DB.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/DB.t,v
retrieving revision 1.57
retrieving revision 1.58
diff -C2 -d -r1.57 -r1.58
*** DB.t	9 Mar 2006 23:25:33 -0000	1.57
--- DB.t	21 Mar 2006 00:29:32 -0000	1.58
***************
*** 23,27 ****
     use Test;
  
!    $NUMTESTS = 99;
     plan tests => $NUMTESTS;
  
--- 23,27 ----
     use Test;
  
!    $NUMTESTS = 100;
     plan tests => $NUMTESTS;
  
***************
*** 55,58 ****
--- 55,59 ----
  require Bio::DB::SwissProt;
  require Bio::DB::EntrezGene;
+ require Bio::DB::GDB;
  
  my $testnum;
***************
*** 381,384 ****
--- 382,393 ----
     }
     	$seq = $seqio = undef;
+ 
+ 	#
+ 	# Bio::DB::GDB
+ 	#
+ 	my $gdb = new Bio::DB::GDB;  
+ 	my $info = $gdb->get_info(-type => 'marker', 
+ 									  -id => 'D1S243'); 
+ 	ok $info->{gdbid},'GDB:188393';
  
  	#